【Visual Lisp】两种出错处理方式

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

两种出错处理方式：一种是对出错函数进行重定义，一种是对错误进行捕捉处理。

;;===================================================================================================
;;===================================================================================================
;;===========================================两种出错处理方式========================================
;;===================================================================================================
;;===================================================================================================
;;=============================================01.出错函数===========================================
(defun c:tt()
;;备份系统出错函数
(setq *error*_bak *error*)
;;将自定义出错函数赋值给系统出错函数
(setq *error* *error*_non)
;;备份捕捉
(setq osmode_bak (getvar "osmode"))
;;----------------------------------------
)
(getpoint)
(command "line" pause pause "")
;;----------------------------------------
;;正常执行也要还原出错函数
(setq *error* *error*_bak)
;;正常执行也要还原修改的变量
(setvar "osmode" osmode_bak)
)
;;定义自己的出错函数
(defun *error*_non (msg)
;;对于CAD内置command命令执行的使用(command)取消执行，然后执行后面语句
(command)
;;将系统出错函数进行还原
(setq *error* *error*_bak)
;;出错后还原修改的变量
(setvar "osmode" osmode_bak)
)
;;=============================================02.错误捕捉===========================================
;;功能:命令是否存在
;;参数:命令字符串
;;返回值:存在为T，否则为nil
(defun isCommandExist(commandstr / candcommandstr isexist myvalue)
(setq cAndCommandStr (strcat "c:" commandStr))
(if (equal (type (eval (read cAndCommandStr))) 'subr)
;;说明是用lisp的defun定义的命令
(progn
(setq isExist T)
;(print "命令存在!")
)
;;不是lisp中defun定义的命令
(progn
(if
;;if判断的条件
(not
;;捕捉错误，错误存在为T，不存在为FALSE
(vl-catch-all-error-p
;;将语句执行结果返回给myvalue,语句执行出错myvalue值为#<%catch-all-apply-error%>，不出错的话就是语句执行后的结果
(setq myvalue
;;执行语句，并且用vl-catch-all-apply捕捉错误，注意后面的格式，第一个为函数注意前面用单引号，后面为函数参数表
(vl-catch-all-apply '(lambda (x) (progn (command x) (setq lastCommand (getvar "LASTPROMPT")) (if (not (wcmatchlastCommand "*未知命令*")) (command "ESC")))) (list commandStr))
)
)
)
;;if条件后的第一条语句
;;如果执行出错就执行下面这句
(progn
(setq isExist nil)
;(print "命令不存在!")
)
;;if条件后的第二条语句
;;如果执行出错，就捕捉错误，执行下面这句
(progn
(setq isExist T)
;(print "命令存在!")
)
);;end if
;;取消命令操作
(if isExist
(progn
(command)
)
);;end if
);;end progn
);;end if
;;输出值，命令存在时是T，否则是nil
isExist
)