[LISP程序]：已解决，如何跳出while后继续执行lisp。

fl202

我们编了lisp程序之后，可以用while语句控制多次循环，那么cad就可以不断的画图了。可是当我们按下ESC键的时候，它不仅是跳出了while语句，也跳出了lisp程序。有什么办法只是跳出while，不跳出lisp吗？ 这样可以继续执行lisp后面的语句。
也就是说，我们有什么办法可以做到这点。记住当前的系统变量，创建函数，执行功能，多次的执行功能，执行多少次由鼠标说了算（当你的鼠标不再选点，而是按下ESC或者回车或者空格，不再执行功能），恢复先前的系统变量，如正交，捕捉，图层等等。
可以实现吗？谢谢。

hhc_1

用vl-catch-all-apply系列函数

fl202

vl-catch-all-apply系列函数这个函数我不会用，也没有找到相关的资料，请哪位大虾提供下。谢谢。

我找到了另外一种解决办法：
(if (not  pt1)
   (progn
         (setvar  "ORTHOMODE" 0)
     (setvar "OSMODE" 511)
         等等
     (exit)
      )
   )
这样，当鼠标取点为空，比如你按下了空格键的时候，执行上面的语句，恢复系统变量，并退出本程序。
哈哈，好开心。

luowy

还不如选择非自己指定的时候，重新指定，或者退出