| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Wie Layerfarbe bei bekannten Layern ändern (2660 mal gelesen)
|
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 20. Aug. 2008 08:28 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 20. Aug. 2008 08:37 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
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 |
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 20. Aug. 2008 09:39 <-- editieren / zitieren --> Unities abgeben:
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 |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 20. Aug. 2008 09:42 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
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 |
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 20. Aug. 2008 09:46 <-- editieren / zitieren --> Unities abgeben:
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 20. Aug. 2008 09:54 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 20. Aug. 2008 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
(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 |
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 20. Aug. 2008 11:58 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 20. Aug. 2008 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
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 |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 20. Aug. 2008 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
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 |
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 21. Aug. 2008 15:10 <-- editieren / zitieren --> Unities abgeben:
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 21. Aug. 2008 15:17 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
|
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 21. Aug. 2008 16:34 <-- editieren / zitieren --> Unities abgeben:
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 21. Aug. 2008 17:04 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 21. Aug. 2008 17:08 <-- editieren / zitieren --> Unities abgeben: Nur für SKYSURFER
|
SKYSURFER Mitglied Maschinenbautechniker
Beiträge: 361 Registriert: 27.08.2004
|
erstellt am: 22. Aug. 2008 08:29 <-- editieren / zitieren --> Unities abgeben:
|