Yes, thanks!
I don't know how or why your existing dot & loop arrows are doing it, but
the ArrowheadSize fro these is 3/64", but a normal arrow is 1/8". These 2
lisps address specifically these differing sizes:
(defun c:swapdot (/ ent obj)
(vl-load-com)
(princ "\nSelect leader: ")
(if (setq ent (ssget ":S" '((0 . "LEADER"))))
(progn
(setq obj (vlax-ename->vla-object (ssname ent 0)))
(if (= (vla-get-arrowheadtype obj) acArrowDefault)
(progn
(vla-put-arrowheadtype obj acArrowDot)
(vla-put-arrowheadsize obj (/ 3.0 64.0))
)
(progn
(vla-put-arrowheadtype obj acArrowDefault)
(vla-put-arrowheadsize obj (/ 1.0 8.0))
)
)
)
)
(princ)
)
(defun c:swaploop (/ ent obj)
(vl-load-com)
(princ "\nSelect leader: ")
(if (setq ent (ssget ":S" '((0 . "LEADER"))))
(progn
(setq obj (vlax-ename->vla-object (ssname ent 0)))
(if (= (vla-get-arrowheadtype obj) acArrowDefault)
(progn
(vla-put-arrowheadblock obj "loop")
(vla-put-arrowheadsize obj (/ 3.0 64.0))
)
(progn
(vla-put-arrowheadblock obj "")
(vla-put-arrowheadsize obj (/ 1.0 8.0))
)
)
)
)
(princ)
)
wrote in message news:5194405@discussion.autodesk.com...
Is this what you need to see???