Hi,
See if this quick code does what you are looking for.
Load the code in your drawing session, type any text or mtext and use: (get_txtrot_angle)
To read the rotation angle.
HTH
(vl-load-com)
(if (not (getenv "TextRotationAngle"))
(setenv "TextRotationAngle" "0.0"))
(defun savetxtrotangle (reactor params / ename obj)
(if (and (wcmatch (car params) "TEXT,MTEXT")
(setq ename (entlast))
(wcmatch (cdadr (entget ename)) "TEXT,MTEXT"))
(progn
(setq obj (vlax-ename->vla-object ename))
(setenv "TextRotationAngle"
(rtos (vla-get-rotation obj) 2 8)))))
(if (not text_rotation_angle_reactor)
(setq text_rotation_angle_reactor
(vlr-editor-reactor
"text rotation angle"
'((:vlr-commandended . savetxtrotangle)))))
(defun rtd (a) (* (/ a pi) 180.0))
(defun get_txtrot_angle ()
(rtd (atof (getenv "TextRotationAngle"))))
(princ)