(setq LAYDATA(entget(tblobjname "LAYER" "0")))
(if(<(cdr(assoc 62 LAYDATA))0)(princ "\nLAYER aus")(princ "\nLAYER an")
(if(logand(cdr(assoc 70 LAYDATA))1)(princ "\nLAYER gefroren")(princ "\nLAYER getaut")
usw.
------------------
- 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