【Gu_xl】Lisp程序设计错误处理的技巧

Gu_xl

    这篇文章原本是为 “明经VLISP开发宝典”准备的，但由于种种原因，现在出书没有进展，若一直尘封在电脑里，觉得甚为可惜，所以先拿出来和大家一块分享，内容有不妥之处，请大家拍砖！

Lisp程序设计错误处理的技巧

——作者： Gu_xl

（源自我的博客：http://guxl.mjtd.com/?p=14）

任何程序在运行中都可能不完全会按照程序设计者预想的方式去运行，程序运行中会出现各种意想不到的情况，AutoLisp提供的标准错误处理函数*error*,仅能告诉你程序运行有了错误，但不能对错误进行善后处理。这对于一个优秀的程序来说，是不能忍受的，为此，我们应当用自定义的错误处理函数来改善这种情况，使程序在出现任何错误情况下都能正确处理！

一、     在程序内设置局部自定义错误处理函数

AutoLisp提供内部提供了一个标准的自定义错误处理函数：

1.              (*error* string)

当*error*函数值不为空，AutoLisp程序运行出错时，AutoCAD会传递给*error*函数的参数string一个错误信息字符串值，并自动执行*error*函数。

根据这个错误处理运行机制，我们可以根据自己的需要,对错误处理函数*error*进行自定义。

例1：自定义如下错误处理函数：

1.      (defun *error*(msg)

2.      (princ "error:")

3.      (princ msg)      ;_ 打印错误信息

4.      (princ)         

5.      )

当Lisp程序运行出错时，系统会自动调用*error*函数，打印出错误处理信息。但是这个错误处理函数几乎没有什么用，该错误处理函数仅仅是对错误信息进行了输出，没有对可能出现的错误进行任何处理，这可不是我们想要的程序，我们需要对*error*函数内容根据程序处理的需要进行定制！

例2：下面是一个绘制三角形的例子，程序目的是在图上选取三点，自动绘制三角形，。

1.      (defun c:tt1 (/ p1p2 osmode cmdecho)

2.      (setq cmdecho(getvar “cmdecho”)) ;_ 保存系统变量cmdecho值

3.      (setvar “cmdecho”0) ;_ 关闭命令行的回显提示

4.      ;保存系统变量osmode值

5.      (setq osmode(getvar “osmode”))

6.      (setvar “osmode” 0);_ 关闭捕捉模式

7.      (setq p1 (getpoint “\n输入第一点: “)

8.            P2 (getpoint “\n输入第二点: “)

9.            P3 (getpoint “\n输入第三点: “)

10.     )

11.   (vl-cmdf “_.pline”p1 p2 p3 “c”)

12.   (setvar “cmdecho”cmdecho) ;_ 恢复cmdecho系统变量

13.   (setvar “osmode”osmode) ;_ 恢复osmode系统变量

14.   (princ)

15.   )

在程序正常运行的情况下，程序会在绘制完三角形后自动恢复系统变量”osmode”、“ cmdecho”，但是在图面选取点时，按下ESC键，或某个点输入为空，会导致程序出错，后面的恢复系统变量值的代码则不会执行，程序关闭了捕捉模式，我们不得不手动来重新设置捕捉方式。为此，我们在程序的开始自定义一个错误处理函数*error*，在*error*函数内添加恢复系统变量”osmode”、“ cmdecho”的代码，在程序运行出错时自动调用*error*函数，*error*函数内恢复系统变量”osmode”、“ cmdecho”的代码自动运行，这便达到了我们对程序错误处理的要求！示例代码如下（c:tt2）：

