Drawing Mutlileaders in DXF and Visual Lisp

Anyone know how to draw a multileader using visual lisp and dxf?

Kind Regards,

Matt

(defun c:test1 ()
 (setq aspace
 (if (= 1
 (vla-get-activespace
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 )
     )
   (vla-get-modelspace doc)
   (vla-get-paperspace doc)
 )
 )
 (while (setq p0 (getpoint))
   (vlax-invoke aspace
  'addmleader
  (append p0 (polar p0 (/ pi 4) 3))
  0
   )
 )
)

It works great, my only question is: If my current leader style contains a user defined block, where can i specify the program to include the block when drawing the mleader?

Matt

It works great, my only question is: If my current leader style contains a user defined block, where can i specify the program to include the block when drawing the mleader?

 

Matt

If your current Mleader style does have a user defined block, thene verytime you use this it shows the block

Now, this is an overide

(defun c:test1 ()
 (setq aspace
 (if (= 1
 (vla-get-activespace
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 )
     )
   (vla-get-modelspace doc)
   (vla-get-paperspace doc)
 )
 )
 (while (setq p0 (getpoint))
[color=blue](vla-put-arrowheadblock[/color]
   (vlax-invoke aspace
  'addmleader
  (append p0 (polar p0 (/ pi 12) 9))
  0
   )
   [color=blue] "YourBlockName")[/color]
 )
)

you can use variable for the block name, but you need to know the block name beforehand or add a prompt for the block name