---

Guten Morgen,

ich habe ein Problem mit Zeichnungen, die mit Inventor als DWG gespeichert werden. Alles Layer haben die Farbe schwarz.
Ich möchte aber die Farben der Layer ändern.

Nun in AutoCAD gibt es ja LISPs und die Namen der Layer kenne ich auch.
Nur habe ich keine Ahnung wie der Lisp-Code aussehen muss. Kann mir da mal bitte jmd. ein paar Beispielzeilen geben?

Das wäre echt nett.

Einen schönen Tag noch,
SKYSURFER

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

---

via AktivX gehts mit
(vl-load-com)
(vla-put-color(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))"0") 1)

-> setzt die Farbe des LAyers "0" auf Rot

mit normalo-Lisp

(and(setq L (tblobjname "LAYER" "0"))
    (setq L (entget L))
    (setq F (cdr(assoc 62 L)))
    (setq L (subst (cons 62 (* (if (< F 0) -1 1) 34))(assoc 62 L)L))
    (entmod L)
)

Es gibt aber fertige Programm für sowas. Ist vielleicht günstiger als selbst Zeit dafür aufzuwenden.

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

---

Hallo,

vielen Dank für deinen Beispielcode.
Ich habe das jetzt mal so gemacht:

Code:

---

(defun c:farben ()
(and(setq L (tblobjname "Schraffur (ISO)" "1"))
    (setq L (entget L))
    (setq F (cdr(assoc 62 L)))
    (setq L (subst (cons 62 (* (if (< F 0) -1 1) 34))(assoc 62 L)L))
    (entmod L)
)
(and(setq L (tblobjname "Bemaßung (ISO)" "3"))
    (setq L (entget L))
    (setq F (cdr(assoc 62 L)))
    (setq L (subst (cons 62 (* (if (< F 0) -1 1) 34))(assoc 62 L)L))
    (entmod L)
)
)

---

Doch leider bekomme ich nur ein NIL (Not In List) zurück.

Befehl:
Befehl: (LOAD "C:/Dokumente und Einstellungen/MB101/Desktop/farben.lsp")
C:FARBEN

Befehl: FARBEN
nil

Woran kann das liegen?

Gruß
SKYSURFER

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

---

Ein Scriptfile wäre vielleicht auch eine  Lösung für Dich.
Mit der folgenden Zeile
(command "_-layer" "_color" "1" "layer1" "")
setzt Du die Farbe von LAYER1 auf 1 und für jeden Layer hängst noch eine Zeile dran, nennst die Datei layerfarbe.scr und startest diese bei jeder DWG mit dem Befehl script.

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

---

@cad4fun

Kannst du das etwas genauer beschreiben, wie ich diese Script-Datei in mein AutoCAD einbinde?

Gruß
SKYSURFER

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

---

Viel mehr gibt es nicht zu beschreiben!
aber noch einmal
1)Für jeden Layer musst die entsprechende Zeile in die Datei schreiben
2)nenn die Datei layerfarbe.scr und starte diese bei jeder DWG mit dem Befehl script.

Vorher suchst im Forum vielleicht noch nach Sriptpro, um ein ganzes Verzeichnis mit einem Schlag dieser Scriptdatei zu unterwerfen

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

---

(setq L (tblobjname "LAYER" "Schraffur (ISO)"))

wenn dein LAYER  "Schraffur (ISO)" heißt!

Die Farbe ist dann der wert 34 im Bsp.. dafür mußt du die Farbnummer eingeben

aber die command-Variante ist vielleicht für dich am günstigsten
(defun c:FARBE()
  (command "-layer" "_c" 1 "Schraffur (ISO)" "")
  (command "-layer" "_c" 3 "Bemaßung (ISO)"  "")
)

setzt aber vorraus, das der jeweilige Layer existiert.

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

---

Hallo,

entschuldige Bitte wenn ich nochmals frage,
aber wo steht da was von 34?

und wenn ich das so mache:

Code:

---

(defun c:FARBE()
  (command "-layer" "_c" "1" "Schraffur (ISO)" "")
  (command "-layer" "_c" "3" "Bemaßung (ISO)"  "")
)

---

dann bekomme ich das Fester angezeigt, wo ich eine Farbe auswählen kann.
Es läuft aber nicht automatisch durch, dass alle Layer die zugewiesene
Farbe bekommen.

Gruß
SKYSURFER

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

---

Zitat:

---

Original erstellt von SKYSURFER:
Hallo,

entschuldige Bitte wenn ich nochmals frage,
aber wo steht da was von 34?

---

Hier :

(and(setq L (tblobjname "LAYER" "0"))
    (setq L (entget L))
    (setq F (cdr(assoc 62 L)))
    (setq L (subst (cons 62 (* (if (< F 0) -1 1) 34))(assoc 62 L)L))
    (entmod L)
)

"0" in der ersten Zeile ist der LAyername
der Zahlwert in der vorletzten Zeile der ACI (Farbnummer)

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

---

Zitat:

---

Original erstellt von SKYSURFER:

und wenn ich das so mache:

Code:

---

(defun c:FARBE()
  (command "-layer" "_c" "1" "Schraffur (ISO)" "")
  (command "-layer" "_c" "3" "Bemaßung (ISO)"  "")
)

---

dann bekomme ich das Fester angezeigt, wo ich eine Farbe auswählen kann.
Es läuft aber nicht automatisch durch, dass alle Layer die zugewiesene
Farbe bekommen.

Gruß
SKYSURFER

---

Gibt's die beiden Layer in der DWG, in der Du testest?

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

---

AutoCAD-LISP.jpg

Hallo,

klar sind die Layer vorhanden.
Im Anhang findest du ein Bild.

Gruß
SKYSURFER

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

---

Und sind das auch runde Klammern? Schaun ein wenig wie eckige aus.

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

---

AutoCAD-LISP2.jpg

Hallo,

Klammern sind rund(siehe Bild).

Gruß
SKYSURFER

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

---

Hier hat uns CADmium ein Ei gelegt, an dem ich jetzt lange herumgekaut habe. Der Befehl FARBE existiert schon im ACAD, daher ist eine Listroutine, welche mit Farbe gestartet wird ein Unfug. Schreib 'C:FARB' und starte mit FARB, dann funkt es.

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

---

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

---

Guten Morgen,

vielen Dank für eure Hilfe, nun klappt es.

Gruß
SKYSURFER

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