（XD::Var:StackPush）批量设置系统变量并入栈保存

newer

1. (defun XD::Var:StackPush (lst)
   
2.   (setq *sys_varStack*
   
3.     (cons
   
4.       (mapcar
   
5.         '(lambda (a / old)
   
6.           (setq old (getvar (car a)))
   
7.           (if (cadr a) (setvar (car a) (cadr a)))
   
8.           (list (car a) old)
   
9.         )
   
10.         lst
    
11.       )
    
12.       *sys_varStack*
    
13.     )
    
14.   )
    
15. )
    

(defun XD::Var:StackPush (lst)<br />   (setq *sys_varStack*<br />     (cons<br />       (mapcar<br />         '(lambda (a / old)<br />           (setq old (getvar (car a)))<br />           (if (cadr a) (setvar (car a) (cadr a)))<br />           (list (car a) old)<br />         )<br />         lst<br />       )<br />       *sys_varStack*<br />     )<br />   )<br /> )<br />

命令: (XD::VAR:STACKPUSH '((osmode 1)(blipmode 1)))
(((OSMODE 0) (BLIPMODE 0)))
和函数 xd::var:stackpop函数配对使用
http://bbs.xdcad.net/thread-708929-1-1.html