[求助]：如何给一个变量设定缺省值？

绘图员

就像cad 中命令行中要求给数据时，括号< >中已有的数据，当按下回车键就把缺省值赋给变量；当输入新数据时，就接受新数据。
Command:
OFFSET
Offset distance or Through <5.0000>:

zhynt

(setq a1 "你好")
(PRINC "\n 请输入<")
       (PRINC a1)
       (setq a2 (getstring ">:")) ;也可以是其它输入函数
       (if (/= a2 nil)(setq a1 a2)(setq a2 a1))
其中a1已经付值

Gxiaofeng

最好存到系统变量里!userr1,---userr5

lijiao

可以有多种方法,用途不一样,方法也各异.

绘图员

最初由 lijiao 发布
[B]可以有多种方法,用途不一样,方法也各异. [/B]

谢谢各位！
能烦劳长老解释解释吗?拜谢!

netbee

如：

2. 
   
3. (defun set_xlen        (/ temp)
   
4.   (setq temp xlen)
   
5.   (if (not
   
6.         (setq xlen (getint (strcat "请输入X的长度<" (itoa xlen) ">:")))
   
7.       ) ;_ end of not
   
8.     (setq xlen temp)
   
9.   ) ;_ end of if
   
10. ) ;_ end of defun
    
11. ;;;--------------------------------------------------------
    
12. (defun settextbegan (/ tmp)
    
13.   (setq        tmp bh_began
    
14.   ) ;_结束setq
    
15.   (if (not(setq bh_began
    
16.                 (getint
    
17.                   (strcat "\n起始编号:1/2/3...<" (itoa bh_began) ">:")
    
18.                 ) ;_结束getint
    
19.          ) ;_结束setq
    
20.       ) ;_结束not
    
21.     (setq bh_began tmp)
    
22.   ) ;_结束if
    
23. ) ;_结束defun
    

<br /> (defun set_xlen        (/ temp)<br />   (setq temp xlen)<br />   (if (not<br />         (setq xlen (getint (strcat "请输入X的长度<" (itoa xlen) ">:")))<br />       ) ;_ end of not<br />     (setq xlen temp)<br />   ) ;_ end of if<br /> ) ;_ end of defun<br /> ;;;--------------------------------------------------------<br /> (defun settextbegan (/ tmp)<br />   (setq        tmp bh_began<br />   ) ;_结束setq<br />   (if (not(setq bh_began<br />                 (getint<br />                   (strcat "\n起始编号:1/2/3...<" (itoa bh_began) ">:")<br />                 ) ;_结束getint<br />          ) ;_结束setq<br />       ) ;_结束not<br />     (setq bh_began tmp)<br />   ) ;_结束if<br /> ) ;_结束defun<br />

HillMan

autoCAD共有15个供用户使用的系统变量（可以存放整数，浮点数，字符串），可以用来存储用户设置好的一些数据！！
但是尽量不要去用，如果多个程序都使用的话会造成混乱的！！！