根据当前系统变量堆栈顶的数据恢复系统变量值

Lispboy

1. ;|
   
2. 根据当前系统变量堆栈顶的数据恢复系统变量值
   
3. 参数：无
   
4. 返回值：T
   
5. |;
   
6. (defun XD::SYSVAR:POP ()
   
7.   (mapcar
   
8.     '(lambda (x)
   
9.        (apply 'setvar x)
   
10.      )
    
11.     (XD::STACK:POP "SYSTEMVAR")
    
12.   )
    
13.   t
    
14. )
    
15. 
    

;|<br /> 根据当前系统变量堆栈顶的数据恢复系统变量值<br /> 参数：无<br /> 返回值：T<br /> |;<br /> (defun XD::SYSVAR:POP ()<br />   (mapcar<br />     '(lambda (x)<br />        (apply 'setvar x)<br />      )<br />     (XD::STACK:POP "SYSTEMVAR")<br />   )<br />   t<br /> )<br /> <br />

测试嵌套使用：

1. (defun c:tt()
   
2.    (setvar "osmode" 0)
   
3.    (setvar "cmdecho" 0)
   
4.    (princ "\nosmode=")
   
5.    (princ (getvar "osmode"))
   
6.    (princ "\ncmdecho=")
   
7.    (princ (getvar "cmdecho"))
   
8.    (XD::SYSVAR:PUSH t)
   
9.    (setvar "osmode" 1)
   
10.    (setvar "cmdecho" 1)
    
11.    (princ "\n    osmode=")
    
12.    (princ (getvar "osmode"))
    
13.    (princ "\n    cmdecho=")
    
14.    (princ (getvar "cmdecho"))
    
15.       (XD::SYSVAR:PUSH '("osmode" "cmdecho"))
    
16.       (setvar "osmode" 0)
    
17.       (setvar "cmdecho" 1)
    
18.       (princ "\n        osmode=")
    
19.       (princ (getvar "osmode"))
    
20.       (princ "\n        cmdecho=")
    
21.       (princ (getvar "cmdecho"))
    
22.       (XD::SYSVAR:POP)
    
23.    (princ "\n    osmode=")
    
24.    (princ (getvar "osmode"))
    
25.    (princ "\n    cmdecho=")
    
26.    (princ (getvar "cmdecho"))
    
27.    (XD::SYSVAR:POP)
    
28.    (princ "\nosmode=")
    
29.    (princ (getvar "osmode"))
    
30.    (princ "\ncmdecho=")
    
31.    (princ (getvar "cmdecho"))
    
32.    (princ)
    
33. )
    
34. 
    

(defun c:tt()<br />    (setvar "osmode" 0)<br />    (setvar "cmdecho" 0)<br />    (princ "\nosmode=")<br />    (princ (getvar "osmode"))<br />    (princ "\ncmdecho=")<br />    (princ (getvar "cmdecho"))<br />    (XD::SYSVAR:PUSH t)<br />    (setvar "osmode" 1)<br />    (setvar "cmdecho" 1)<br />    (princ "\n    osmode=")<br />    (princ (getvar "osmode"))<br />    (princ "\n    cmdecho=")<br />    (princ (getvar "cmdecho"))<br />       (XD::SYSVAR:PUSH '("osmode" "cmdecho"))<br />       (setvar "osmode" 0)<br />       (setvar "cmdecho" 1)<br />       (princ "\n        osmode=")<br />       (princ (getvar "osmode"))<br />       (princ "\n        cmdecho=")<br />       (princ (getvar "cmdecho"))<br />       (XD::SYSVAR:POP)<br />    (princ "\n    osmode=")<br />    (princ (getvar "osmode"))<br />    (princ "\n    cmdecho=")<br />    (princ (getvar "cmdecho"))<br />    (XD::SYSVAR:POP)<br />    (princ "\nosmode=")<br />    (princ (getvar "osmode"))<br />    (princ "\ncmdecho=")<br />    (princ (getvar "cmdecho"))<br />    (princ)<br /> )<br /> <br />

1. 
   
2. 命令: tt
   
3. osmode=0
   
4. cmdecho=0
   
5.     osmode=1
   
6.     cmdecho=1
   
7.         osmode=0
   
8.         cmdecho=1
   
9.     osmode=1
   
10.     cmdecho=1
    
11. osmode=0
    
12. cmdecho=0
    

复制代码

非ing

你确定这组代码没问题？

Lispboy

hai20130408 发表于 2013-6-6 20:56
你确定这组代码没问题？

请下载昨天发布的全局堆栈函数，最新函数很可能使用前段发布的函数。

taner

楼主不如开一个贴，所有的函数全在里面，大家测试起来不用找得那么麻烦

XDSoft

taner 发表于 2013-6-7 02:26
楼主不如开一个贴，所有的函数全在里面，大家测试起来不用找得那么麻烦

kkt123

大家测试起来不用找得那么麻烦:@:@

czcxxx_01

楼主不如开一个贴，所有的函数全在里面