Draughting an Arrow

[Tharwat]

Why not just draw an LWPolyline with a width, rather than a closed one with hatch?

 

Quick and dumb example...

 

(defun c:TEst (/ p1 p2)
 (if (and (setq p1 (getpoint "\nSpecify first point: "))
          (setq p2 (getpoint p1 "\nSpecify next point: "))
     )
   (progn
     (command "_.pline" "_non" p1 "_w" 0. (/ (distance p1 p2) 3.) "_non" p2 "")
     (setvar 'plinewid 0.)
   )
 )
 (princ)
)

 

Finally, the action of this Lisp is the best. Because the width of the LWPolyline goes with the direction of the first and second points parallely.

And the rest of other Lisps are not acting correctly due to the angular degrees.

 

Thanks

 

Tharwat

[alanjt]

Both should work at any angle.