如何按esc键后，程序继续执行后面的代码
请教一下各位大师，下面有一段代码。(defun cHcutinoutline ()
(setvar "osmode" 128)
(setvar "orthomode" 1)
(setq chklay (tblsearch "layer" "4"))
(if (= chklay nil) (command "layer" "n" "4" "c" "50" "4" ""))
(setvar "clayer" "4")
(setvar "CECOLOR" "bylayer")
(setvar "CELTYPE" "Continuous")
(command "LINE" PAUSE PAUSE PAUSE PAUSE PAUSE PAUSE )
(setvar "osmode" 0)
(setvar "orthomode" 0)
(princ"\n 垂直引入线第4层") (princ)
);end defun现在的问题是，按照画图的习惯，一般再第9段程序，画几根直线就会按ESC，一般很少连续画5根直线，这个时候就会按esc结束程序，可是第10-12段就不会执行了，捕捉和正交也不能关闭了。怎么办，有什么办法 再按esc后还可以继续执行后面的程序。
试试这个：
(defun c:Hcutinoutline (/ aa chklay)
(setvar "osmode" 128)
(setvar "orthomode" 1)
(setq chklay (tblsearch "layer" "4"))
(if (= chklay nil) (command "layer" "n" "4" "c" "50" "4" ""))
(setvar "clayer" "4")
(setvar "CECOLOR" "bylayer")
(setvar "CELTYPE" "Continuous")
(setq aa T)
(vl-cmdf "LINE" PAUSE)
(while aa
(if (null (vl-cmdf PAUSE))
(progn
(setvar "osmode" 0)
(setvar "orthomode" 0)
(princ"\n 垂直引入线第4层")
(setq aa nil)
)
)
)
(princ)
)
页:
[1]