jls 发表于 2005-5-9 11:24:00

<A name=91425><FONT color=#990000><B>meflying</B></FONT></A>,谢谢您的帮助，有空帮我看看(setq *error* errtmp)语句如何使用，放到什么地方合适。下面为本人在程序中使用的样例。


;;;主应用程序<BR>(defun mian ()<BR>       ;;前面的lisp语句<BR>       ;;前面的lisp语句<BR>       (exit1) ;_自定义出错跳出函数<BR>       (princ "\n 程序终止，跳过执行后面语句")<BR>       ;;后面的lisp语句<BR>       ;;后面的lisp语句<BR>       ;;后面的lisp语句<BR>       ;;后面的lisp语句<BR>       (princ)<BR>)<BR>;;;自定义出错跳出函数<BR>(defun exit1 ()<BR>       (setq errtmp *error*)<BR>       (defun *error* (msg)<BR>                       (princ)<BR>       )<BR>       (exit)<BR>       ;;(setq *error* errtmp)不知此语句如何使用才能发挥作用，使的原来的(EXIT)函数提示不发生变化。<BR>)
页: 1 [2]
查看完整版本: 求助：　用什么方法在中止Autolisp执行时，可以隐藏或取消出错信息？