lisp画弯箭头_AutoLISP实现同时绘制多条直线

(defun c:tt ()

(setq r (getreal "\n请输入风管宽度："))

(if    (= nil r)

(setq r 100)

)

(while t

(if

(= p1 nil)

(setq p1 (getpoint "\n起点："))

)

(setq p2 (getpoint p1 "\n下一点："))

(command "line" p1 p2 "")

(setq ang (angle p1 p2))

(setq p1down (polar p1 (+ ang (* 1.5 pi)) (/ r 2)))

(setq p2down (polar P2 (+ ang (* 1.5 pi)) (/ r 2)))

(setq p1up (polar p1 (+ ang (/ pi 2)) (/ r 2)))

(setq p2up (polar p2 (+ ang (/ pi 2)) (/ r 2)))

(command "line" p1 p2 "")

(command "line" p1up p2up "")

(command "line" p1down p2down "")

(setq p1 p2)

)

)