[求助]：如何等待用户的多个输入？

ding75

(command "-bhatch" "p" "solid" pause " ")

我想用上面的语句实现直接填充，但是-bhatch点选的时候是可以多选的，我这句只能点选一次，应该怎么样才可以实现多选？

yi.gao

可以把最后面的" "去掉看看。

ding75

我想实现这样的语句
(defun c:test()
(command "-color" "254")
(command "-bhatch" "p" "solid" pause)
(command "-color" "bylayer")
)
就是想换个颜色填充，然后设回原来的颜色。去掉最后的“”以后，好像最后就不能设回原来的颜色了，该怎么处理。

yi.gao

你的程序里面采用的是增加选择方式，就是用鼠标逐一点选添加，这不利于判断你究竟需要选择多少个编辑对象。这样处理你看行不行，改为窗选选择对象的方式。这样选择的缺点是当图形中编辑对象比较多的时候可能会误选。你可以根据实际情况取舍我的建议。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test()
   
5. (command "-color" "254")
   
6. (command "-bhatch" "p" "solid" "s" "w" pause pause "" "")
   
7. (command "-color" "bylayer")
   
8. )
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> (defun c:test()<br /> (command "-color" "254")<br /> (command "-bhatch" "p" "solid" "s" "w" pause pause "" "")<br /> (command "-color" "bylayer")<br /> )<br />   [/FONT]<br />

ding75

其实我想实现的功能很简单，就是换一个颜色进行填充，然后切换会原来的图层的颜色。
-bhatch可以实现点选填充内部啊，自动分析边界。如果用窗选就没有优势了。

xuyj

偶支持搂住的想法！！！！

雪山飞狐(lzh)

(defun c:test()
(command "-bhatch" "p" "solid" pause)
(while (= (getvar "cmdnames") "-BHATCH") (command pause))
(command "")
(command "line" "0,0,0" "10,10,0" "")
)

ding75

我也想过用while循环来实现不断pause，但是初学lisp，什么都不懂，不知道用什么来判断，现在好了，呵呵，拼凑了个快速自动填充的程序，做在菜单中，可以实现快速自动填充经常需要的样式。

2. 
   
3.   [FONT=courier new]
   
4. (defun quickhatch(HatchLayer HatchColor HatchStyle HatchX HatchAngle / CurentLayer CurentColor)
   
5.     (setq CurentLayer (getvar "clayer"))
   
6.     (setq CurentColor (getvar "cecolor"))
   
7.     (if (= (tblsearch "layer" Hatchlayer) nil)
   
8.         (progn
   
9.            (initget "Yes No")
   
10.            (if (= (getkword "填充层不存在，是否新建？(Yes/No):") "No")
    
11.             (progn
    
12.               (princ "放弃填充!\n")
    
13.               (exit)
    
14.             )
    
15.             (progn
    
16.               (command "-layer" "n" HatchLayer "c" HatchColor HatchLayer "")
    
17.             )
    
18.            )
    
19.          )
    
20.       )
    
21.               (setvar "clayer" HatchLayer)
    
22.               (setvar "cecolor" HatchColor)
    
23.               (princ "点选填充区域：")
    
24.               ( if (= HatchStyle "solid")
    
25.                    (progn
    
26.                      (command "-bhatch" "p" HatchStyle "dr" "b" pause)
    
27.                      (while (= (getvar "cmdnames") "-BHATCH") (command pause))
    
28.                    )
    
29.                    (progn
    
30.                      (command "-bhatch" "p" HatchStyle HatchX HatchAngle "dr" "b" pause)
    
31.                      (while (= (getvar "cmdnames") "-BHATCH") (command pause))
    
32.                    )
    
33.               )
    
34.                
    
35.              (setvar "clayer" CurentLayer)
    
36.              (setvar "cecolor" CurentColor)
    
37. )
    
38.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun quickhatch(HatchLayer HatchColor HatchStyle HatchX HatchAngle / CurentLayer CurentColor)<br />     (setq CurentLayer (getvar "clayer"))<br />     (setq CurentColor (getvar "cecolor"))<br />     (if (= (tblsearch "layer" Hatchlayer) nil)<br />         (progn<br />            (initget "Yes No")<br />            (if (= (getkword "填充层不存在，是否新建？(Yes/No):") "No")<br />             (progn<br />               (princ "放弃填充!\n")<br />               (exit)<br />             )<br />             (progn<br />               (command "-layer" "n" HatchLayer "c" HatchColor HatchLayer "")<br />             )<br />            )<br />          )<br />       )<br />               (setvar "clayer" HatchLayer)<br />               (setvar "cecolor" HatchColor)<br />               (princ "点选填充区域：")<br />               ( if (= HatchStyle "solid")<br />                    (progn<br />                      (command "-bhatch" "p" HatchStyle "dr" "b" pause)<br />                      (while (= (getvar "cmdnames") "-BHATCH") (command pause))<br />                    ) <br />                    (progn<br />                      (command "-bhatch" "p" HatchStyle HatchX HatchAngle "dr" "b" pause)<br />                      (while (= (getvar "cmdnames") "-BHATCH") (command pause))<br />                    )<br />               )<br />                <br />              (setvar "clayer" CurentLayer)<br />              (setvar "cecolor" CurentColor)<br /> )<br />   [/FONT]<br />

我现在用这个命令是只能放在菜单中。因为定义成了函数。这样用鼠标右键就没法重复了，只能不断的选菜单。
但是如果定义成了CAD的命令，这样又不知道怎么传递参数。