yang686526

怎样退出宏可以不提示错误？
www.dimcax.com
怎样退出宏可以不提示错误？
用什么语句可以实现在循环没有完成时按esc键退出，或者在要求选择指定对象时没有选择或者选择错误对象；而vba不报错误，直接退出函数，或者重新选择。

函数如下：
for i = ii to 100
xuhao = i
getpnt = thisdrawing.utility.getpoint
set newmtxt = thisdrawing.modelspace.addmtext(getpnt, 10, xuhao)
newmtxt.stylename = "standard"
'getpnt = thisdrawing.utility.getpoint(, "输入圆点")
if i < 10 then
getpnt(0) = getpnt(0) + 0.5
getpnt(1) = getpnt(1) - 1.7
else
getpnt(0) = getpnt(0) + 1.3
getpnt(1) = getpnt(1) - 1.7
end if
thisdrawing.modelspace.addcircle getpnt, 2
next
选择对象
dim getobj as acadmtext
dim getpnt(0 to 2) as double
dim ex_h as boolean
thisdrawing.utility.getentity getobj, basepnt, "select an object"

'getpnt = thisdrawing.utility.getpoint(, "输入圆点")
if i < 10 then
getpnt(0) = getpnt(0) + 0.5
getpnt(1) = getpnt(1) - 1.7
else

mei
'getpnt = thisdrawing.utility.getpoint(, "输入圆点")
if i < 10 then
getpnt(0) = getpnt(0) + 0.5
getpnt(1) = getpnt(1) - 1.7
else
thisdrawing.utility.getentity getobj, basepnt, "select an object"

兄弟刷分不是这样的

不懂

到这里的二次开发版面看看吧，有你要的功能

试试先~~~