[lisp]如何自定义错误处理函数？
www.dimcax.com
[lisp]如何自定义错误处理函数？
程式中经常强行退出,
如何自定义错误处理函数？请教！！！
虚心学习
-----------------------------
i enjoy lose my face.
-----------------------------
reply
(defun #err (s)
(princ)
)
(defun c:test ( / $orr)
(setq $orr *error*)
(setq *error* #err) ;当程序出错时就会执行#err函数
;...main code...
(setq *error* $orr)
(princ)
)
change your life style.
d
没看得太明白！
欢迎加入到cad二次开发 二次开发
便于交流，请修改群名片，名字前面加上自己从事的方向，比如说学习lisp，就改为[lisp]小鱼儿！谢谢合作！
d
在程序开始部分加(setq *error* #err)
(setq *error* #err) ;;;;;;;;; #err(msg)为子程序,把他付值给*error*，程序运行
中出错时调用它，
d
程序出错时,系统会自动调用*error*函数,这个函数系统已经定义,你也可以重新定义,但如果重新定义,就会导致其他程序出错时也使用了你定义的这个出错函数,导致出错提示混乱,,,所以定义一个临时的错误处理函数,在程序中暂时代替*error*函数,程序的最后再恢复系统的*error*函数,就是(setq *error* #err),前面那句就是保存系统的*error*函数,以便恢复,,
另,在自定义的出错函数里最好也恢复一下,否则真出错就没有恢复了,更改如下:
(defun #err (s)
(princ)
(setq *error* $orr)
)
(defun c:test ( / )
(setq $orr *error*)
(setq *error* #err) ;当程序出错时就会执行#err函数
;...main code...
(setq *error* $orr)
(princ)
)
多动脑筋
d
请问飞哥：我编了20个lisp程式（都在用），下面的一段代码可不可以只用一个
(defun #err (s)
(princ)
(setq *error* $orr)
)
虚心学习
-----------------------------
i enjoy lose my face.
-----------------------------
:172294790