推荐一种设置保存系统变量方法

eachy

2. 
   
3. (defun setv (name value / oldval)
   
4.   (setq oldval (getvar name))
   
5.   (if (not (assoc name *sysvars*))
   
6.     (setq *sysvars* (append *sysvars* (list (cons name oldval))))
   
7.   )
   
8.   (setvar name value)
   
9.   oldval
   
10. )
    
11. (defun unsetv ()
    
12.   (foreach v *sysvars* (setvar (car v) (cdr v)))
    
13. )

<br /> (defun setv (name value / oldval)<br />   (setq oldval (getvar name))<br />   (if (not (assoc name *sysvars*))<br />     (setq *sysvars* (append *sysvars* (list (cons name oldval))))<br />   )<br />   (setvar name value)<br />   oldval<br /> )<br /> (defun unsetv ()<br />   (foreach v *sysvars* (setvar (car v) (cdr v)))<br /> )

类似 xdrx_sysvar_push xdrx_sysvar_pop

/db_自贡黄明儒_

有些变量在高版中有，低版中没有，设置变量时时最好判断一下,这样为高版本写的程序也可用在低版本中了{:soso_e112:}

牢固

/db_自贡黄明儒_ 发表于 2013-12-11 10:33
有些变量在高版中有，低版中没有，设置变量时时最好判断一下,这样为高版本写的程序也可用在低版本中了{:sos ...

setvar和getvar用VL-CATCH-ALL-APPLY执行即可避免不支持的系统变量错误！

st788796

命令: (setvar "ddd" 1)
参数太多
命令: (getvar "ddd")
nil

不会中断