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

kucha007

该文章由G版编写，本着学习的心态梳理了一遍,函数名变量名尽可能使用通俗易懂的方式
大家可直接下载Lsp文件进行阅读：

该文章的函数有三种用法：

1.   Gxl-ErrStaSys  -> Gxl-ErrEnd ;只针对系统变量的恢复
   
2.   Gxl-ErrSta     -> Gxl-ErrEnd ;系统变量+函数+编组
   
3.   Gxl-ErrStaNrm  -> Gxl-ErrEndNrm ;只针对自定义常量的恢复
   

  Gxl-ErrStaSys  -> Gxl-ErrEnd ;只针对系统变量的恢复<br />   Gxl-ErrSta     -> Gxl-ErrEnd ;系统变量+函数+编组<br />   Gxl-ErrStaNrm  -> Gxl-ErrEndNrm ;只针对自定义常量的恢复<br />

这是我根据文章得到的自用函数:

1. (if (null vlax-dump-object) (vl-load-com));将Visual LISP扩展功能加载到 AutoLISP
   
2. (defun C:TT (/ *error* CurDoc *Old_SysVar*)
   
3.   (setq CurDoc (vla-get-activedocument (vlax-get-acad-object)))
   
4.   (defun *error* (x)  ;出错函数
   
5.     ;其它需要恢复的内容
   
6.     (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复
   
7.     (vla-endundomark CurDoc) ;错误时结束编组
   
8.   )
   
9. 
   
10.   (while (eq 8 (logand 8 (getvar 'undoctl)))
    
11.     (vla-endundomark CurDoc)
    
12.   ) ;关闭以前的编组
    
13.   (vla-startundomark CurDoc) ;记录编组
    
14.     (progn ;记录系统变量
    
15.       (setq *Old_SysVar* '());清空变量,避免出错
    
16.       (setq *Old_SysVar*
    
17.           (mapcar
    
18.             '(lambda (a / b)
    
19.               (if (setq b (getvar (car a)))
    
20.                   (progn
    
21.                     (vl-catch-all-apply 'setvar a)
    
22.                     (list (car a) b)
    
23.                   )
    
24.               )
    
25.             )
    
26.             (list
    
27.               (list "DIMZIN" 0);保留前导和后续的零
    
28.               (list "CMDECHO" 0) ;关闭回显
    
29.             )
    
30.           )
    
31.       );记录参数
    
32.     )
    
33.    
    
34.     ;你的程序
    
35.    
    
36.     (command "redraw");清空一行
    
37.     (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复
    
38.   (vla-endundomark CurDoc) ;结束编组
    
39.   (princ)
    
40. )
    

(if (null vlax-dump-object) (vl-load-com));将Visual LISP扩展功能加载到 AutoLISP<br /> (defun C:TT (/ *error* CurDoc *Old_SysVar*) <br />   (setq CurDoc (vla-get-activedocument (vlax-get-acad-object)))<br />   (defun *error* (x)  ;出错函数<br />     ;其它需要恢复的内容<br />     (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复<br />     (vla-endundomark CurDoc) ;错误时结束编组<br />   )<br /> <br />   (while (eq 8 (logand 8 (getvar 'undoctl))) <br />     (vla-endundomark CurDoc)<br />   ) ;关闭以前的编组<br />   (vla-startundomark CurDoc) ;记录编组<br />     (progn ;记录系统变量<br />       (setq *Old_SysVar* '());清空变量,避免出错<br />       (setq *Old_SysVar* <br />           (mapcar <br />             '(lambda (a / b) <br />               (if (setq b (getvar (car a)))<br />                   (progn <br />                     (vl-catch-all-apply 'setvar a)<br />                     (list (car a) b)<br />                   )<br />               )<br />             )<br />             (list <br />               (list "DIMZIN" 0);保留前导和后续的零<br />               (list "CMDECHO" 0) ;关闭回显<br />             )<br />           )<br />       );记录参数<br />     )<br />     <br />     ;你的程序<br />     <br />     (command "redraw");清空一行<br />     (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复<br />   (vla-endundomark CurDoc) ;结束编组<br />   (princ)<br /> )<br />

moshouhot

我今天刚在这里看到这篇文章https://www.cnblogs.com/slowstep/p/16375260.html
被里面的gxl-error-init1和gxl-error-init2的作用绕晕了，还是你点醒了我。

1. ;记录系统变量，并初始化系统变量，重定义*error*函数
   
2. (defun ErrSta ()
   
3.         (if (null vlax-dump-object) (vl-load-com))  
   
4.         (setq *CurDoc* (vla-get-activedocument (vlax-get-acad-object)))
   
5.         ;; 定义错误处理函数
   
6.   (defun *error* (x)  ;出错函数
   
7.     (vla-endundomark *CurDoc*) ;错误时结束编组
   
8.     (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复
   
9.     (princ)
   
10.   )
    
11.         ;; 关闭可能已经活动的先前undo标记
    
12.         (while (eq 8 (logand 8 (getvar 'undoctl)))
    
13.                 (vla-endundomark *CurDoc*)
    
14.         )
    
15.         ;; 开始一个新的undo标记
    
16.         (vla-startundomark *CurDoc*)
    
17.         
    
18.         (progn ;记录系统变量
    
19.                 (setq *Old_SysVar* '());清空变量,避免出错
    
20.                 (setq *Old_SysVar*
    
21.                         (mapcar
    
22.                                 '(lambda (a / b)
    
23.                                          (if (setq b (getvar (car a)))
    
24.                                                  (progn
    
25.                                                          (vl-catch-all-apply 'setvar a)
    
26.                                                          (list (car a) b)
    
27.                                                  )
    
28.                                          )
    
29.                                  )
    
30.                                 (list
    
31.                                         (list "DIMZIN" 0) ; 固定尺寸零的显示
    
32.                                         (list "CMDECHO" 0) ; 关闭命令行回显
    
33.                                         (list "ATTDIA" 0) ; 控制属性对话框的使用
    
34.                                         (list "ATTREQ" 0) ; 控制属性请求的使用
    
35.                                         (list "BLIPMODE" 0) ; 控制点标记的可见性
    
36.                                         (list "OSMODE" 0) ; 控制对象捕捉的可用性
    
37.                                         (list "ORTHOMODE" 0) ; 控制正交模式
    
38.                                         (list "MIRRTEXT" 0) ; 控制文本的镜像行为
    
39.                                 )
    
40.                         )
    
41.                 );记录参数
    
42.         )
    
43.         (princ)
    
44. )
    
45. ;;;例4:自定义通用错误处理恢复函数
    
46. (defun ErrEnd ();恢复参数
    
47.         (vla-endundomark *CurDoc*)
    
48.         (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复
    
49.         (princ)
    
50. )
    
51. 
    
52. ;;;实际运用示例:
    
53. (defun C:TT ()
    
54.         (ErrSta);记录参数
    
55.         ;; 用户的程序逻辑在下面这里...
    
56.         
    
57.         ;; 用户的程序逻辑在上面这里...
    
58.         (ErrEnd);恢复参数
    
59.         (princ)
    
60. )
    

;记录系统变量，并初始化系统变量，重定义*error*函数<br /> (defun ErrSta () <br />         (if (null vlax-dump-object) (vl-load-com))  <br />         (setq *CurDoc* (vla-get-activedocument (vlax-get-acad-object)))<br />         ;; 定义错误处理函数<br />   (defun *error* (x)  ;出错函数<br />     (vla-endundomark *CurDoc*) ;错误时结束编组<br />     (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复<br />     (princ)<br />   )<br />         ;; 关闭可能已经活动的先前undo标记<br />         (while (eq 8 (logand 8 (getvar 'undoctl))) <br />                 (vla-endundomark *CurDoc*)<br />         )<br />         ;; 开始一个新的undo标记<br />         (vla-startundomark *CurDoc*)<br />         <br />         (progn ;记录系统变量<br />                 (setq *Old_SysVar* '());清空变量,避免出错<br />                 (setq *Old_SysVar* <br />                         (mapcar <br />                                 '(lambda (a / b) <br />                                          (if (setq b (getvar (car a)))<br />                                                  (progn <br />                                                          (vl-catch-all-apply 'setvar a)<br />                                                          (list (car a) b)<br />                                                  )<br />                                          )<br />                                  )<br />                                 (list <br />                                         (list "DIMZIN" 0) ; 固定尺寸零的显示<br />                                         (list "CMDECHO" 0) ; 关闭命令行回显<br />                                         (list "ATTDIA" 0) ; 控制属性对话框的使用<br />                                         (list "ATTREQ" 0) ; 控制属性请求的使用<br />                                         (list "BLIPMODE" 0) ; 控制点标记的可见性<br />                                         (list "OSMODE" 0) ; 控制对象捕捉的可用性<br />                                         (list "ORTHOMODE" 0) ; 控制正交模式<br />                                         (list "MIRRTEXT" 0) ; 控制文本的镜像行为<br />                                 )<br />                         )<br />                 );记录参数<br />         )<br />         (princ)<br /> )<br /> ;;;例4:自定义通用错误处理恢复函数<br /> (defun ErrEnd ();恢复参数<br />         (vla-endundomark *CurDoc*)<br />         (if *Old_SysVar* (foreach xx *Old_SysVar* (apply 'setvar xx)));参数恢复<br />         (princ)<br /> )<br /> <br /> ;;;实际运用示例:<br /> (defun C:TT () <br />         (ErrSta);记录参数<br />         ;; 用户的程序逻辑在下面这里...<br />         <br />         ;; 用户的程序逻辑在上面这里...<br />         (ErrEnd);恢复参数<br />         (princ)<br /> )<br />

muai2010

牛，正常要求定制插件收费高么

kucha007

muai2010 发表于 2024-4-6 13:19
牛，正常要求定制插件收费高么

联系方式私你了

我爱lisp

很好，这个论题又有新研究了，确实之前的东西云山雾罩，很难理解。(vlax-for l (vla-get-layers
              (vla-get-activedocument (vlax-get-acad-object))
            )
  (setq        em (vl-catch-all-apply
             'vla-put-linetype
             (list l "My Linetype")
           )
  )
  (if (vl-catch-all-error-p em)
    (princ (strcat "\nLinetype " "My Linetype" " Not Found. "))
  )
)

tensir

感谢作者的分享！

13763815647

好帖子，顶一个

伍星

感谢作者的分享！