(defun ROTATE_TXT ( / SR TXT_INSERT)
(Setvar "osmode" 0)
(while (NOT SR)
(setq SR (entsel "\nSelect text to rotate"))
(if (NOT SR)
(princ "\nYou missed the text. Try again")
) ; end if NOT
)
(setq TXT_INSERT (cdr (assoc 10 (entget (car SR)))))
(setq TXT_ANG (cdr (assoc 51 (entget (car SR)))))
(command "ROTATE" SR "" TXT_INSERT "R" TXT_ANG pause )
(princ)
)
(defun ROTATE_TXT ( / SR TXT_INSERT
TXT_INS_L TXT_ANG_DEG
TXT_INS_R TXT_ANG_RAD )
(Setvar "osmode" 0)
(while (NOT SR)
(setq SR (entsel "\nSelect text to rotate"))
(if (NOT SR)
(princ "\nYou missed the text. Try again")
) ; end if NOT
)
(setq TXT_INS_L (cdr (assoc 10 (entget (car SR)))))
(setq TXT_INS_R (cdr (assoc 11 (entget (car SR)))))
(setq TXT_ANG_RAD (cdr (assoc 50 (entget (car SR)))))
(setq TXT_ANG_DEG (* (/ TXT_ANG_RAD pi) 180.0))
(setq JUST (cdr (assoc 72 (entget (car SR)))))
(If
(= Just 0)
(setq TXT_INSERT TXT_INS_L)
(progn (setq TXT_INSERT TXT_INS_R)
(setq TXT_ANG_DEG (- TXT_ANG_DEG 180))
)
)
(command "ROTATE" SR "" TXT_INSERT "R" TXT_ANG_DEG pause )
(princ)
)