何让两句COMMANF"Pline"画的线和箭头成一个整体

szx025

(command "Pline" pt1 "W" "0" "0" pt2 "")
                   (command "")
                   (setq pt1 pt2
                         i   (1+ i)
                   )
               )
               (setq pt3 (polar pt1 ku 300))
               (command "Pline" pt1 "W" "60" "0" pt3 "")

如何让两句COMMANF"Pline"画的线和箭头成一个整体，而不是一段段分开的线

xyp1964

2. ;; (aaa (setq p1 (getpoint  "\n基点<退出>: "))(setq p2 (getpoint p1  "\n基点<退出>: ")))
   
3. (defun aaa (pt1 pt2 / pt3)
   
4.   (setq pt3 (polar pt2 (angle pt1 pt2) 300))
   
5.   (command "Pline" "non" pt1 "W" "0" "0" "non" pt2 "W" "60" "0"  "non" pt3 "")
   
6. )

;; (aaa (setq p1 (getpoint  "\n基点<退出>: "))(setq p2 (getpoint p1  "\n基点<退出>: ")))<br /> (defun aaa (pt1 pt2 / pt3)<br />   (setq pt3 (polar pt2 (angle pt1 pt2) 300))<br />   (command "Pline" "non" pt1 "W" "0" "0" "non" pt2 "W" "60" "0"  "non" pt3 "")<br /> )

Andyhon

(command "line" pt1 "W" "0" "0" pt2  "W" "60" "0" (polar pt1 ku 300) "")

但不知是否背离楼主本意

szx025

(setq pt1 pt2
                         i   (1+ i)
                   )这个不要了？

szx025

直接一个pline画，箭头会出现在每一个pt1点上，我想要的是只在最后的点上出现箭头