PDA

View Full Version : vla-addleader syntax for an unattached leader



pcsyoga
2005-05-02, 03:48 PM
What is the proper syntax for creating a free-standing leader with vla-addleader?
I can't figure out how to supply vla-addleader with a null object.

Jeff_M
2005-05-02, 07:43 PM
You must use a Mtext object, AFAIK. Just use a dummy object and delete it....


(setq pt1 (getpoint "\nFirst point: ")
pt2 (getpoint pt1 "\nNext point: ")
pt3 (getpoint pt2 "\nNext point: ")
space (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
)
(setq ptlist (apply 'append (list pt1 pt2 pt3)))
(setq txtobj (vla-addmtext space (vlax-3d-point pt3) 0 ""))
(setq ldrobj (vlax-invoke space 'addleader ptlist txtobj acLineWithArrow))
(vla-delete txtobj)

pcsyoga
2005-05-02, 08:16 PM
Thanks for your help.