(defun c:target (/ pt1 pt2 pt3 len oplw)
(setq oplw (getvar "plinewid"))
(and
(setq pt1 (getpoint "¼âµã: "))
(setq pt2 (getpoint pt1 "²±µã: "))
(progn
(setq len (distance pt1 pt2))
(command "pline" pt1 "w" 0 (* 1.8 len) pt2)
(command "w" (* 0.4 len) (* 1.3 len) "a")
(princ "\n½áÊøµã: ")
(command pause "")
)
)
(setvar "plinewid" oplw)
)