[求助]：关于错误中断的问题

CADghost

请问各位，如何处理“进入键盘中断循环”这样的问题。具体如下

(Defun c:123 ()
  (setq a 1)
  (while 1
    (command "line" "0,0" "0,100" "")
    ))

如果运行类似这样的程序，在CAD中会一直执行画线命令，想要让它停止就只有按“ESC”键。可是一按住“ESC”，就会“进入键盘中断循环”。
问题：
1。这样的程序如何让它停下来呢？
2。在停下来的同时，删除已画直线。

多谢！

ljpnb

你这个程序真得是叫死循环，一执行什么也不用做，电脑自动的在画同一条直线，绝！
所以在设计程序时绝对不要出现这种死循环，而且在调试程序时最好在VLISP编辑器中进行，碰到键盘中断循环时，还可以退出来。

CADghost

哎~楼上的兄弟，这只是一个例子。
死循环也不是完全没有用的，
如果你编的是一个应用程序，那么肯定用不着这个。
但如果你在做动态程序的话，还真用得着
我现在不是在想如何避免这种问题，而是在找解决这种问题的办法~