捕捉恢复之程序出错或者中途退出

hhh454

(defun c:tt( / )
  (vl-load-com)
;错误恢复捕捉
(defun *MYERR* (MSG)
(setvar "CMDECHO" CMD_OLD)
(setvar "OSMODE" OS_OLD)
(setq *ERROR* *OLDERR*)
(if (= MSG "完美退出。谢谢使用。")
(princ (strcat "\\n>>>" MSG))
(princ "\\n>>>虽然中途退出了，对象捕捉已经被恢复。")
)
(princ)
)
(setq *OLDERR* *ERROR*
*ERROR*  *MYERR*
OS_OLD   (getvar "OSMODE")
CMD_OLD  (getvar "CMDECHO")
)
;----绘制部分----

(你的程序)

(princ);_关闭程序返回值
);_程序结束
(princ "\n**********春婵程序加载完成,启动命令：tt **********")
(princ "\n")

hhh454

999999 发表于 2020-8-16 17:50
优秀优秀，请问大神，是不是在（你的程序）这里插入其它功能的代码的话，那启动命令就要删掉， ...

是的，删除defun这一行，注意括号对称

999999

优秀优秀，请问大神，是不是在（你的程序）这里插入其它功能的代码的话，那启动命令就要删掉，用您的第一个启动命令就能启动了呢

999999

hhh454 发表于 2020-8-17 12:37
是的，删除defun这一行，注意括号对称

谢谢大神的解答