[求助]：怎样使自动捕捉功能不丢失

steven_tgx

我在外挂自定义小工具包的autocad2002操作系统中反复有自动捕捉功能丢失现象，感觉很不爽，恳求大虾们有什么方法及思路使自动捕捉功能固定！！！！*-*c *-*c *-*c

xshrimp

那是程序设计有问题.这些某些程序是中断退出.比如按Esc强行退出.
系统设置(比如捕捉设定得不到恢复)
例如
[求助]如何恢复被ESC中断的系统变量？
lisp程序的开始往往要改变系统变量，在程序结束前再恢复过来。但是，如果在程序执行过程中由于esc强行退出，则系统变量就无法恢复了。

我这里所说的"退出"是指在执行lisp语句时的强行退出，例如：
  (setq p0 (getpoint "\n指定第一点："))
按ESC键强制退出。

不要直接重定义*error*函数,应该
自定义出错处理函数，按ESC时，系统会自动执行*error*函数


(defun err(msg)
  (setvar "osmode" os)    ;恢复系统的改变
  (setq *error* errtmp)   ;恢复原有*error*函数
)

(defun myapp( / pt)
  (setq errtmp *error*)   ;保存原有*error*函数
  (setq *error* err)      ;使用自己错误处理函数
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt (getpoint "\nabc:"))
  (setvar "osmode" os)
  (setq *error* errtmp)   ;恢复原有*error*函数
  (princ)
)