---

Hallo,

wie kann ich bei allen ausgeschalteten Layern auch noch das Plotten auf aus setzen?

Vielen Dank und Grüße

Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Georg,

ungetestet:

(if (and(setq layer (tblobjname "LAYER" "MeinLAyer"))
        (<(cdr(assoc 62 layer))0))
    (entmod (subst (cons 290 0)(assoc 290 layer)layer)))

Und das dann in eine Schleife.

------------------
viele Grüße

Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(defun c:Loffnoplot(/ LAYER)
  (while(setq LAYER(tblnext "LAYER" (null LAYER)))
    (setq LAYER(entget(tblobjname "LAYER"(cdr(Assoc 2 LAYER)))))
    (if(<(cdr(assoc 62 LAYER))0)
      (entmod(subst'(290 . 0)(assoc 290 LAYER)LAYER))
    ) 
  )
)

An wirst du sie ja dann wieder alleine bekommen..

------------------
  - 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

---

Vielen Dank. Das ist eine super Lösung.

Wünsche Euch noch einen schönen Tag

Grüße

Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP