[熊掌定制]无聊发一个捕获错误的函数

鱼与熊掌

2. ;截取错误,并且提示
   
3. ;con ,错误时候的处理方式
   
4. (defun cx-catch(fun lst con / run)
   
5.   (setq run(vl-catch-all-apply fun lst))
   
6.   (if(vl-catch-all-error-p run)
   
7.     (progn
   
8.       (setq msg(vl-catch-all-error-message run))
   
9.       (setq msg
   
10.         (cx-ErrToStr msg)
    
11.       )
    
12.       (prompt
    
13.         (strcat
    
14.           "\n运行中发现错误,函数:"
    
15.           (vl-symbol-name  fun)
    
16.           "\n错误:"
    
17.           msg
    
18.           "\n"
    
19.         )
    
20.       )
    
21.       (eval con)
    
22.     )
    
23.     run
    
24.   )
    
25. )

;截取错误,并且提示<br /> ;con ,错误时候的处理方式<br /> (defun cx-catch(fun lst con / run)<br />   (setq run(vl-catch-all-apply fun lst))<br />   (if(vl-catch-all-error-p run)<br />     (progn<br />       (setq msg(vl-catch-all-error-message run))<br />       (setq msg<br />         (cx-ErrToStr msg)<br />       )<br />       (prompt <br />         (strcat<br />           "\n运行中发现错误,函数:"<br />           (vl-symbol-name  fun)<br />           "\n错误:"<br />           msg<br />           "\n"<br />         )<br />       )<br />       (eval con)<br />     )<br />     run<br />   )<br /> )

;发一个实例.

     (foreach x ss1_Dui
                (cx-catch 'cx-Beam-Main (list x) '
                        (progn
                                (prompt "提示:出现错误的标注堆已经改成红色.\n")
                                
                                (apply 'cx-mak-2ptrc (get-box x))
                                (cx-entmod (entlast) '(62 8) '(1 "Defpoints"))
                                (cx-gs x 1)
                        )
                )
        )

;函数2.错误提示转换.
;CAD自带的错误提示总是让人琢磨不透.
;如果整理好已经存在的错误提示,变成中文,或许更好理解.
;程序的原型. 往后完善,或者期待你们的完善.

2. (defun cx-ErrToStr(msg)
   
3.   (cond
   
4.     ((= msg "函数被取消")
   
5.       (setq msg "用户中止")
   
6.     )
   
7.     ((= msg "lentityp nil")
   
8.       (setq msg "图元为空.")
   
9.     )
   
10.     (t
    
11.       (setq msg (strcat "错误:"msg))
    
12.     )
    
13.   )
    
14. )

(defun cx-ErrToStr(msg)<br />   (cond<br />     ((= msg "函数被取消")<br />       (setq msg "用户中止")<br />     )<br />     ((= msg "lentityp nil")<br />       (setq msg "图元为空.")<br />     )<br />     (t <br />       (setq msg (strcat "错误:"msg))<br />     )<br />   )<br /> )

illcyt

熊掌又来了！

鱼与熊掌

illcyt 发表于 2015-2-8 18:23
熊掌又来了！

请注意 这不是委员吗.

菜卷鱼

顶一个！！

illcyt

鱼与熊掌 发表于 2015-2-8 18:59
请注意 这不是委员吗.

啥情况，委员？！

cnks

支持一下

kizj

赞一个先，虽然看的不是很懂

fl202

我一直想要一个这样的程序，类似于VBA的 On error goto  。
因为很多程序设置了全局变量，如果和别的程序命名相同，而赋值类型不同，经常会出现不匹配的错误。
如果程序本身能捕捉到错误，并执行重新初始化的语句，然后重新执行程序，就可以解决问题了。。。

鱼与熊掌

fl202 发表于 2015-2-10 09:11
我一直想要一个这样的程序，类似于VBA的 On error goto  。
因为很多程序设置了全局变量，如果和别的程序命 ...

那就是错误处理,并且重新运行程序?  这个在错误处理的运用中有说到的.可以参见G版的帖子.
我这个是为了捕获单句.你这个是为了捕获整个程序的错误.
可以定义error函数.
如.

2. (defun cxsta (/ msg)
   
3.         (cx-begin '(("cmdecho" 0) 0 (cx-Rev-Scr)))
   
4.         (setq *scrpts* (cx-get-Scr2Pt))
   
5.         (setq $lt-errormsg$
   
6.                 'cx-ErrToStr
   
7.         )
   
8. )

(defun cxsta (/ msg)<br />         (cx-begin '(("cmdecho" 0) 0 (cx-Rev-Scr)))<br />         (setq *scrpts* (cx-get-Scr2Pt))<br />         (setq $lt-errormsg$<br />                 'cx-ErrToStr<br />         )<br /> )

;当错误时,运行 cx-rev-scr  这个是我自定义函数  意思是运行屏幕效果返回.

fl202

鱼与熊掌 发表于 2015-2-10 13:17
那就是错误处理,并且重新运行程序?  这个在错误处理的运用中有说到的.可以参见G版的帖子.
我这个是为了捕 ...

谢谢提醒！
把初始化语句放到错误处理的函数中去，不用重新执行函数。这样就避免了全局变量与其它程序冲突，导致程序出错的事了。