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

hzh2000

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

南子

捕捉错误，恢复原设置

hzh2000

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

hzh2000

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

meflying

主动终止(如按ESC),系统会自动调用*error*函数,这个函数系统已定义好,你也可以重新定义,但为了程序结束时不要去改变这个系统定义的函数,最后恢复一下,具体做法如下:


(defun err(msg)


...;做你在终止时要做的事情,如恢复某些系统变量


(setq *error* errtmp);恢复系统定义的*error*函数


)


(defun xxx();你的程序


        (setq errtmp *error*);保存系统定义的*error*函数


(setq *error* err);使用自己定义的err函数代替原*error*函数


...;你的程序内容


(setq *error* errtmp);程序没有被终止时,也要恢复系统的*error*函数


)

BDYCAD

getpoint涵数在使用时是放弃自动捕捉的. 楼主可以这样加上NEA的捕捉选项, 以下供参考. (setvar "osmode" 15359)
(setq pt1 (getpoint "\n选择起点:"))
(setq pt2 (getpoint "\n选择终点:"))

hzh2000

thank meflying!