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

ninja37 · 发表于 2022-7-27 18:34:00

请教一下各位大师，下面有一段代码。
(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 · 发表于 2022-7-27 21:01:00

试试这个：

copy

(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)
)

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

发表回复

精选推荐