Hi,
Even with a standard command, it is impossible to latch onto a point close to a multileader.
I only see this not very elegant method to get the exact value of the near point.
Code:
((lambda ( / loop sel pt ent pt_near)
(setq loop T)
(while loop
(setq sel (entsel "\nSelect an MLeader: "))
(cond
((and sel (eq (cdr (assoc 0 (entget (car sel)))) "MULTILEADER"))
(setq
loop nil
pt (cadr sel)
)
(command "_.undo" "_mark")
(command "_.explode" (car sel))
(setq
ent (nentselp pt)
pt_near (vlax-curve-getClosestPointTo (car ent) pt)
)
(command "_.undo" "_back")
)
(T (princ "\nIs not an MLeader or the selection is empty!"))
)
)
(if pt_near (command "_.line" "_none" pt_near))
(prin1)
))