Rotate relative to current UCS

Is it possible to rotate an object to thecurrent UCS. I use UCS object quite a bit and want to align text to the mycurrent UCS without having to align it to an object. i.e. to select the text andsimply rotate it around the justify point to a set angle relative to the current view. Hopethat makes sense.

Something like this?

;;; Rotate Text to Current UCS routine (26-X-2012)
(defun c:RTCU( / ssetText assocText )
(prompt "\nSelect text entity to match with current UCS rotation (plan only):")
(if (setq ssetText (ssget "_:S" '((0 . "TEXT"))))
 (entmod (setq assocText (entget (ssname ssetText 0))
               assocText (subst (cons '50 (atan (cadr (getvar "UCSXDIR"))
                                                (car  (getvar "UCSXDIR"))))
                                (assoc 50 assocText)
                                assocText)))
)
(princ)
)

Thank you. Exactly like that.

Glad to hear that. The code must be adusted for non planar (XoY) labels.