(defun c:Xrein (/ TX_ST) (vl-load-com)
  (setq	TX_ST (vla-get-Textstyles
		(vla-get-ActiveDocument (vlax-get-acad-object))))
  (vlax-for i TX_ST (if	(= (vla-get-fontFile i) "txt.shx")
		           (vla-put-fontFile i "simplex.shx") ))
  (command "_audit" "_y")
  (command "_purge" "a" "*" "n") (princ "...ausgeführt!")(princ)
)
(princ "Programm geladen -> mit XREIN starten")