;  modi_rot.lsp
;  aendern Textrotation
;   
(princ "Start mit modi_rot ")
(defun c:modi_rot(/ tl anz ct ctl x )

  (princ "Texte wählen")

  (setq tl (ssget '((0 . "TEXT"))))
  (setq anz (sslength tl) x 0)
  (while (< x anz)
    (setq ct (ssname tl x))
    (setq ctl (entget ct))
    (setq alt_10 (cdr (assoc 10 ctl)))
    (setq neu_10 (trans alt_10 0 '(0 -1 0))) 
    (setq ctl (subst (cons 10 neu_10) (assoc 10 ctl) ctl))
    (setq ctl (subst (cons 210 '(0.0 -1.0 0.0)) (assoc 210 ctl) ctl))
    (entmod ctl)
    (entupd ct)
    (setq x (1+ x))
  )  
)