aaacjh 发表于 2012-6-13 00:03:14

ESC强制退出，如何恢复系统变量


(defun c:af()
(setq a(getreal "\n请输入光标角度："))
(setvar "snapang" (* a (/ pi 180)))
(setq re(getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(setq pt1(getpoint))
(setq pt2(getpoint pt1));运行至此处，esc退出，光标无法还原，求助大虾们！先行谢过！
(command "line" pt1 pt2 "")
(setvar "ORTHOMODE" re)
(setvar "snapang" (* 0 (/ pi 180)))
(princ)
)

Andyhon 发表于 2012-6-13 08:02:47

http://bbs.mjtd.com/thread-85081-1-1.html
more:
http://www.google.com/search?as_q=setq+*error*+mapcar&as_epq=setvar+&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=all&as_sitesearch=http%3A%2F%2Fbbs.mjtd.com

1993063 发表于 2012-6-13 11:45:15

本帖最后由 1993063 于 2012-6-12 17:49 编辑

smartstar 发表于 2012-6-13 18:20:18

向前辈学习。
页: [1]
查看完整版本: ESC强制退出，如何恢复系统变量