出错处理案例解析

redcat · 发表于 2011-1-13 09:21:18

本帖最后由 redcat 于 2011-2-12 12:40 编辑

;;;错误处理教程-1
(defun c:tt1 (/ varlst var_old var_new)
(defun *error* (inf)
(setq inf (strcase inf t)) ;将出错信息转换为小写字符串
(cond
((wcmatch inf "*break,*cancel*,*exit*,*取消*") ;|按了<Esc>键出错处理|;
(princ "\n用户按了<Esc>强制退出\n")
(mapcar 'setvar varlst var_old)
)
(t ;|其余错误处理|;
(princ (strcat "\n" inf))
(mapcar 'setvar varlst var_old)
)
) ;_ 结束cond
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(princ)
) ;_ 结束defun
(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq varlst '("osmode")
var_new '(0)
var_old (mapcar 'getvar varlst)
) ;_ 结束setq
(mapcar 'setvar varlst var_new)
(princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...")
(rtos (getreal "\n请输入实数:"));出错后转到内部自定义的*error*函数
(mapcar 'setvar varlst var_old)
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(princ)
) ;_ 结束defun
;;;错误处理教程-2
(defun c:tt2 (/ err inf varlst var_old var_new)
(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq err (vl-catch-all-apply
'(lambda ()
(setq varlst '("osmode")
var_new '(0)
var_old (mapcar 'getvar varlst)
) ;_ 结束setq
(mapcar 'setvar varlst var_new)
(princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...")
(rtos (getreal "\n请输入实数:"))
) ;_ 结束lambda
) ;_ 结束vl-catch-all-apply
) ;_ 结束setq
(if (vl-catch-all-error-p err)
(progn ;|出错处理|;
(setq inf (strcase (vl-catch-all-error-message err) t)) ;将出错信息转换为小写字符串
(cond ((wcmatch inf "*break,*cancel*,*exit*,*取消*") ;|按了<Esc>键出错处理|;
(princ "\n用户按了<Esc>强制退出\n")
(mapcar 'setvar varlst var_old)
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(t ;|其余错误处理|;
(princ (strcat "\n" inf))
(mapcar 'setvar varlst var_old)
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
)
) ;_ 结束cond
(princ)
) ;_ 结束progn
(progn ;|程序正常运行完毕的处理|;
(princ "\n")
(mapcar 'setvar varlst var_old)
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(princ)
) ;_ 结束progn
) ;_ 结束if
) ;_ 结束defun

;;;错误处理<a href="http://bbs.mjtd.com/forum-1-1.html" target="_blank" class="relatedlink">教程</a>-1 
(defun c:tt1 (/  varlst var_old var_new) 
  (defun *error* (inf) 
    (setq inf (strcase inf t)) ;将出错信息转换为小写字符串 
    (cond 
         ((wcmatch inf "*break,*cancel*,*exit*,*取消*") ;|按了<Esc>键出错处理|; 
           (princ "\n用户按了<Esc>强制退出\n") 
           (mapcar 'setvar varlst var_old) 
          ) 
        (t ;|其余错误处理|; 
            (princ (strcat "\n" inf)) 
            (mapcar 'setvar varlst var_old) 
        ) 
    ) ;_ 结束cond 
    (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
    (princ) 
  ) ;_ 结束defun 
  (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
  (setq varlst '("osmode") 
           var_new '(0) 
           var_old (mapcar 'getvar varlst) 
  ) ;_ 结束setq 
  (mapcar 'setvar varlst var_new) 
  (princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...") 
  (rtos (getreal "\n请输入实数:"));出错后转到内部自定义的*error*函数 
  (mapcar 'setvar varlst var_old) 
  (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
  (princ) 
) ;_ 结束defun 
;;;错误处理教程-2 
(defun c:tt2 (/ err inf varlst var_old var_new) 
   (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
   (setq err (vl-catch-all-apply 
                                     '(lambda () 
                                                  (setq varlst  '("osmode") 
                                                          var_new '(0) 
                                                          var_old (mapcar 'getvar varlst) 
                                                    ) ;_ 结束setq 
                                                   (mapcar 'setvar varlst var_new) 
                                                   (princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...") 
                                                   (rtos (getreal "\n请输入实数:")) 
                                        ) ;_ 结束lambda 
                       ) ;_ 结束vl-catch-all-apply 
  ) ;_ 结束setq 
  (if (vl-catch-all-error-p err) 
          (progn ;|出错处理|; 
            (setq inf (strcase (vl-catch-all-error-message err) t)) ;将出错信息转换为小写字符串 
            (cond ((wcmatch inf "*break,*cancel*,*exit*,*取消*") ;|按了<Esc>键出错处理|; 
            (princ "\n用户按了<Esc>强制退出\n") 
            (mapcar 'setvar varlst var_old) 
            (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
           ) 
           (t ;|其余错误处理|; 
            (princ (strcat "\n" inf)) 
            (mapcar 'setvar varlst var_old) 
            (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
           ) 
            ) ;_ 结束cond 
            (princ) 
          ) ;_ 结束progn 
          (progn ;|程序正常运行完毕的处理|; 
            (princ "\n") 
            (mapcar 'setvar varlst var_old) 
            (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) 
            (princ) 
          ) ;_ 结束progn 
  ) ;_ 结束if 
) ;_ 结束defun

jiaodahaoren · 发表于 2011-1-13 11:48:19

出错处理？我编个小程序都是自己用，好像不用出错处理。不过还是要谢谢你。

zhongys · 发表于 2011-1-13 21:34:28

qcw911 · 发表于 2011-1-13 21:53:56

[原创]巧用出错，让你的程序更优雅。
http://bbs.mjtd.com/thread-79360-1-1.html
飞诗(fsxm) 大侠的

redcat · 发表于 2011-1-14 08:32:52

本帖最后由 redcat 于 2011-1-30 09:54 编辑

看来大部分人只知道下载，不知道程序的妙处

AMTONNY · 发表于 2012-1-7 16:47:09

终于有时间来学习出错处理了

hzj526 · 发表于 2012-1-9 22:24:30

值得好好学习

yjr111 · 发表于 2012-7-1 00:38:57

半夜看出错处理，我是不是搞错了？[em0]

账号		自动登录	找回密码
密码			注册

[讨论] 出错处理案例解析

本帖被以下淘专辑推荐: