Rotating separate mtext boxes as one

[kzD1219]

Are there any tricks or lisp routines that can help me out?  My plan rotation changed and now I am stuck rotating mtext to plan view.  That is find when there is only one line of mtext, but generally we show mtext on top of one another because of size difference and layer difference of each line of mtext.  I have been rotating all 3 lines of text by eyeball and then adjusting to 90 degrees, but then the middle center justification is slightly off.

Currently looks like this:

I exaggerated this but the grip don't like up.

Need it lined up with the same spacing (blue line for lineup only)

Any help or suggestion is greatly appreciated.  The client change their mind on the orientation...grr!

[Kent1Cooper · Accepted solution]

Select both.

Grab upper one's insertion-point grip, and hit Enter/space twice to go into Rotate mode.

Type or pick the Reference-direction option.

Osnap to the INSertion point of the upper one, then the lower one, to establish the reference direction.

-90°, or just have Ortho on and do the obvious thing, for the new direction.

[kzD1219]

---

@Kent1Cooper wrote:

Select both.

Grab upper one's insertion-point grip, and hit Enter/space twice to go into Rotate mode.

Type or pick the Reference-direction option.

Osnap to the INSertion point of the upper one, then the lower one, to establish the reference direction.

-90°, or just have Ortho on and do the obvious thing, for the new direction.

---

Yes that works a bit faster than what I was doing.  Thanks.  I have a couple more plans coming my way so I will definitely use that trick.

[rkmcswain]

If the textstyle assigned to these MTEXT objects were Annotative, and the property titled "Match Text Orientation to Layout" was checked on, then the text would self align and no action would be needed 😉

[Kent1Cooper]

---

@rkmcswain wrote:

If the textstyle ... were Annotative, and the property titled "Match Text Orientation to Layout" was checked on, then the text would self align and no action would be needed

---

That takes care of the text rotation for each object, but not the relationship / vertical alignment of insertion points -- two viewports at different orientations showing the same objects:

[Sea-Haven]

My $0.05 select 2 mtext or more get insertion point of mtext then get mid point of these mtext use that point for rotation. If one is centre and another like left will not work properly.

(defun c:romt ( / ss mpt x y)
(prompt "\nSelect Mtext ")
(setq ss (ssget '((0 . "mtext"))))
(setq mpt '(0.0 0.0 0.0))
(setq x (sslength ss))
(setq y ( / 1.0 x ))
(repeat x
(setq pt (cdr (assoc 10 (entget (ssname ss (setq x (1- x)))))))
(setq mpt (mapcar '+ mpt pt))
)
(setq mpt (mapcar  '* mpt (list y y y)))
(command "rotate" ss "" mpt pause)
(princ)
)