---

Hi folks,
ich habe folgendes Problem: In unserer Firma wollen wir bei dwgs, die wir von anderen bekommen, alle Layerfarben auf weiß oder 7 stellen. ABER... die Layer-Einstellung, die angibt, ob der Layer aktiviert oder deaktiviert ist, soll sich NICHT ändern.
Mit "-layer farbe 7 layernamen" wird leider jeder bearbeitete Layer aktiviert. Oder man kann auch jeden bearbeiteten Layer automatisch deaktivieren. Aber die ursprüngliche aktiv- oder deaktiv-Einstellung kann man beim Farbe ändern mit "-layer" nicht beibehalten.
Weiß jemand eine Lösung, bitte?

Euer Stephan autocart 

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

---

Hallo,

man kann über den Layer-Manager gehen...

Lothar

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

---

Kurz zusammengestoppelt:

(defun C:SETLAYERFARBE-7 ( / LAYER LDATEN)
  (While (setq LAYER (tblnext "LAYER" (null LAYER)))   
    (setq LDATEN (entget(tblobjname "LAYER" (cdr(assoc 2 LAYER)))))     
    (setq LDATEN(subst
                  (cons 62 (* 7 (if(>(cdr(assoc 62 LDATEN))0) 1 -1)))
                  (assoc 62 LDATEN)LDATEN)
    )
    (entmod LDATEN)
  )
  (princ)
)

Laden und Aufruf mit SETLAYERFARBE-7

------------------
- Thomas -

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

---

@Lothar

Seufz...
jedenfalls danke für's lesen. Aber du hast recht - ich sollte genauere Angaben machen.
Also... Das ganze soll ein Script sein, das dann mit einem Knopfdruck alle Layer ändert und auch noch einige andere Dinge macht, die hier wurscht sind. Insofern nützt mir der Layermanager diesmal nichts.

Danke trotzdem für schreiben einer Antwort!!
Stephan

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

---

... zu lange Antwort geschrieben statt ein µ gewartet.. !!

------------------
- Thomas -

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

---

@thomas
Meinst du wegen dem Script, und deinem Code in AL? Den kann man aber doch eh' wie einen normalen Acad-Befehl auch aus einem Script heraus aufrufen, oder nicht?
Stephan

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

---

ja! das Lisp speichern und in der acaddoc.lsp (wird mit jeder Zeichnung geladen) mit (load "Dateiname") laden lassen.
Dann kannste es wie einen normalen ACAD-Befehl nutzen. Auch im Schript.

------------------
- Thomas -

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

---

Danke!
Habe das prog schon ausprobiert. Scheint zu funktionieren.
Jetzt würde ich es nur noch gerne verstehen, noch dazu ist es ja so kurz. Aber kommt Zeit, kommt Lispverständnis...
Das war sehr nützlich. Danke nochmals
Stephan

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

---

Servus

Wieso so umständlich. Wenn alle Layerfarben geändert werden einfach * verwenden.

^C^C-layer;fa;7;*;;

Sorry mein Fehler

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P. 

[Diese Nachricht wurde von Bernd P am 13. Jul. 2004 editiert.]

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

---

@Bernd P : .. nicht richtig gelesen?
Zitat: ...Aber die ursprüngliche aktiv- oder deaktiv-Einstellung kann man beim Farbe ändern mit "-layer" nicht beibehalten.....

------------------
- Thomas -

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