使用*error*函数会屏蔽错误显示吗?

cjs

我的机子有这样的现象:

如果加载的lisp程序中使用了*error*函数，在运行或调试lisp程序时，只要出错，显示信息都是同一个: 错误：*error*函数中出错，AutoCAD变量设置被拒绝："blipmode" nil

只有清除加载程序中的*error*函数，才会反映出正确的出错信息。

这样很烦，有时候不得不用*error*函数，但用了以后，就看不到正确的错误提示，在调试程序时无从下手(只能从头重新看)。 又没有什么办法可以解决这种问题？

xiaomu

你是不是没有定义自己的*error*函数啊,

建议看一下"批量打印"的原程序,

dispbbs.asp?boardID=3&ID=39714&page=1

可以看看如何定义自己的 *error*函数.

sandy2002

与*error*无关，是你的程序变量申明的问题。
比如：
主程序： (defun prg (/ )  (setq blp_save (getvar "blipmode")) (setq *error* prg_error)……)
错误处理函数：(defun prg_error (s /  blp_save )  ……  (setvar "blipmode" blp_save) )就会出现上述情况，你只要把blp_mode 的声明去掉就可以了。
还有就是要确定在程序中，该变量不要被置为空，否则也会出错。

cjs

我的程序格式如下

 (defun *error* (msg)

。。。)

主程序。。。

另外，我的意思是： 当有别的加载程序定义了*error*函数时，相对于我当前程序的错误显示始终是一个显示，比如我把(vl-load-com) 错写成了(vla-load-com) 调试程序时的错误显示还是“错误：*error*函数中出错，AutoCAD变量设置被拒绝："blipmode" nil” 其实我根本没涉及blipmode。

 

sandy2002

传完整程序上来让大家帮你看看

cjs

可能是我没说明白，我的意思是加载程序和调试程序是两个程序，且没有任何关联，  只要任何一个加载程序调用了*error*函数，就会对调试程序时的错误显示产生影响。

sandy2002

呵，肯定是你的函数有问题，*error*本身不会出现这样的问题的

meflying

不要直接重定义*error*函数,应该这样

(defun err(msg)

  ...;你的错误处理!

 (setq *error* errtmp) ;如果出错了,也要恢复错误处理函数

)

;主程序

(defun main()

 (setq errtmp *error*)

 (setq *error* err)

.......;程序内容

(setq *error* errtmp);恢复*error*函数

sandy2002

对啊，难道谁会把错误处理函数定义了又不恢复吗？

cjs

谢谢meflying，是我对错误处理函数的理解不够，问题解决了。