| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Brühl und CIDEON: Synergien schaffen Wettbewerbsvorteile , ein Anwenderbericht
|
Autor
|
Thema: Layerfarbe ändern ohne aktivieren/deaktivieren? (281 mal gelesen)
|
autocart Mitglied Technischer Redakteur
Beiträge: 698 Registriert: 08.09.2003 If you want to help and want to respect other people's questions, then, please: Please, ALWAYS assume that I already tried to search for an answer to my question. Thx. Also, please, DON'T ask me what the "actual" goal of my question is. Please, firstly just answer it directly as stated - if you know an answer and want to give it. Only secondly, add other commments. Many, many, many thanks in advance!
|
erstellt am: 13. Jul. 2004 11:19 <-- editieren / zitieren --> Unities abgeben:
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 |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 13. Jul. 2004 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für autocart
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 13. Jul. 2004 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für autocart
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 |
autocart Mitglied Technischer Redakteur
Beiträge: 698 Registriert: 08.09.2003
|
erstellt am: 13. Jul. 2004 11:31 <-- editieren / zitieren --> Unities abgeben:
@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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 13. Jul. 2004 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für autocart
|
autocart Mitglied Technischer Redakteur
Beiträge: 698 Registriert: 08.09.2003
|
erstellt am: 13. Jul. 2004 11:37 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 13. Jul. 2004 11:47 <-- editieren / zitieren --> Unities abgeben: Nur für autocart
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 |
autocart Mitglied Technischer Redakteur
Beiträge: 698 Registriert: 08.09.2003
|
erstellt am: 13. Jul. 2004 11:50 <-- editieren / zitieren --> Unities abgeben:
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 13. Jul. 2004 12:15 <-- editieren / zitieren --> Unities abgeben: Nur für autocart
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 13. Jul. 2004 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für autocart
@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 |