;; | -----------------------------------------------------------------------------
;; | TX_Rotate
;; | -----------------------------------------------------------------------------
;; | Function : Rotates a text around its geometric center
;; | Arguments: 'ename'      - Name of the text object to rotate
;; |            'ang'        - Angle to rotate text by (relative).
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------

(defun TX_Rotate ( ename RotAng / Lst p1 p2 p3 p4 MidPt )
(setq
	Lst   (TX_TextBox ename)
	p1    (nth 0 Lst)
	p2    (nth 1 Lst)
	p3    (nth 2 Lst)
	p4    (nth 3 Lst)
	MidPt (MI_MidPoint p1 p3)
)
(command "._Rotate" ename "" MidPt RotAng)
)