LISP 程序 关于设置默认值的 求助

sunny885123

求教各位大神：
     我有一个程序   启动程序后  命令行中 提示   “选择实体（或设置s）”.........


   现在 我想实现的操作是这样   当我键入S  回车后  跳入参数设置选项
                                           不输入任何命令    可以直接继续运行程序 （不需要按任何建）

Lisphk

;你总得要选实体继续进行吧？

1. (initget "S")
   
2. (setq tf t)
   
3. (while (and tf
   
4.             (setq e (entsel "\n选择实体<设置(S)>:"))
   
5.             (cond
   
6.               ((= e "S")
   
7.                .
   
8.                .
   
9.                .
   
10.                .
    
11.                .
    
12.                设置
    
13.               )
    
14.               (t
    
15.                (setq tf nil)
    
16.               )
    
17.             )
    
18.        )
    
19. )
    
20. (if e
    
21.   (progn
    
22.     .....
    
23.   )
    
24. )
    
25. 
    

(initget "S")<br /> (setq tf t)<br /> (while (and tf<br />             (setq e (entsel "\n选择实体<设置(S)>:"))<br />             (cond<br />               ((= e "S")<br />                .<br />                .<br />                .<br />                .<br />                .<br />                设置<br />               )<br />               (t<br />                (setq tf nil)<br />               )<br />             )<br />        )<br /> )<br /> (if e<br />   (progn<br />     .....<br />   )<br /> )<br /> <br />

sunny885123

谢谢大神

sunny885123

Lisphk 发表于 2017-8-31 23:07

这个可以解决单选的问题
我换成(ssget )多选 ，就不能用了