用ESC退出恢复系统变量出错问题

ymcui

(defun *error*(msg)
(setvar "osmode" os)
  (princ)
)
提示出错:
错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "osmode" nil
因为有一些程序没有用到这个("osmode" os)保存,所以出现上面的情况
那要如何写（*error*）这个程序呢?
谢谢!!!

peraperson

程序开始时
(sys_var)
while等语句结束时
（*error* nil)

子程序如下
(defun sys_var ()
(setq e_lst (mapcar (function (lambda (n) (list 'setvar n (getvar n))))
'("cecolor" "clayer" "LUPrec" "autosnap" "osmode" "aperture" "hpspace" "hpassoc" "mirrtext" "auprec" "luprec" "dimzin" )))
(defun *error* (msg) (mapcar 'eval e_lst))
)

ymcui

peraperson 发表于 2013-11-1 11:16
程序开始时
(sys_var)
while等语句结束时

非常好用.
谢谢

yeahyeah

peraperson 发表于 2013-11-1 11:16:01
程序开始时
(sys_var)
while等语句结束时
（*error* nil)

子程序如下
(defun sys_var ()
(setq e_lst (mapcar (funct

好牛的程序，非常专业的语句，谢谢！来自: Android客户端