如何按esc键后，程序继续执行后面的代码

ninja37

请教一下各位大师，下面有一段代码。

• (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后还可以继续执行后面的程序。

ssyfeng

试试这个：

1. (defun c:Hcutinoutline (/ aa chklay)
   
2.   (setvar "osmode" 128)
   
3.   (setvar "orthomode" 1)
   
4.   (setq chklay (tblsearch "layer" "4"))
   
5.   (if (= chklay nil) (command "layer" "n" "4" "c" "50" "4" ""))
   
6.   (setvar "clayer" "4")
   
7.   (setvar "CECOLOR" "bylayer")
   
8.   (setvar "CELTYPE" "Continuous")
   
9.   (setq aa T)
   
10.   (vl-cmdf "LINE" PAUSE)
    
11.   (while aa
    
12.     (if (null (vl-cmdf PAUSE))
    
13.       (progn
    
14.         (setvar "osmode" 0)
    
15.         (setvar "orthomode" 0)
    
16.         (princ"\n 垂直引入线  第4层")
    
17.         (setq aa nil)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

(defun c:Hcutinoutline (/ aa chklay)<br />   (setvar "osmode" 128)<br />   (setvar "orthomode" 1)<br />   (setq chklay (tblsearch "layer" "4"))<br />   (if (= chklay nil) (command "layer" "n" "4" "c" "50" "4" ""))<br />   (setvar "clayer" "4")<br />   (setvar "CECOLOR" "bylayer")<br />   (setvar "CELTYPE" "Continuous")<br />   (setq aa T)<br />   (vl-cmdf "LINE" PAUSE)<br />   (while aa<br />     (if (null (vl-cmdf PAUSE)) <br />       (progn <br />         (setvar "osmode" 0) <br />         (setvar "orthomode" 0) <br />         (princ"\n 垂直引入线  第4层") <br />         (setq aa nil)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

Klein

ssyfeng 发表于 2022-7-27 21:01
试试这个：

第一个想法是定义一个*error*函数，vl-cmdf的办法不错，学习了

xyp1964

1. (defun c:tt ()
   
2.   (setq la (getvar 'clayer)os (getvar 'osmode))
   
3.   (setvar 'osmode 128)
   
4.   (setvar 'orthomode 1)
   
5.   (setvar 'celtype "Continuous")
   
6.   (if (= (tblsearch "layer" "4") nil)
   
7.     (command "-layer" "n" "4" "c" "50" "4" "S" "4" "")
   
8.     (setvar "clayer" "4")
   
9.   )
   
10.   (command "LINE")
    
11.   (while (/= 0 (getvar "cmdactive")) (command pause))
    
12.   (setvar 'osmode os)
    
13.   (setvar 'orthomode 0)
    
14.   (setvar 'clayer la)
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (setq la (getvar 'clayer)os (getvar 'osmode))<br />   (setvar 'osmode 128)<br />   (setvar 'orthomode 1)<br />   (setvar 'celtype "Continuous")<br />   (if (= (tblsearch "layer" "4") nil)<br />     (command "-layer" "n" "4" "c" "50" "4" "S" "4" "")<br />     (setvar "clayer" "4")<br />   )<br />   (command "LINE")<br />   (while (/= 0 (getvar "cmdactive")) (command pause))<br />   (setvar 'osmode os)<br />   (setvar 'orthomode 0)<br />   (setvar 'clayer la)<br />   (princ)<br /> )