| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Engineering Erleben: Innovationen. Interfaces. Impulse., eine Veranstaltung am 01.10.2024
|
Autor
|
Thema: Bemassungsfarbe ändern (1014 mal gelesen)
|
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Acad 2007
|
erstellt am: 29. Jun. 2006 14:53 <-- editieren / zitieren --> Unities abgeben:
Hallo Da ich ab und zu meine Zeichnungen auch für berichte benütze habe ich eine lsp gemacht die meine layer auf weiss stellt und wieder zurück. So kann ich ganz einfach über einen befehl die farbe steuern. Code: (defun C:Layerfarbe () (command "_-layer" "_m" "layer1" "_c" "253" "" "") (command "_-layer" "_m" "layer2" "_c" "4" "" "") (command "_-layer" "_m" "layer3" "_c" "2" "" "") ..... )(defun C:Layerweiss () (command "_-layer" "_m" "layer1" "_c" "7" "" "") (command "_-layer" "_m" "layer2" "_c" "7" "" "") (command "_-layer" "_m" "layer3" "_c" "7" "" "") ..... ) usw.
Meine Bemassungslinienfarbe ist auf bylayer so wird diese auch weiss aber leider die schrift nicht. Kann man das auch irgend wie in die lsp einbinden so das alle Bemaassungen (Schrift) Weiss werden und beim anderen befehl wieder Gelb?? Andrea
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 29. Jun. 2006 15:12 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
|
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Acad 2007
|
erstellt am: 29. Jun. 2006 15:15 <-- editieren / zitieren --> Unities abgeben:
|
Cadworx Mitglied
Beiträge: 86 Registriert: 21.08.2004 Autodesk infiziert seit 1996 (AutoCAD / ADT / Revit) und ein paar Branchenapplikationen
|
erstellt am: 29. Jun. 2006 15:20 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Ich denke die Variable DIMCLRT hilft dir weiter. Diese ist für die Farbe des Bemassungstexts verantwortlich (vom aktuellen Stil). Im WEISS-LISP stellst du diesen Wert auf 7, anschliessend wieder zurück. ------------------ Viele Grüsse aus dem Land der Berge CADworx STOPPT Bananensoftware! Software soll nicht erst beim Kunden reifen... 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: 29. Jun. 2006 15:20 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
dann kannst du Objektfarbe logischerweise nicht über die Layer ändern, sondern nur direkt am Objekt ... ------------------ - 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 |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 29. Jun. 2006 15:38 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Hallo Andrea, wie CADworx schon sagte, DIMCLRT, aber das setzen allen reicht nicht, Du musst auch noch die Bemaßungen updaten, ungefähr so: setzen:
Code:
(setvar "dimclrt" 256) ;; 256 ist vonlayer (setq alle_dim (ssget "x" '((0 . "DIMENSION")))) (command "bem" "update" alle_dim "" "exit")
rücksetzen:
Code:
(setvar "dimclrt" 2) ;; 2 ist gelb (setq alle_dim (ssget "x" '((0 . "DIMENSION")))) (command "bem" "update" alle_dim "" "exit")
OK nicht schön mit dem command, geht aber. Alternativ könnte man auch alle Elemente des SelSets alle_dim durchgehen und den entsprechenden Gruppencode ändern (welcher??) lg Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Acad 2007
|
erstellt am: 29. Jun. 2006 16:03 <-- editieren / zitieren --> Unities abgeben:
Danke Thomas habe den code (setvar "dimclrt" 2) ;; 2 ist Gelb (command "dim" "update" "all" "" "exit") integriert Die farbe funktioniert aber nun werden alle meine Bemassungsstyles zu einem. Habe verschiedene Bemassungsstyle z.B DIM-1-1, DIM-1-5 usw) wenn ich nun den befehl ausführe werden alle masslinien zum ausgewählten bemassungsstyle. Was muss ich ändern das die Masslinien ihren style behalten?? Andrea 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: 29. Jun. 2006 16:10 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Zitat: Original erstellt von redfrog:
Was muss ich ändern das die Masslinien ihren style behalten??
bei mehreren Stilen und evtl. Stilüberschreibungen bleibt dir nur das übrig ... also per Lisp alle Bemassungen durchlaufen und die Textfarbe setzen ( am besten dabei gleich die Ursprungsfarbe als XDATA am Objekt merken .. wegen dem zurücksetzen ) ------------------ - 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 |
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Acad 2007
|
erstellt am: 29. Jun. 2006 16:18 <-- editieren / zitieren --> Unities abgeben:
Hallo CADmium Wie genau meinst du alle styles durchlaufen kannst mir ein bespiel machen Denn ich bin nicht gerade die beste mit lsp Danke Andrea [Diese Nachricht wurde von redfrog am 30. Jun. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |