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

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

(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

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

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

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

向前辈学习。

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

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

相关帖子