希望可以连续绘制一个个箭头

lff763

求助：希望可以连续绘制一个一个箭头，不需要重复输入命令

lff763

2. ;                                                         箭头
   
3. (defun c:jt (/ ang h2 jtl oldcm oldos pt1 pt2 pt3 scale)
   
4. 
   
5.   (setq oldcm (getvar "cmdecho"))
   
6.   (setq oldos (getvar "osmode"))
   
7.   (setvar "cmdecho" 0)
   
8.   (setvar "osmode" 0)
   
9.   (setq scale (getreal "\n请输入比例<1>:"))
   
10.   (if (= scale nil)
    
11.     (setq scale 1)
    
12.   )
    
13.   (setq h2 (* 0.8 scale)
    
14.         jtl (* 4 scale)
    
15.   )
    
16.   (setq pt1 (getpoint "\n请输入第一点:"))
    
17.   (setq pt3 (getpoint pt1 "\n请输入第二点:"))
    
18.   (setq ang (angle pt1 pt3))
    
19.   (setq pt2 (polar pt1 ang jtl))
    
20.   (command "pline" pt1 "w" 0 h2 pt2 "w" 0 0 pt3)
    
21.   (setvar "cmdecho" oldcm)
    
22.   (setvar "osmode" oldos)
    
23.   (princ "\n  ")
    
24.   (princ "\n继续使用pline命令")
    
25.   (princ)
    
26. )

;                                                         箭头<br /> (defun c:jt (/ ang h2 jtl oldcm oldos pt1 pt2 pt3 scale)<br /> <br />   (setq oldcm (getvar "cmdecho"))<br />   (setq oldos (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setq scale (getreal "\n请输入比例<1>:"))<br />   (if (= scale nil)<br />     (setq scale 1)<br />   )<br />   (setq h2 (* 0.8 scale)<br />         jtl (* 4 scale)<br />   )<br />   (setq pt1 (getpoint "\n请输入第一点:"))<br />   (setq pt3 (getpoint pt1 "\n请输入第二点:"))<br />   (setq ang (angle pt1 pt3))<br />   (setq pt2 (polar pt1 ang jtl))<br />   (command "pline" pt1 "w" 0 h2 pt2 "w" 0 0 pt3)<br />   (setvar "cmdecho" oldcm)<br />   (setvar "osmode" oldos)<br />   (princ "\n  ")<br />   (princ "\n继续使用pline命令")<br />   (princ)<br /> )

仲文玉

(while (setq pt1 (getpoint "\n请输入第一点:"))
  (setq pt3 (getpoint pt1 "\n请输入第二点:"))
  (setq ang (angle pt1 pt3))
  (setq pt2 (polar pt1 ang jtl))
  (command "pline" pt1 "w" 0 h2 pt2 "w" 0 0 pt3)
)

lff763

还是不行，当绘制第二个箭头第二点后，会连接到第一 箭头上

huangpc27

用while函数循环啊