1.      (defun c:tt2 (/ p1p2 osmode cmdecho *error*)

2.        (defun *error* (msg)

3.        (setvar "cmdecho" cmdecho) ;_ 恢复cmdecho系统变量

4.        (setvar "osmode" osmode) ;_ 恢复osmode系统变量

5.        (princ "error: ")

6.        (princ msg)      ;_ 打印错误信息

7.        (princ)         

8.        )

9.      ;;;以下为主程序内容

10.     (setq cmdecho (getvar "cmdecho"));_ 保存系统变量cmdecho值

11.     (setvar "cmdecho" 0) ;_ 关闭命令行的回显提示

12.     ;保存系统变量osmode值

13.     (setq osmode (getvar "osmode"))

14.     (setvar "osmode" 0) ;_ 关闭捕捉模式

15.     (setq p1 (getpoint "\n输入第一点: ")

16.          P2 (getpoint "\n输入第二点: ")

17.          P3 (getpoint "\n输入第三点: ")

18.       )

19.     (vl-cmdf "_.pline" p1 p2 p3"c")

20.     (setvar "cmdecho" cmdecho) ;_ 恢复cmdecho系统变量

21.     (setvar "osmode" osmode) ;_ 恢复osmode系统变量

22.     (princ)

23.     )

二、     通用错误处理函数的处理技巧

请注意，在上面例2的程序中，我们是将*error*函数声明为局部变量，则该错误处理仅在test函数范围内有效！这样我们就需要在每个程序里都要添加类似的错误处理代码，其实大部分程序的错误处理代码都类似，如果在每个程序里都添加相同的代码，是一件很讨厌的事儿，会导致代码越来越长，为此，我们可以做一个通用错误处理函数，以后仅需要调用该函数即可，无需再写出长长的一串代码！

1、例3：自定义通用错误处理初始化函数

1.      ;;(gxl-error-init syslst) 初始化*error*

2.       file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif;;;功能：保存syslst给定的系统变量值，并按表给定的系统变量值设置系统变量

3.       file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif;;; 参数 syslst 系统变量及其设置值列表 例如: '("osmode" 0 "cmdecho" 0  "cecolor" “1”)

4.       (defun gxl-error-init (syslst / sysnamesysvar)

5.        (setq *olderror* *error*) ;_ 储存*error*函数

6.        ;;自定义出错函数 *error*

7.        (defun *error* (msg / sysname sysvar)

8.          (if *sysvarInit*;_ 储存的系统变量值列表

9.            (while (and (setq sysname (car*sysvarInit*))

10.             (setq sysvar (cadr *sysvarInit*))

11.            )

12.       (setq *sysvarInit* (cddr *sysvarInit*))

13.       (setvar sysname sysvar)

14.         )

15.       )

16.       (setq *error* *olderror*)

17.       (or (wcmatch(strcase msg) "*BREAK,*CANCEL*,*EXIT*")

18.       (princ (strcat "\n** Error: " msg" **"))

19.       )

20.     )

21.     ;;如果有活动编组，先结束之

22.     (if (= 8 (logand (getvar "undoctl")8))

23.       (command "_undo" "_e")

24.     )

25.     (command "_undo" "_be")

26.     (if syslst

27.       (while (and (setqsysname (car syslst))

28.           (setq sysvar (cadr syslst))

29.          )

30.         (setq *sysvarInit*

31.            (append *sysvarInit*

32.                (list sysname (getvar sysname))

33.            )

34.         ) ;_ 储存系统变量

35.         (setq syslst (cddr syslst))

36.         (setvar sysname sysvar) ;_ 设置系统变量

37.       )

38.     )

39.     (princ)

40.    )

2、例4：自定义通用错误处理恢复函数

1.       file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif;;(gxl-error-end) 恢复*error*

2.      file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif (defun   gxl-error-end()

3.           (if(= 8 (logand (getvar "undoctl") 8))

4.           (command "_undo" "_e")

5.         )

6.         (if*olderror*

7.           (setq *error* *olderror*

8.             *olderror* nil

9.           ) ;_ 恢复*error*函数

10.      )

11.      (if *sysvarInit* ;_ 恢复储存的系统变量

12.        (while (and (setq sysname (car*sysvarInit*))

13.            (setq sysvar (cadr *sysvarInit*))

14.           )

15.          (setq *sysvarInit* (cddr *sysvarInit*))

16.          (setvar sysname sysvar)

17.        )

18.      )

19.      (setq *Function* nil

20.        *UndoMode* nil

21.      )

22.      (princ)

23.     )

实际运用示例:

