[求助]：怎么实现默认值设定啊？？？

xiaoyue663

我想将某一变量X给定一个默认值1000，同时也可对其进行附值如X=2000，当我第二次执行程序时，其默认值则为第一次使用值，请问这一过程怎么实现？？？请高手指点指点，谢谢！

wuzz

变量赋值问题，保存中间变量

cy956

http://www.xdcad.net/forum/showt ... d=750526#post750526

http://www.xdcad.net/forum/showt ... d=262875#post262875

....自己搜吧。

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (if (null int)
   
4.     (setq int 1000)
   
5.   )
   
6.   (setq        x (UINT 1 "" "整数" x)
   
7.   )
   
8.   (princ)
   
9. )
   
10. 
    
11. (defun uint (bit kwd msg def / inp)
    
12.   (if def
    
13.     (setq msg (strcat "\n" msg "<" (itoa def) ">: ")
    
14.           bit (* 2 (fix (/ bit 2)))
    
15.     )
    
16.     (setq msg (strcat "\n" msg ": "))
    
17.   )
    
18.   (initget bit kwd)
    
19.   (setq inp (getint msg))
    
20.   (if inp
    
21.     inp
    
22.     def
    
23.   )
    
24. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (if (null int)<br />     (setq int 1000)<br />   )<br />   (setq        x (UINT 1 "" "整数" x)<br />   )<br />   (princ)<br /> )<br /> <br /> (defun uint (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (itoa def) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getint msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )[/FONT]

xiaoyue663

多谢赐教！

littlecong

如果希望在两次CAD运行中间还保存变量的话，恐怕要用到文件或者注册表了