按Esc键强行退出的问题
<p>当CAD界面鼠标指针是手型 拖动状态，然后运行程序，结果无法退出。</p><p>不知如何解决，想出3个解决方案，但都没成功</p><p>1. 按Esc键后，循环出错，捕捉错误码，退出循环。没成功。</p><p>2. 程序运行前，检查鼠标指针的状态，是否停留在拖动状态。让其退出</p><p>3. Excel VBA里面是Ctrl+C可以强行终止。CAD VBA中不行。</p><p>***********程序基本结构****************************************************</p><p>for each object in selectionset</p><p>程序主体</p><p>next</p><p>*************************************************************</p><p>a，在end sub 上面一行输入扑捉错误的行标志，如 </p><p>sub ttt()</p><p></p><p>on error goto flag:</p><p>主程序</p><p></p><p>flag：</p><p>'msgbox "你按了ESC键。"</p><p> Exit Sub</p><p>end sub</p><p>*************************************************************</p><p>b, 捕捉错误退出</p><p><br/> If ERR.Number = -2147352567 Then </p><p> ERR.Clear<br/> Exit Sub<br/> End If<br/> <br/>'***********************************************************************</p><p>请版主指教。</p> <p>如果进入死循环了，有一个手动解决的办法，就是点击关闭文件。系统提示是否保存。在选择取消。手型的指针就没了，程序退回原始状况。</p><p>不知道编程如何解决。</p>
页:
[1]