两种出错处理方式:一种是对出错函数进行重定义,一种是对错误进行捕捉处理。
- ;;===================================================================================================
- ;;===================================================================================================
- ;;===========================================两种出错处理方式========================================
- ;;===================================================================================================
- ;;===================================================================================================
- ;;=============================================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
- )