(defun C:ARR (/ sp ang arrang leng ep pt2)
(setq arblk (getvar "DIMBLK"))
(setq sp (getpoint "\nArrow start point: "))
(setq angp (getpoint sp "\nArrow angle: "))
(setq arrang (angle sp angp))
(if (= 0.0 (getvar "DIMASZ"))
(setq leng 1.0) (setq leng (getvar "DIMASZ")))
(setq ep (polar sp arrang (* leng (getvar "ltscale"))))
(setq ascale (* leng (getvar "ltscale")))
(if (= arblk "")
(command ".PLINE" sp "W" "0.0" (* 0.333 leng (getvar "ltscale"))
EP "W" "0.0" "0.0" "ARC")
(progn
(command ".INSERT" arblk sp (* -1.0 ascale) ascale angp)
(setq pt2 (polar sp arrang (* leng (getvar "ltscale"))))
(command ".PLINE" pt2 "W" "0.0" "0.0" "A" "D" sp pt2)
) )
(princ)
)