; ----------------------------------------------------------------------
(defun C:textstil ( / AS Wahl)
  (princ "\n--------- Aendern des Textstils von Texten: --------")
  (setq Wahl (strcase (getstring "\nKomplett / Auswahl: <A>: ")))
  (if (= Wahl "") (setq Wahl "A"))
  (if (= Wahl "A") (progn
       (princ "\nWaehle Texte ... ")
       (setq AS (ssget (list (cons 0 "TEXT"))))
     ); progn
     (progn
        (setq oldStyle (getstring "\nAlter Textstil, der ge„ndert werden soll: "))
        (setq AS (ssget "X" (list (cons 0 "TEXT") (cons 7 oldStyle))))
  )); progn - if
  (if AS (progn
      (princ (sslength AS)) (princ " Texte gefunden")
      (setq newStyle (getstring "\nneuen Stilnamen eingeben: "))
      (setq Lauf -1)
      (while (setq ename (ssname AS (setq Lauf (1+ Lauf))))
        (setq elist (entget ename))
        (setq oldStyle (cdr (assoc 7 elist)))
        (setq elist (subst (cons 7 newStyle) (assoc 7 elist) elist))
        (entmod elist)
      ) 
    ) ; progn
    ; else
      (princ " Keine Texte gefunden")
  ); if
  (princ)
)