LISP problem: Mulitleaders do not rotate correctly

[bgumPXZJF]

I need to change a dwg from True North to Project North. To do this I was just going to declare the UCS and then use a lisp routine to rotate all of the dwg notes (multileaders) by 90 degrees. However, when I do this, the leader legs of the multileaders get messed up.

Rotating the multileader before or after the UCS change makes no difference in the result of the multileader behavior.

Any Ideas?

Attaching both the drawing and the batch rotate routine

[ВeekeeCZ]

Do these leaders actually point to something? Because... could be so much easier to work with if they were just blocks with an attribute.

Anyway, this simply rotates each selected object around its "middle" point by UCS angle.

(vl-load-com)

(defun c:RotateEachByUCS ( / s a i e o p)

  (if (setq s (ssget "_:L"))
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i)))
	    o (vlax-ename->vla-object e))
      (if (and (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list o 'll 'ur))))
	       (setq p (mapcar '/ (apply 'mapcar (cons '+ (mapcar 'vlax-safearray->list (list ll ur)))) '(2 2))))
	(command "_.rotate" e "" "_non" (trans p 0 1) (angtos (angle '(0 0 0) (getvar "UCSXDIR")))))))
  (princ)
  )

[pendean · Accepted solution]

Change this setting in your MLEADERSTYLE, that's all you need:

[bgumPXZJF]

Super easy fix there. I would never have tried that different property setting...
Thank you to all for the help. I appreciate your time generosity.