[求助]：为什么自定义*error*函数要加载两次才会起效？

hsslyl

在天正建筑7 for 2006中，每次打开图形，通过acad.lsp自动加载自定义函数，唯独*error*函数不起效，再加载后才可起效，不知为什么？但是，不在天正建筑中，却可以一次加载起效，所以，应该跟天正建筑有关。请各位帮忙指点！谢谢！
附*error*函数如下：
(defun *error* (ccxxi)
(cond ((= (getvar "cmdactive") 1) (command "")))
(cond (kgundo (command "undo" "e" "u") (setq kgundo nil)))
(redraw)
(cond ((= (type sbqxlx) 'LIST)
        (setq BL-er sbqxlx)
        (setq ier 0)
        (repeat (length BL-er) (lianxian (nth ier BL-er) nil) (setq ier (+ ier 1)))
        (setq BL-er nil)
       )
)
(cond ((= (type ccxxi) 'STR) (princ (strcat "\n出错：" ccxxi "！"))))
)

smileant

谢谢,很好的东西!