[求助]：请教关于如何进行错误处理

david96007

请教高手，如何进行错误处理？
我给lp编的程序也有十几个，减轻了她50%的劳动量，可惜的是我一直不会错误处理，比如程序执行到一半，出现错误或取消，而我的程序开头对某些变量进行更改，程序结尾又改回去，但程序执行一半出现错误后，这些变量的值就和以前不一样了，我该如何解决？请高手指教！


斑竹提示：请新来的网友多看看以前的帖子，你的问题可能已经有人提出并解决!直接有问题请用搜索!

wkai

定义好错误处理函数 *error* ,程序出错后，系统会自动调用它的。
参考这个：

(defun c:tt ()
  (defun *error* (msg)
    (princ "\n进入错误处理程序.")   
    (setvar "osmode" os)
    (princ "\n捕捉方式已经恢复。")
    (princ)
  )
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (princ "\n物体捕捉已经取消。")
  (while t
    (getstring "\n 按ESC键终止程序:")
  )
  (setvar "osmode" os)
)

netbee

最初由 wkai 发布
[B]定义好错误处理函数 *error* ,程序出错后，系统会自动调用它的。
参考这个：
[/B]

呵呵，这个程序退出后所有cad的错误处理函数都是它啦。应该用内部函数

2. 
   
3. (defun c:tt ( / err-new set-close set-ini err-old osmode-old)
   
4. ;;自定义初始化函数
   
5. (defun set-ini()
   
6.    (setq osmode-old (getvar "osmode"))
   
7. )
   
8. ;;自定义错误处理函数
   
9. (defun err-new(msg)
   
10.     (princ msg)
    
11.     ;;若错则调用结束处理函数
    
12.     (set-close)
    
13. )
    
14. ;;自定义结束函数
    
15. (defun set-close()
    
16.     (setq *error* err-old);_恢复原系统的错误处理函数
    
17.    ;
    
18.     (setvar "osmode" osmode-old)
    
19.     (princ "\n捕捉方式已经恢复。")
    
20. )
    
21. ;;===============
    
22. ;;主程序
    
23. 
    
24. ;;将原错误处理函数的程序保存
    
25. ;;并用新的自定义错误处理函数程序代替。
    
26. (setq err-old *error*
    
27.         *error* err-new
    
28. )
    
29. (set-ini)
    
30. ;;下面这句视程序需要而定，也可以放在初始化函数中
    
31. (setvar "osmode" 0)
    
32. (princ "\n物体捕捉已经取消。")
    
33. (while t
    
34. (getstring "\n 按ESC键终止程序:")
    
35. )
    
36. (set-close)
    
37. )
    

<br /> (defun c:tt ( / err-new set-close set-ini err-old osmode-old)<br /> ;;自定义初始化函数<br /> (defun set-ini()<br />    (setq osmode-old (getvar "osmode"))<br /> )<br /> ;;自定义错误处理函数<br /> (defun err-new(msg)<br />     (princ msg)<br />     ;;若错则调用结束处理函数<br />     (set-close) <br /> )<br /> ;;自定义结束函数<br /> (defun set-close()<br />     (setq *error* err-old);_恢复原系统的错误处理函数<br />    ;<br />     (setvar "osmode" osmode-old)<br />     (princ "\n捕捉方式已经恢复。")<br /> )<br /> ;;===============<br /> ;;主程序<br /> <br /> ;;将原错误处理函数的程序保存<br /> ;;并用新的自定义错误处理函数程序代替。<br /> (setq err-old *error*<br />         *error* err-new<br /> )<br /> (set-ini)<br /> ;;下面这句视程序需要而定，也可以放在初始化函数中<br /> (setvar "osmode" 0)<br /> (princ "\n物体捕捉已经取消。")<br /> (while t<br /> (getstring "\n 按ESC键终止程序:")<br /> )<br /> (set-close)<br /> )<br />

wkai

netbee 的代码看起来很严谨呀，向你学习。

xiaohero

两位斑竹辛苦了!!!
像两位斑竹学习在学习!!!

david96007

非常感谢！！！
好人一生平安！！！

网络水手

将自定义的错误处理函数放在主函数的外部行不行?