连续选择中途如何退出

redcc

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

霹雳啪啦啦

我的做法是判断ERRNO变量的值。如下：

On error goto NOT_ENTITY_D

使用GetEntity进行选择

。。。。。。。。。。。。。。

NOT_ENTITY_D:
    Err.Clear
    inputerr = ThisDrawing.GetVariable("ERRNO")
    If inputerr = 52 Then
        选择结束
        Exit Sub
    End If
    Resume Next

记不太清楚了，好像52是使用了右键，什么都没选；而7是选择错误。具体可到Autolisp的开发帮助里查一下。

另外，明经的实用函数里有一个左键选择，右键取消的函数，使用的是Err的代码，也有类似的功能。

MJTD_7777

if Err then exit do