(defun c:SetUcs (/ ss errorTemp)
(setq ss (cadr (ssgetfirst)))
(sssetfirst nil nil)
(setq errorTemp *error*
*error* myError
)
(command "_.undo" "_begin")
(if (and (= nil ss) (= nil (setq ss (st:FiltSel))))
(print "未选择对象!")
(progn
(princ "\n角度：")
(setq getst (getreal))
(cond ((/= getst nil)
(st:Change ss getst)
)
(t
(st:Change ss 0)
)
)

)
)
(command "_.undo" "_end")
(setq *error* errorTemp)
(princ)
)
(defun st:Change (ss inprot / ct st)
(setq ct 0
;st nil
)
(if (/= nil ss)
(progn
(repeat (sslength ss)
(setq st (ssname ss ct))
(ChangeTextRotation (entget st) inprot)
;(princ (entget st))
;(princ ct)
(setq ct (+ ct 1))