Rotate Text lisp

Hello Everyone,

Is it possible to write a lisp to mimic the Torient express tool behavior ... I have a multiple texts and Mtexts in my drawing and i want to rotate them all to be in the most readable way.

Any help is appreciated ... Thanks a lot.

Make Angle Readable by: ymg

(defun MakeReadable (a)
    (setq a (rem (+ a pi pi) (+ pi pi)))
    (rem (if (< (* pi 0.5) a (* pi 1.5))(+ a pi) a) (+ pi pi))  
 )

;hint:

[color="red"]([/color][color="blue"]cons[/color] [color="green"]50 [/color] [color="red"]([/color] [color="blue"]MakeReadable[/color] a [color="red"]))[/color][color="gray"]; a= angle of selected TEXT, by [/color][color="blue"]assoc entget[/color]
[color="blue"]entmod
subst[/color]