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

hsslyl · 发表于 2009-3-24 21:37:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在天正建筑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 "！"))))
)

fl202 · 发表于 2009-3-25 08:11:36

不能解答你的问题。
楼主能否介绍下自定义*error*函数的功能，用法，或者这方面的资料，我想了解下，谢谢。

zml84 · 发表于 2009-3-25 14:54:59

测试一下放入 acaddoc.lsp 中

hsslyl · 发表于 2009-3-25 21:45:46

最初由 zml84 发布
[B]测试一下放入 acaddoc.lsp 中 [/B]

问题解决，谢谢！
原来是acaddoc.lsp 中也有一个*error*函数

回复2楼：在某个程序运行中，按下esc键中断运行，即执行*error*函数，用于恢复到程序运行前的状态，如：已通过redraw亮显了某些对象，在*error*函数中，通过redraw取消这些对象的亮显

dhs313 · 发表于 2009-4-3 17:38:04

不能解答你的问题。
楼主能否介绍下自定义*error*函数的功能，用法，或者这方面的资料，我想了解下，谢谢。

nowaday · 发表于 2009-4-4 15:36:27

加我QQ123658，我教你

jyzas · 发表于 2013-7-20 23:11:14

有没有详细的教程呢？？

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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