按Esc键强行退出的问题

yg545france

当CAD界面鼠标指针是手型 拖动状态，然后运行程序，结果无法退出。

不知如何解决，想出3个解决方案，但都没成功

1. 按Esc键后，循环出错，捕捉错误码，退出循环。没成功。

2. 程序运行前，检查鼠标指针的状态，是否停留在拖动状态。让其退出

3. Excel VBA里面是Ctrl+C可以强行终止。CAD VBA中不行。

***********程序基本结构****************************************************

for each object in selectionset

程序主体

next

*************************************************************

a，在end sub 上面一行输入扑捉错误的行标志，如

sub ttt()

on error goto flag:

主程序

flag：

'msgbox "你按了ESC键。"

 Exit Sub

end sub

*************************************************************

b, 捕捉错误退出

    If ERR.Number = -2147352567 Then  

        ERR.Clear
        Exit Sub
    End If
   
'***********************************************************************

请版主指教。

yg545france

如果进入死循环了，有一个手动解决的办法，就是点击关闭文件。系统提示是否保存。在选择取消。手型的指针就没了，程序退回原始状况。

不知道编程如何解决。