怎样循环划线，直到右键结束

yfywk

我想使用pl线划线，在每一个pl线端点处插入一个图块，但使用用command怎样循环？
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint "\n指定下一点:"))
(command ".Pline" pt1 pt2)
这样会一直画下去，但是没法运行command之后的插入命令了，怎样解决？

fan_zh

(while (setq ...........

yfywk

还是不太明白，实际上我的意识是画pl线，让他自己一直画下去，结束由画图的自愿右键结束，但是用command命令后，右键结束会出错，怎样实现？

xyp1964

2. (defun c:tt ()
   
3.   (if (setq p1 (getpoint "\n指定第一点<退出>:"))
   
4.     (progn
   
5.       (command "insert" "di" "non" p1 1 1 0)          ;di为图块名称
   
6.       (command "pline" "non" p1)
   
7.       (while (setq p2 (getpoint p1 "\n指定下一点<退出>:"))
   
8.         (command p2 "")
   
9.         (setq p1 p2)
   
10.         (command "insert" "di" "non" p2 1 1 0)
    
11.         (command "pline" "non" p1)
    
12.       )
    
13.       (command "")
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   (if (setq p1 (getpoint "\n指定第一点<退出>:"))<br />     (progn<br />       (command "insert" "di" "non" p1 1 1 0)          ;di为图块名称<br />       (command "pline" "non" p1)<br />       (while (setq p2 (getpoint p1 "\n指定下一点<退出>:"))<br />         (command p2 "")<br />         (setq p1 p2)<br />         (command "insert" "di" "non" p2 1 1 0)<br />         (command "pline" "non" p1)<br />       )<br />       (command "")<br />     )<br />   )<br />   (princ)<br /> )