1.      (defun c:tt3()

2.      (gxl-error-init '("osmode" 0 "cmdecho" 0  "cecolor" "1"))

3.      ;;;主程序内容

4.      .

5.      .

6.      .

7.      (gxl-error-end) ;_恢复*error*

8.      (princ)

9.      )

3、gxl-error-init syslst错误处理函数，当程序运行出错时只可以对保存的系统变量进行恢复，但这在复杂的程序面前，并不能满足我们的需要，因为各种各样的程序在运行出错后可能还要进行其他各种各样不同的处理，为此，我们要对gxl-error-init函数进行进一步改进，使得gxl-error-init函数可以应对各种可能出现的各种问题。

例5、改进后的自定义通用错误处理初始化函数

1.      ;;;( gxl-error-init1syslst fun UndoMode)

2.      ;;;功能： 多功能错误处理函数

3.      ;;;参数

4.      ;;; syslst = 系统变量表

5.      ;;; fun = 要执行的函数 ,无动作则为nil

6.      ;;; UndoMode = Undo处理模式 0 = 不编组 1 = 仅仅编组 2 = 回到出错前

7.      (defungxl-error-init1 (syslst fun UndoMode / sysname sysvar)

8.        (setq *olderror**error*

9.          *Function* fun

10.       *UndoMode* UndoMode

11.     )

12.     (defun *error* (msg / sysname sysvar)

13.       (if (=2 *UndoMode*)

14.         (progn

15.       (if (= 8 (logand (getvar"undoctl") 8))

16.         (command "_undo" "_e")

17.       )

18.       (command "_U")

19.         )

20.         (progn

21.       (if *sysvarInit*

22.         (while (and (setq sysname (car *sysvarInit*))

23.                 (setq sysvar (cadr *sysvarInit*))

24.            )

25.           (setq *sysvarInit* (cddr *sysvarInit*))

26.           (setvar sysname sysvar)

27.         )

28.       )

29.       (if *Function* (VL-CATCH-ALL-APPLY*Function*)) ;_执行函数

30.       (if (= *UndoMode* 1)

31.         (if(= 8 (logand (getvar "undoctl") 8))

32.           (command "_undo" "_e")

33.         )

34.       )

35.         )

36.       )

37.       (setq *error* *olderror*

38.         *olderror* nil

39.         *Function* nil

40.         *UndoMode* nil

41.       )

42.       (or (wcmatch(strcase msg) "*BREAK,*CANCEL*,*EXIT*")

43.       (princ (strcat "\n** Error: " msg" **"))

44.       )

45.     )

46.   

47.     (if (or (= *UndoMode* 1) (= *UndoMode* 2))

48.       (progn

49.         ;;如果有活动编组，先结束编组

50.         (if (= 8 (logand (getvar"undoctl") 8))

51.       (command "_undo" "_e")

52.         )

53.         (command "_undo""_BE") ;_ 编组开始

54.       )

55.     )

56.     (if syslst

57.       (while (and (setqsysname (car syslst))

58.           (setq sysvar (cadr syslst))

59.          )

60.         (setq *sysvarInit*

61.            (append *sysvarInit*

62.                (list sysname (getvar sysname))

63.            )

64.         )

65.         (setq syslst (cddr syslst))

66.         (setvar sysname sysvar)

67.       )

68.     )

69.     (princ)

70.   )

错误处理应用范例:

1.      (defun c:tt4(/  tt1 p1 p2 p3 end)

2.        ;;初始化*error* 参数UndoMode根据需要可设置为 0 1 2

3.        (gxl-error-init1 (list 'blipmode 0 'cmdecho 0'osmode 0) 'tt1 2) ;_ 出错只编组

4.        (defun tt1 () ;_ 出错后*error*要执行的动作

5.          (alert "出错啦！")

6.          )

7.        (setq p1 (getpoint "\n第一点: "))

8.        (setq p2 (getpoint "\n第二点: "))

9.        (setq p3 (getpoint "\n第三点: "))

10.     (vl-cmdf "line" p1 p2 p3"c")

11.     ;;将UndoMode分别设置为 0 1 2，运行到以下任意位置按下ESC试试效果

12.     (setq p1 (getpoint "\n第一点: "))

13.     (setq p2 (getpoint "\n第二点: "))

14.     (setq p3 (getpoint "\n第三点: "))

15.     (vl-cmdf "line" p1 p2 p3"c")

16.     (setq p1 (getpoint "\n第一点: "))

17.     (setq p2 (getpoint "\n第二点: "))

18.     (setq p3 (getpoint "\n第三点: "))

19.     (vl-cmdf "line" p1 p2 p3"c")

20.     (setq p1 (getpoint "\n第一点: "))

21.     (setq p2 (getpoint "\n第二点: "))

22.     (setq p3 (getpoint "\n第三点: "))

23.     (vl-cmdf "line" p1 p2 p3"c")

24.     (GXL-ERROR-END)

25.     (princ)

26.   )

  可能有些读者觉得对于这样的出错处理函数中，对于系统变量表参数，要写一长串变量，也很麻烦，应为在程序中，我们经常要设置和使用的一些系统变量都数量有限，为此，我们提供另外一种错误处理的方法和思路，在初始化错误函数中保存一些常用的系统变量初始值，储存在全局变量中，然后初始化一些常用系统变量的值，程序中可以对这些已经保存的系统变量任意修改，在程序结束时用错误恢复函数自动恢复系统变量值，程序出错时由错误处理函数来恢复系统变量值。

我们将一些有关经常使用的系统变量名储存表，设为常量*SysVarNL*：

1.      ;;;*SysVarNL* 常用系统变量表

2.      (setq *SysVarNL*

3.             (list 'AUNITS      'AUPREC        'ATTDIA       'ATTREQ

4.           'BLIPMODE   'DIMZIN        'CECOLOR      'CELTYPE

5.           'CLAYER     'CMDECHO     'TRIMMODE      'EXPERT

6.           'HIGHLIGHT  'LUNITS        'LUPREC       'EDGEMODE

7.           'OSMODE     'ORTHOMODE   'TEXTSTYLE   'PLINEWID 'PLINEGEN

8.           'FILEDIA    'PICKBOX     'QAFLAGS   'UCSAXISANG

9.           'CELTSCALE 'NOMUTT 'PEDITACCEPT 'Mirrtext'limcheck

10.       )

11.   )

例6、自定义通用错误处理函数gxl-error-init2:

1.      ;;;自定义错误处理函数 gxl-error-init2

2.      ;;;参数

3.      ;;; fun = 要执行的函数,无动作则为nil

4.      ;;; UndoMode = Undo处理模式 0 = 不编组 1 = 仅仅编组 2 = 回到出错前

5.      (DEFUNgxl-error-init2 (fun UndoMode / sv 0lay os)

6.        ;;定义出错函数

7.        (defun *error* (msg / sysname sysvar)

8.          (if (=2 *UndoMode*)

9.            (progn

10.       (if (= 8 (logand (getvar"undoctl") 8))

11.         (command "_undo" "_e")

12.       )

13.       (command "_U")

14.         )

15.         (progn

16.       (if *Function* (VL-CATCH-ALL-APPLY*Function*)) ;_ 执行函数

17.       (if (= *UndoMode* 1)

18.         (if(= 8 (logand (getvar "undoctl") 8))

19.           (command "_undo" "_e")

20.         )

21.       )

22.         )

23.       )

24.       (if (and *SVARL* *SysVarNL*)

25.        (MAPCAR '(lambda (a b) (VL-CATCH-ALL-APPLY'setvar (list a b)))

26.            *SYSVARNL*

27.            *SVARL*

28.        )

29.      )

30.       ;;回收变量值

31.       (setq *error* *olderror*

32.         *olderror* nil

33.         *Function* nil

34.         *UndoMode* nil

35.         *SVARL* nil

36.       )

37.       (or (wcmatch(strcase msg) "*BREAK,*CANCEL*,*EXIT*")

38.       (princ (strcat "\n** Error: " msg" **"))

39.       )

40.     )

41.     ;;程序开始

42.     (SETQ *SVARL* nil) ;_ *SVARL*用于储存系统变量表*SysVarNL*中系统变量对应的值

43.     (setq *SVARL* (mapcar '(lambda (x) (GETVARx)) *SYSVARNL*))

44.     ;;对一些程序中必须要初始化为0的系统变量初始化为0

45.     (FOREACH SV '("ATTDIA"      "ATTREQ"      "BLIPMODE"   "CMDECHO"

46.           "DIMZIN"      "OSMODE"      "ORTHOMODE"  "MIRRTEXT"

47.              )

48.       (SETVAR SV 0)

49.     )

50.     (setq *olderror* *error*

51.       *Function* fun

52.       *UndoMode* UndoMode

53.     )

54.     ;;是否开始编组

55.     (if (or (= *UndoMode* 1) (= *UndoMode* 2))

56.       (progn

57.         ;;如果有活动编组，先结束编组

58.         (if (= 8 (logand (getvar"undoctl") 8))

59.       (command "_undo" "_e")

60.         )

61.         (command "_undo""_BE")

62.       )

63.     )

64.     ;| EXPERT = 5禁止显示提示“块已经存在。重新定义？”，使用DIMSTYLE 命令的“保存”选项时，如果输入

65.      的标注样式名已经存在，系统将显示该提示。\n\n如果 EXPERT 禁止显示一个提示，相应操作会认

66.      为用户已输入 y 确认提示。EXPERT 的设置会影响脚本、菜单宏、AutoLISP 及其命令函数。

67.      |;

68.     (SETVAR "EXPERT" 5)

69.     (SETVAR "CECOLOR""BYLAYER") ;_ 设置颜色随层

70.     (SETVAR "celtype""BYLAYER") ;_ 设置线型随层

71.     (SETVAR "LWDISPLAY" 1) ;_ 设置显示线宽

72.     (SETVAR "CELTSCALE" 1) ;_ 设置当前线形比例为1

73.     (SETVAR "PLINEGEN" 1) ;_ 设置围绕多段线顶点生成连续线型

74.   )

例7：gxl-error-init2对应的自定义通用错误处理恢复函数

1.      (defun  gxl-error-end2 ()

2.         (if (or (= *UndoMode* 1) (= *UndoMode* 2))

3.           (if (= 8 (logand (getvar"undoctl") 8))

4.             (command "_undo""_e")

5.           )

6.         )

7.         (if *olderror*

8.           (setq *error*    *olderror*

9.             *olderror* nil

10.        ) ;_ 恢复*error*函数

11.      )

12.      (if (and *SVARL* *SysVarNL*)

13.        (MAPCAR '(lambda (a b) (VL-CATCH-ALL-APPLY'setvar (list a b)))

14.            *SYSVARNL*

15.            *SVARL*

16.        )

17.      )

