怎么让自定义的command命令执行完毕？

price_face

怎么让自定义的command命令执行完毕？
程式如下，当在绘图窗口画完多段线，接来的程序无法继续执行，这是为什么？怎么解决？

2. (defun C:PLD()
   
3.   (command "pline" );画出多段线
   
4.   (setq ename (entlast))
   
5.   (princ ename)
   
6.   )
   

(defun C:PLD()<br />   (command "pline" );画出多段线<br />   (setq ename (entlast))<br />   (princ ename)<br />   )<br />

newer

试试

1. (defun c:tt()
   
2.     (if (setq pt (getpoint "\nPICK POINT:"))
   
3.        (progn
   
4.           (command "pline" pt)
   
5.           (while (/= (getvar "cmdecho") 0)
   
6.              (command "pause")
   
7.           )
   
8.        )
   
9.     )
   
10.     (princ)
    
11. )
    
12. 
    

(defun c:tt()<br />     (if (setq pt (getpoint "\nPICK POINT:"))<br />        (progn<br />           (command "pline" pt) <br />           (while (/= (getvar "cmdecho") 0)<br />              (command "pause")<br />           )<br />        )<br />     )<br />     (princ)<br /> )<br /> <br />

price_face

我用了你的程式，但还是无法执行下一步程序呀。比如在第１０行前加一行代码，就无法执行到这里。

1. (defun c:tt()   
   
2. (if (setq pt (getpoint "\nPICK POINT:"))      
   
3. (progn         
   
4. (command "pline" pt)         
   
5. (while (/= (getvar "cmdecho") 0)            
   
6. (command "pause")          )       )    )  
   
7. (princ "这里无法执行"）
   
8. (princ))

(defun c:tt()    <br /> (if (setq pt (getpoint "\nPICK POINT:"))       <br /> (progn          <br /> (command "pline" pt)          <br /> (while (/= (getvar "cmdecho") 0)            <br /> (command "pause")          )       )    )  <br /> (princ "这里无法执行"） <br /> (princ))

newer

price_face 发表于 2016-5-11 23:39
我用了你的程式，但还是无法执行下一步程序呀。比如在第１０行前加一行代码，就无法执行到这里。

你的代码里面有个 中文的 ），不知道你怎么加载的。

下面是修改的你的代码

1. (defun c:tt ()
   
2.   (if (setq pt (getpoint "\nPICK POINT:"))
   
3.     (progn
   
4.       (command "pline" pt)
   
5.       (while (/= (getvar "cmdecho") 0)
   
6.         (command "pause")
   
7.       )
   
8.     )
   
9.   )
   
10.   (princ "这里无法执行")
    
11.   (princ)
    
12. )
    
13. 
    

(defun c:tt ()<br />   (if (setq pt (getpoint "\nPICK POINT:"))<br />     (progn<br />       (command "pline" pt)<br />       (while (/= (getvar "cmdecho") 0)<br />         (command "pause")<br />       )<br />     )<br />   )<br />   (princ "这里无法执行")<br />   (princ)<br /> )<br /> <br />

你看看下面的截取的文字，你的打印执行了。

命令: tt
PICK POINT:这里无法执行

指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: