(setq cts_obj (entget (tblobjname "style" "Htsv")))
; holt sich das Objekt des Textstiles
(setq cts_obj (subst (cons 2 "AKG") (assoc 2 cts_obj) cts_obj))
; ändert den Stilnamen
(setq cts_obj (subst (cons 3 "AKG_DIN67.TTF") (assoc 3 cts_obj) cts_obj))
; ändert den zugewiesenen Textfont
(setq cts_obj (subst (cons 4 "") (assoc 4 cts_obj) cts_obj))
; setzt den BigFont zurück
(entmod cts_obj)
; aktualisiert das Textstilobjekt 
; Alles TEXTe auf Textstil AKG welche kleinere Breitenfaktor als 1,
; jedoch größer wie 0.6 haben auf 0.9 stellen
(if (setq n 0 aws (ssget "_X" '((0 . "TEXT")(7 . "AKG")(-4 . "<")(41 . 1)(-4 . ">")(41 . 0.6))))
    (repeat (sslength aws)
      (entmod (subst '(41 . 0.9)(assoc 41 (entget (ssname aws n)))(entget (ssname aws n))))
      (setq n (1+ n))
    )
)
INSUNITS 6
; Zeichnungseinheiten in m
_-layer
_rename
HTSV_P1_PLAN_TEXT_T03
T__TEXT
_color
3
T__Text

_regenall

_-layer
_rename
HTSV_BT_WAND_STBT_S02
T__SCHR
_color
157
T__SCHR

_regenall

; Skriptende