18.      (setq *Function*

19.         nil

20.        *UndoMode*

21.         nil

22.        *SVARL* nil

23.      )

24.      (princ)

错误处理应用示例:

1.      (defun c:tt5(/  tt1 p1 p2 p3 end)

2.        ;;;初始化*error* 参数UndoMode根据需要可设置为 0 1 2

3.        (gxl-error-init2 'tt1 2) ;_ 出错只编组,这里省去了系统变量设置

4.        (defun tt1 () ;_ 出错后*error*要执行的动作

5.          (alert "出错啦！")

6.          )

7.        (setq p1 (getpoint "\n第一点: "))

8.        (setq p2 (getpoint "\n第二点: "))

9.        (setq p3 (getpoint "\n第三点: "))

10.     (vl-cmdf "line" p1 p2 p3"c")

11.   ;;;将 UndoMode分别设置为 0 1 2，运行到以下任意位置按下ESC试试效果

12.     (setq p1 (getpoint "\n第一点: "))

13.     (setq p2 (getpoint "\n第二点: "))

14.     (setq p3 (getpoint "\n第三点: "))

15.     (vl-cmdf "line" p1 p2 p3"c")

16.     (setq p1 (getpoint "\n第一点: "))

17.     (setq p2 (getpoint "\n第二点: "))

18.     (setq p3 (getpoint "\n第三点: "))

19.     (vl-cmdf "line" p1 p2 p3"c")

20.     (setq p1 (getpoint "\n第一点: "))

21.     (setq p2 (getpoint "\n第二点: "))

22.     (setq p3 (getpoint "\n第三点: "))

23.     (vl-cmdf "line" p1 p2 p3"c")

24.     (GXL-ERROR-END2)

25.     (princ)

26.     )

三、      Vl-Catch-All-Apply函数捕捉错误的应用技巧

上面部分讨论的是传统的*error*方法，这种方法是对整个程序设置的统一的处理功能，无论程序中什么地方出错，都集中在这里处理！这种情况在程序比较简单，要处理的情况不多时，比较容易应付，因为这时程序需要处理的情况比较少！当程序的规模比较大，要处理的情况比较复杂时，就很难满足我们对程序错误处理的要求，特别是当出现同样的错误代码需要在程序的不同部分做出不同处理的时候。

幸运的是，AutoLisp另外还提供了三个错误处理函数。Vl-Catch-All-Apply函数能够捕捉指定函数的错误，Vl-Catch-All-Apply-Error-Message函数可以读取相关错误信息，Vl-Catch-All-Error-P函数可以测试Vl-Catch-All-Apply函数返回结果是否异常。

例如：下面这个函数是根据图上选取直角三角形的一条直角边，然后输入斜边长度，根据勾股定理计算另一直角边，并绘制三角形的例子：

1.      (defun c:tt6 ()

2.        ;; 初始化错误处理,出错后回到初始状态

3.        (gxl-error-init1 (list "cmdecho" 0"osmode" 0) nil 2)

4.        (setq p1 (getpoint "\n输入直角三角形直角边第一点: "))

5.        (setq p2 (getpoint p1 "\n输入直角三角形直角边第二点: "))

6.        (setq d1 (distance p1 p2))

7.        (vl-cmdf "_line" p1 p2"")

8.        (setq dd (getdist p1 "\n请输入斜边长度: "))

9.        ;;;根据勾股定理计算另一条直角边长度

10.     (setq d2  

11.        (VL-CATCH-ALL-APPLY ;_ 捕捉sqrt函数的错误

12.          'sqrt

13.          (list

14.            (- (* dd dd) (* d1 d1))

15.          )

16.        )

17.     )

18.   (if(VL-CATCH-ALL-ERROR-P d2) ;_ 当输入的斜边长度小于直角边长度时sqrt函数会出错

19.     (prong ;_ sqrt 函数结果异常

20.     (alert (VL-CATCH-ALL-ERROR-MESSAGE d2)) ;_ 提示错误信息

21.     (abcdefg) ;_ 制造一个错误退出程序

22.     )

23.     ;;;绘制三角形

24.     (progn

25.       (setq ang (+ (angle p1 p2) (* 0.5 pi)))

26.       (command "_line" p2 (polar p2 angd2) p1 "")

27.       )

28.     )

29.     (gxl-error-end) ;_ 恢复错误处理

30.     (princ)

31.     )

这样，自定义函数test就可以返回正确的结果或出错信息这两种结果，这是一种新的函数定义模式，其使用方法简而言之就是使用Vl-Catch-All-Apply对函数进行包装，然后使用Vl-Catch-All-Error-P判断包装函数返回值是否异常，若有异常,可使用Vl-Catch-All-Apply-Error-Message函数输出错误信息,并再此对错误进行处理。

你有种再说一遍

例子5和6中,
(vl-cmdf "_U") ;返回动作(CAD2017无法在error使用command)
可以改为
(Vlax-Invoke-Method *DOC* 'Sendcommand  "_U ")

fangmin723

好高深的出错处理技术，现在看的似懂非懂的，待后面慢慢研究，感谢G版分享，谢谢！

依然小小鸟

支持  好帖子  顶起来

夏生生

米西米西，学习学习，谢谢古版

kwok

好长的码，要好好学习了，正在弄出错返回，一直弄不明白.

smartstar

想G版学习啊！

自贡黄明儒

学习学习，谢谢G版

xuexicad1960

很好的帖子，仔细学习，慢慢琢磨。

潇湘飞雨

学习下了   嘻嘻

阿然

向无私以及务实的gu版致敬！

海盗曹

来学习GU版的好东西

dz-2011

写的很好,谢谢G版!