[求助]：怎么把输入的值保存到下一次命令?

tsml

请问怎么把输入的值保存到下一次命令?

比如说autocad自带的放大命令SCALE，在给图元放大过程中会被要求输入放大倍数，如果输入为2，则下次运行SCALE的放大默认值就为2。请问这是怎么实现的?

fools

象这样使用一个全局变量
[php]
(IF (SETQ tmp (GETINT (STRCAT "\n输入比例<"
                              (IF $SCALE$
                                (ITOA $SCALE$)
                                "100"
                              )
                              ">:"
                      )
              )
    )
  (SETQ $SCALE$ tmp)
)
[/php]

zml84

将变量设置为全局变量即可解决问题。
其典型结构如下所示:

2. 
   
3. (defun C:xxx (/ SCALE)
   
4.     ;;1.使用前应先检查变量(若无则赋以默认值)
   
5.     (if        (numberp OLD-SCALE)
   
6.         ()
   
7.         (setq OLD-SCALE 2.0)
   
8.     )
   
9.     ;;2.提示输入
   
10.     (princ "\n输入比例<")
    
11.     (princ $SCALE$)
    
12.     (princ ">:")
    
13.     (if        (setq SCALE (getreal))
    
14.         (setq OLD-SCALE SCALE)
    
15.         (setq SCALE OLD-SCALE)
    
16.     )
    
17.     ;;3.使用
    
18.     (princ "\n当前值为: ")
    
19.     (princ SCALE)
    
20.     ;;4.静默退出
    
21.     (princ)
    
22. )
    

<br /> (defun C:xxx (/ SCALE)<br />     ;;1.使用前应先检查变量(若无则赋以默认值)<br />     (if        (numberp OLD-SCALE)<br />         ()<br />         (setq OLD-SCALE 2.0)<br />     )<br />     ;;2.提示输入<br />     (princ "\n输入比例<")<br />     (princ $SCALE$)<br />     (princ ">:")<br />     (if        (setq SCALE (getreal))<br />         (setq OLD-SCALE SCALE)<br />         (setq SCALE OLD-SCALE)<br />     )<br />     ;;3.使用<br />     (princ "\n当前值为: ")<br />     (princ SCALE)<br />     ;;4.静默退出<br />     (princ)<br /> )<br />