guck dir mal dazu folgendes Codefragment genauer an :
(and(setq OBJ(car(entsel)))
(setq OBJ(entget OBJ))
(=(cdr(assoc 0 OBJ))"DIMENSION")
(setq TEXT (cdr(assoc 1 OBJ)))
(cond
((= TEXT "")(setq TEXT "%%c<>"))
((/=(substr TEXT 1 3) "%%c")(setq TEXT (strcat "%%c" TEXT)))
(' T TEXT)
)
(entmod(subst(cons 1 TEXT)(assoc 1 OBJ) OBJ))
)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP