(defun c:test (/ L1 A1 T1 S1 AUSWAHL) ;;; Texte, die "20 *" enthalten (setq AUSWAHL (ssget "X" '((0 . "TEXT") (1 . "20 *") ) ) ) (setq NEUE_TEXTHOEHE 1.5) (setq TEXTSTIL "ARIAL") (setq LAYER "M_WA_LA_TEXT_HA") (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (setq OBJDATA (subst (cons 40 NEUE_TEXTHOEHE)(assoc 40 OBJDATA)OBJDATA)) (if (tblsearch "LAYER" LAYER) (setq OBJDATA (subst (cons 8 LAYER)(assoc 8 OBJDATA)OBJDATA)) ) (if (tblsearch "STYLE" TEXTSTIL) (setq OBJDATA (subst (cons 7 TEXTSTIL)(assoc 7 OBJDATA)OBJDATA)) ) (entmod OBJDATA) ) (command "ändern" AUSWAHL "" "ei" "fa" "vonlayer" "") ;;; VL Texte (setq AUSWAHL (ssget "X" '((0 . "TEXT") (8 . "M_WA_LA_TEXT") ) ) ) (setq NEUE_TEXTHOEHE 1.5) (setq TEXTSTIL "ARIAL") (setq LAYER "M_WA_LA_TEXT") (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (setq OBJDATA (subst (cons 40 NEUE_TEXTHOEHE)(assoc 40 OBJDATA)OBJDATA)) (if (tblsearch "LAYER" LAYER) (setq OBJDATA (subst (cons 8 LAYER)(assoc 8 OBJDATA)OBJDATA)) ) (if (tblsearch "STYLE" TEXTSTIL) (setq OBJDATA (subst (cons 7 TEXTSTIL)(assoc 7 OBJDATA)OBJDATA)) ) (entmod OBJDATA) ) (command "ändern" AUSWAHL "" "ei" "fa" "vonlayer" "") ) (princ "\nType to start")