[求助]：每日一问：怎么使程序默认上次的变量

animal212

如getint\getreal函数，
(getint "\n请输入数值.<1>")
如果这个函数进入循环，那岂不是每次都得输入数值，这有点麻烦
所以，怎么使函数记住上次输入的数值呢？
    我自己的想法是建一个txt文件，保存输入的数值，然后每次循环的时候都用读操作。但是这方法好像有点笨，有没有好点的办法呢？

busuanshou

2. 
   
3.   [FONT=courier new]
   
4. ;;;$xh为全局变量，这样函数重新运行，也会有上次的记录
   
5. (if (not $xh) (setq $xh 1))
   
6.   (princ "\n请输入数值 < ")
   
7.   (princ $xh)
   
8.   (setq xh (getint " >:"))
   
9.   (if (not xh) (setq xh $xh) (setq $xh xh))
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;$xh为全局变量，这样函数重新运行，也会有上次的记录<br /> (if (not $xh) (setq $xh 1))<br />   (princ "\n请输入数值 < ")<br />   (princ $xh)<br />   (setq xh (getint " >:"))<br />   (if (not xh) (setq xh $xh) (setq $xh xh))<br />   [/FONT]<br />

animal212

哈，谢谢啦。感谢

lzy9788303

写入注册表也可以

xyp1964

参看u系列函数：http://www.xdcad.net/forum/showt ... y=&pagenumber=3
（45楼）