[LISP函数]：如何解决函数被强行中断的容错问题

wwwdh · 发表于 2006-3-31 22:58:56

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

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

×

在函数开始加
(setq olderr *error*
*error* my-err
)
在函数结束前加
(setq *error* olderr )
可以解决一些函数出错的问题。
但是如果是按ESC或Ctrl+C强行退出的话，自定义 error函数就
无法起作用了，大家有什么好的办法吗？

zxmmelly · 发表于 2006-4-2 02:12:23

(defun b_error (err-msg)
  (if (and (/= err-msg "Function cancelled")
         (/= err-msg "quit / exit abort")
   )
(princ (strcat "\n出错了: " err-msg))
  )
  (princ)
) ;_end defun

教父 · 发表于 2006-4-2 21:48:48

我想借这个帖子再问一下，如果强行退出一个程序，原来的打开的文件还没关闭，这个问题怎么解决呢

zxq0220 · 发表于 2006-4-2 22:15:13

(defun b_error (err-msg)
(if (and (/= err-msg "Function cancelled")
(/= err-msg "quit / exit abort")
)
(princ (strcat "\n出错了: " err-msg))
(CLOSE F);加入自己要处理的内容。
)
(princ)
)

wwwdh · 发表于 2006-5-20 11:35:42

可以了，多谢各位。再请教如何判断cad的版本是英文还是中文呢？

zxq0220 · 发表于 2006-5-20 22:56:15

(GETVAR "DWGCODEPAGE")
或
(GETVAR "SYSCODEPAGE")
如果返回
ANSI_936 是简体中文
(因手头无资料，其余部分由热心人补充吧。)

qjcpj · 发表于 2006-5-20 23:43:25

亦可通过读取acadver系统变量来判断。
例如：
02中文版返回"15.06s (LMS Tech)"；02英文版返回"15.06s"。

wwwdh · 发表于 2006-7-3 20:12:33

果然,,多谢长老!

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

[LISP函数]：如何解决函数被强行中断的容错问题

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

相关帖子