Rotate Attribute Text

[Anonymous]

I am looking to add to an existing lisp routine that inserts a block and rotates the text that has been added to the block.  We currenly have several fire alarm blocks we are adding text to for easier explanation of the block.  The current blocks, upon insertion, will automoatically rotate an F located within a box. (shown in 1) We have added additional text located outside of the box, that when the block is inserted and rotated 90 deg, the text does not rotate.  We have to manually rotate  and move with a Visibility point. (shown in 2)  We would like this text to automatically rotate to whatever the block is inserted at.

This is our current lisp routine

(defun c:N-SPSTW ()
(p-dev)
(command "-LAYER" "M" "E-FIRE" "C" "21" "" "")(princ)
(prompt "\nInsertion Point of Symbol...")(princ)
(command "INSERT" "SPSTW" "x" "" "y" "" "z" "" pause pause "") ;_ end of command
(command "attedit" "" "" "" "" "l" "a" "0" "")

) ;_ end of defun

[marko_ribar]

Not sure, but maybe just this :

(defun c:N-SPSTW ()
(p-dev)
(command "-LAYER" "M" "E-FIRE" "C" "21" "" "")(princ)
(prompt "\nInsertion Point of Symbol...")(princ)
(command "INSERT" "SPSTW" "x" "" "y" "" "z" "" pause pause "") ;_ end of command
(command "attedit" "" "" "" "" "l" "a" (cvunit (cdr (assoc 50 (entget (entlast)))) "radian" "degree") "")

) ;_ end of defun

M.R.