topic Re: Rotate text according to ucs angle in Visual LISP, AutoLISP and General Customization Forum

Rotate text according to ucs angle

carlos_m_gil_p — Sun, 01 Jun 2025 23:31:58 GMT

Hello, how are you?
I wanted to ask you a favor to improve a Lisp project I'm working on.
I've used the Plant command to rotate the screen according to the UCS.
I need to select some text so it appears horizontal, according to the UCS.
But I don't understand why it works with some text and not with others.
Here's a DWG file where I'm testing and the code I wrote.

(defun c:xxx (/ sel i e ang) ; (setq sel (vl-catch-all-apply 'ssget (list '((0 . "MTEXT,TEXT"))))) ; ; (setq ang (angle '(0 0 0) '(1 0 0))) (setq ang (angle (trans '(0.0 0.0 0.0) 1 0) (trans '(1.0 0.0 0.0) 1 0))) ; (repeat (setq i (sslength sel)) (setq e (entget (ssname sel (setq i (1- i))))) (entmod (subst (cons 50 ang) (assoc 50 e) e))) ; )

I'd appreciate any help you can give me.

Re: Rotate text according to ucs angle

Sea-Haven — Mon, 02 Jun 2025 01:36:29 GMT

Have you looked at the 210 dxf code it may do what you want not tested.

(210 0.0 0.0 -1.0) is text at 0.0 angle in world UCS

(210 0.0 -1.0 0.0) is text rotated in 3d 90 about the X axis

Re: Rotate text according to ucs angle

carlos_m_gil_p — Mon, 02 Jun 2025 02:17:16 GMT

Hi bro, thanks for responding.
I just checked the 210 code, but all the texts are the same.
(210 0.0 0.0 1.0)

Re: Rotate text according to ucs angle

paullimapa — Mon, 02 Jun 2025 05:36:49 GMT

post a sample dwg and point out the text that do work vs text that don't

Re: Rotate text according to ucs angle

ВeekeeCZ — Mon, 02 Jun 2025 06:44:08 GMT

You can't treat MTEXT and TEXT the same way.

While TEXT behaves as expected, the angle is always stored according to WCS; the MTEXT angle is, for some reason, stored according to UCS.

Re: Rotate text according to ucs angle

Sea-Haven — Tue, 03 Jun 2025 00:26:16 GMT

I may be going down the wrong path, Having another look at this for text & mtext.

The BC is in world (210 0.0 0.0 1.0)

The DEF is in a ucs of 90 rotated about X (210 0.0 -1.0 0.0)

Using Mtext

The qwert is world (210 0.0 0.0 1.0)

The ASDF is UCS (210 0.0 -1.0 0.0)

View in 3D

Re: Rotate text according to ucs angle

komondormrex — Tue, 03 Jun 2025 19:56:03 GMT

hey you there,

check the following.

(defun c:rot (/ rotation) (mapcar '(lambda (m_text) (if (= "AcDbText" (vla-get-objectname m_text)) (setq rotation (- (angle '(0 0 0) (getvar 'ucsxdir)) (vla-get-rotation m_text))) (setq rotation (- (angle '(0 0 0) '(1 0 0)) (vla-get-rotation m_text))) ) (vla-rotate m_text (vla-get-insertionpoint m_text) rotation) ) (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "MTEXT,TEXT"))))))) ) (princ) )

Re: Rotate text according to ucs angle

carlos_m_gil_p — Wed, 04 Jun 2025 02:03:13 GMT

Hello, how are you?
I just want all the text I select to be horizontal and read from left to right.

Re: Rotate text according to ucs angle

carlos_m_gil_p — Wed, 04 Jun 2025 02:04:03 GMT

Hello, how are you?
I'm just realizing right now that they don't work the same.

Re: Rotate text according to ucs angle

carlos_m_gil_p — Wed, 04 Jun 2025 02:05:43 GMT

Hello, how are you?
This isn't what I'm looking for right now. As I mentioned above, I just want all text and mtext to be horizontal.
It doesn't matter if I have the screen or the UCs rotated.

Re: Rotate text according to ucs angle

carlos_m_gil_p — Wed, 04 Jun 2025 02:12:33 GMT

Hi, how are you?
I just ran the tests, and it works great in this dwg file I posted.
But I ran a new test where I set the entire screen to normal and rotated it 90 degrees.
But when I use your function again, the text remains vertical.
Is there a way to improve that?

I turned it from here.

I am attaching a new dwg where I am doing the new tests.

Re: Rotate text according to ucs angle

carlos_m_gil_p — Wed, 04 Jun 2025 02:31:17 GMT

Hey guys, I just found a routine from Mr. Lee_Mac, and it works fine.
And with lee_mac's permission, I wonder if there's a way to modify the getorient function.
It's possible to make it get the angle itself so it doesn't have to select two points on the screen.
In the tests I've run, getorient determines the direction of the text, so I always select two points horizontally from left to right, and all the text always remains horizontal.

(defun c:xxx (/ ss ang e eLst xAng e) ; Lee Mac ~ 16.04.10[/i] (if (and (setq ss (ssget "_:L" '((-4 . "<OR") (0 . "*TEXT,ATTDEF") (-4 . "<AND") (0 . "INSERT") (66 . 1) (-4 . "AND>") (-4 . "OR>")))) (setq ang (getorient "\nSpecify Angle: "))) ((lambda (i) (setq xAng (angle '(0.0 0.0 0.0) (trans (getvar 'UCSXDIR) 0 (trans '(0.0 0.0 1.0) 1 0 t)))) (while (setq e (ssname ss (setq i (1+ i)))) (cond ((eq "INSERT" (cdr (assoc 0 (setq eLst (entget e))))) (while (not (eq "SEQEND" (cdr (assoc 0 (setq eLst (entget (setq e (entnext e)))))))) (entmod (subst (cons 50 (+ ang xAng)) (assoc 50 eLst) eLst)))) ((entmod (subst (cons 50 (if (eq "MTEXT" (cdr (assoc 0 eLst))) ang (+ ang xAng))) (assoc 50 eLst) eLst)))))) -1)) (princ))

Re: Rotate text according to ucs angle

carlos_m_gil_p — Wed, 04 Jun 2025 02:35:08 GMT

Hey guys, I just found a routine from @Lee_Mac and it works fine.
And with Lee_Mac's permission, I wonder if there's a way to modify the getorient function.
It's possible to make it get the angle itself so it doesn't have to select two points on the screen.
In the tests I've run, getorient determines the direction of the text, so I always select two points horizontally from left to right, and all the text always remains horizontal.

Re: Rotate text according to ucs angle

komondormrex — Wed, 04 Jun 2025 06:27:05 GMT

hey, rot custom command will rotate {m}texts to align with x axle of the current ucs, which in your very case of rtext2 drawing is pretty vertical. so they surely will stay vertical.