Align or rotate objects parallel to X axis

Is anyone aware of a lisp routine or macro that will either rotate or align selected objects so they are parallel to an axis on the current UCS? Specifically, when placing mtext to label an object. I typically align my ucs to the object then create the text so it is parallel to the object. It would be great if I could create the text with a rotation of 0, align my ucs to the object to be labeled and then with a single click, select the text making it parallel to the X axis. Would anyone care to share their lisp or macro?

Thanks for the help.

Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.

Image may be NSFW.
Clik here to view.