Move MultiLeader Start Point

[DGCSCAD]

Hi all,

I'm looking to change an existing MLeaders arrow start point. There's always only one arrowhead and one landing, so it's fairly simple, but I can't seem to find a solution. 

Any help is appreciated.

[ВeekeeCZ · Accepted solution]

Possibly like this...

(vl-load-com)

(defun c:MleaderHead ( / e p o c)
  (if (and (setq e (car (entsel "\nSelect Mleader: ")))
	   (setq p (getpoint "\nSpecify new headpoint: "))
	   (setq o (vlax-ename->vla-object e))
	   (setq c (vlax-safearray->list (vlax-variant-value (vla-getleaderlinevertices o 0))))
	   )
    (vla-SetLeaderLineVertices o 0 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 5)) (append (trans p 1 0) (cdddr c)))))
  (princ)
  )

[DGCSCAD]

Thank you BeekeeCZ, that was it. 🙂