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

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

1. ;;===================================================================================================
2. ;;===================================================================================================
3. ;;===========================================两种出错处理方式========================================
4. ;;===================================================================================================
5. ;;===================================================================================================
7. ;;=============================================01.出错函数===========================================
9. (defun c:tt()
10.   ;;备份系统出错函数
11.   (setq *error*_bak *error*)
12.   ;;将自定义出错函数赋值给系统出错函数
13.   (setq *error* *error*_non)
14.   ;;备份捕捉
15.   (setq osmode_bak (getvar "osmode"))
16.   
17.   ;;----------------------------------------
18.   (setvar "osmode" 0)
19.   (getpoint)
20.   (command "line" pause pause "")
21.   ;;----------------------------------------
22.   
23.   ;;正常执行也要还原出错函数
24.   (setq *error* *error*_bak)
25.   ;;正常执行也要还原修改的变量
26.   (setvar "osmode" osmode_bak)
27. )
29. ;;定义自己的出错函数
30. (defun *error*_non (msg)
31.   ;;对于CAD内置command命令执行的使用(command)取消执行，然后执行后面语句
32.   (command)
33.   ;;将系统出错函数进行还原
34.   (setq *error* *error*_bak)
35.   ;;出错后还原修改的变量
36.   (setvar "osmode" osmode_bak)
37. )
40. ;;=============================================02.错误捕捉===========================================
42. ;;功 能:命令是否存在
43. ;;参 数:命令字符串
44. ;;返回值:存在为T，否则为nil
45. (defun isCommandExist(commandstr / candcommandstr isexist myvalue)
46.   (setq cAndCommandStr (strcat "c:" commandStr))
47.   (if (equal (type (eval (read cAndCommandStr))) 'subr)
48.     ;;说明是用lisp的defun定义的命令
49.     (progn
50.       (setq isExist T)
51.       ;(print "命令存在!")
52.     )
53.     ;;不是lisp中defun定义的命令
54.     (progn
55.       (if
56.         ;;if判断的条件
57.         (not
58.           ;;捕捉错误，错误存在为T，不存在为FALSE
59.           (vl-catch-all-error-p
60.             ;;将语句执行结果返回给myvalue,语句执行出错myvalue值为#<%catch-all-apply-error%>，不出错的话就是语句执行后的结果
61.             (setq myvalue
62.               ;;执行语句，并且用vl-catch-all-apply捕捉错误，注意后面的格式，第一个为函数注意前面用单引号，后面为函数参数表
63.               (vl-catch-all-apply '(lambda (x) (progn (command x) (setq lastCommand (getvar "LASTPROMPT")) (if (not (wcmatchlastCommand "*未知命令*")) (command "ESC")))) (list commandStr))
64.             )
65.           )
66.         )
67.         ;;if条件后的第一条语句
68.         ;;如果执行出错就执行下面这句
69.         (progn
70.           (setq isExist nil)
71.           ;(print "命令不存在!")
72.         )
73.         ;;if条件后的第二条语句
74.         ;;如果执行出错，就捕捉错误，执行下面这句
75.         (progn
76.           (setq isExist T)
77.           ;(print "命令存在!")
78.         )
79.       );;end if
80.       ;;取消命令操作
81.       (if isExist
82.         (progn
83.           (command)
84.         )
85.       );;end if
86.     );;end progn
87.   );;end if
88.   
89.   ;;输出值，命令存在时是T，否则是nil
90.   isExist
91. )