当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
置顶卡
