---

Hi, ich suche eine Möglichkeit die Layerfarben zu ändern.
z.B. - alle Layer mit der Farbe 81 ändern auf Farbe 70
    - alle Layer mit den Farben 72, 73, 74 .... ändern auf Farbe 51

Hintergrund: Oft bekomme ich fremde Zeichungen die nicht in unsere Farbschema passen. Jetzt hatte ich die Idee mir eine "Schablone" zu machen und alle Farben zu ändern, dass sie in Schema passen.

------------------
Gruß Holger

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

---

Hallo Holger

folgenden Code kannst du dir entsprechend einstellen In den ersten Zeilen, entsprechend der Beispiele einfach ändern.

Code:

---

(defun c:nlaycolor (/ vg layers)
  (setq vg
'((1 . 2);Farbe 1 nach 2
  (70 . 51);Farbe 70 nach 51
  )
layers (tab:getLayers)
)
  (foreach LAYER (mapcar '(lambda (L)
    (entget(tblobjname "LAYER" L))
    )
layers)
    (entmod
      (subst (if(assoc (cdr(assoc 62 LAYER)) vg)
      (cons 62 (cdr (assoc (cdr(assoc 62 LAYER)) vg)))
      (assoc 62 LAYER))
    (assoc 62 LAYER)
    LAYER
    )
      )
    )
  )
(defun tab:getLayers (/ la lali)
  (setq la (tblnext "LAYER" T))
  (while la
    (setq lali (cons (cdr(assoc 2 la)) lali)
  la (tblnext "LAYER"))
    )
  (ACAD_STRLSORT lali)
  )

---

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

Hallo

oder mal unter "Extras" "CAD-Standards" ansehen.

Guido

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

---

Danke Holger,
super, genau so was hatte ich mir gedacht. Jetzt muss ich es noch anpassen.

------------------
Gruß Holger

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