LISP to rotate group of Multileaders about end of leader

[Edgtrimmer]

Had to rotate a floorplan 180 along with all multileaders and text. I can easily select multileaders and change angle to 0 in Properties but text ends up on top of leader or in wrong position relative to leader. It would be great to have a command able to select a group of multileaders and step through them rotating them a desired angle about the end of the leader. Any takers? Thanks!

[Lee Mac]

Try this quick one -

(defun c:rml ( / a i o s )
   (if (and (setq s (ssget "_:L" '((0 . "MULTILEADER"))))
            (setq a (getangle "\nSpecify rotation angle: "))
       )
       (repeat (setq i (sslength s))
           (setq i (1- i)
                 o (vlax-ename->vla-object (ssname s i))
           )
           (vla-rotate o (vlax-3D-point (mapcar '+ (vlax-invoke o 'getleaderlinevertices 0) '(0 0 0))) a)
       )
   )
   (princ)
)
(vl-load-com) (princ)

[Edgtrimmer]

Wow, Lee. Thanks! It works!

[ronjonp]

Try this quick one -

(defun c:rml ( / a i o s )
   (if (and (setq s (ssget "_:L" '((0 . "MULTILEADER"))))
            (setq a (getangle "\nSpecify rotation angle: "))
       )
       (repeat (setq i (sslength s))
           (setq i (1- i)
                 o (vlax-ename->vla-object (ssname s i))
           )
           (vla-rotate o (vlax-3D-point [b](mapcar '+ (vlax-invoke o 'getleaderlinevertices 0) '(0 0 0))[/b]) a)
       )
   )
   (princ)
)
(vl-load-com) (princ)

 

Nice trick to grab the first point

[Grrr]

Nice trick to grab the first point

 

Lee also did something similair here

[Lee Mac]

Wow, Lee. Thanks! It works!

 

You're welcome

 

Nice trick to grab the first point

 

Thanks!

[Shaun Wright]

On 7/20/2018 at 9:41 AM, Lee Mac said:

Try this quick one -

THANK YOU SOOOO MUCH LEE!

(defun c:rml ( / a i o s )
   (if (and (setq s (ssget "_:L" '((0 . "MULTILEADER"))))
            (setq a (getangle "\nSpecify rotation angle: "))
       )
       (repeat (setq i (sslength s))
           (setq i (1- i)
                 o (vlax-ename->vla-object (ssname s i))
           )
           (vla-rotate o (vlax-3D-point (mapcar '+ (vlax-invoke o 'getleaderlinevertices 0) '(0 0 0))) a)
       )
   )
   (princ)
)
(vl-load-com) (princ)