(defun binfotxt_color ( /  sub e3 e2 block subenti farbe)
    (setq block (tblobjname "BLOCK" (cdr(assoc 2 (entget(car(entsel)))))))
    (setq e2 (entnext block))
            (while (/= e2 nil)
                (setq sub (cdr(assoc 0 (entget e2))))
                    (cond
                        ((= sub "MTEXT")
                            (princ "\nMTEXT vorhanden")
                            (setq subenti (entget e2))
                            (setq farbe (cons 62 2))
                            (setq subenti (subst farbe (assoc 62 subenti) subenti))
                            (entmod subenti)
                        )
                    );cond
                        (setq e3 (entnext e2))
                        (setq e2 e3)
            );end while
        (entupd block)
);end binfotxt_color