redcc 发表于 2006-1-23 11:23:00

连续选择中途如何退出

<FONT face=宋体 size=2>刚开始学VBA ,在VBA中用do做了一个循环，选择实体，中途不知道怎么退出，大家给帮一下忙<BR>Check = True <BR>Do<BR>ThisDrawing.Utility.GetEntity en, point, "请选择一个实体"<BR>If en.ObjectID = Empty Then<BR>Check = False<BR>End If<BR>ListBox1.AddItem (en.ObjectID)<BR>Loop Until Check = False</FONT>

霹雳啪啦啦 发表于 2006-1-23 12:08:00

<P>我的做法是判断ERRNO变量的值。如下：</P>
<P>On error goto NOT_ENTITY_D</P>
<P>使用GetEntity进行选择</P>
<P>。。。。。。。。。。。。。。</P>
<P>NOT_ENTITY_D:<BR>&nbsp;&nbsp;&nbsp; Err.Clear<BR>&nbsp;&nbsp;&nbsp; inputerr = ThisDrawing.GetVariable("ERRNO")<BR>&nbsp;&nbsp;&nbsp; If inputerr = 52 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;选择结束<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; Resume Next<BR></P>
<P>记不太清楚了，好像52是使用了右键，什么都没选；而7是选择错误。具体可到Autolisp的开发帮助里查一下。</P>
<P>另外，明经的实用函数里有一个左键选择，右键取消的函数，使用的是Err的代码，也有类似的功能。</P>

MJTD_7777 发表于 2006-1-24 16:33:00

if Err then exit do
页: [1]
查看完整版本: 连续选择中途如何退出