如何在getpoint时使捕捉方式为nea ?

hzh2000 · 发表于 2004-10-19 11:16:00

现在用的方法是在选择点前一句加上(setvar "OSMODE" 512),然后选择点后再恢复.但这种方法缺点是在getpoint时放弃,则会没有恢复捕捉方式.请问大家有没有更好的方法?

南子 · 发表于 2004-10-19 11:28:00

捕捉错误，恢复原设置

hzh2000 · 发表于 2004-10-19 11:35:00

如何捕捉错误?如果是主动中断的呢?(Ctrl+C)

hzh2000 · 发表于 2004-10-19 12:28:00

meflying到哪里去了?没人能解答吗?

meflying · 发表于 2004-10-19 13:43:00

主动终止(如按ESC),系统会自动调用*error*函数,这个函数系统已定义好,你也可以重新定义,但为了程序结束时不要去改变这个系统定义的函数,最后恢复一下,具体做法如下:
(defun err(msg)
...;做你在终止时要做的事情,如恢复某些系统变量
(setq *error* errtmp);恢复系统定义的*error*函数
)
(defun xxx();你的程序
(setq errtmp *error*);保存系统定义的*error*函数
(setq *error* err);使用自己定义的err函数代替原*error*函数
...;你的程序内容
(setq *error* errtmp);程序没有被终止时,也要恢复系统的*error*函数
)