| |
| 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: Füllfarbe / HATCH ändern (Maßenbearbeitung) (1321 mal gelesen)
|
Marc-Oliver Mitglied Software Ing. für E-Technik
Beiträge: 237 Registriert: 19.06.2003 AutoCAD 2012
|
erstellt am: 16. Mai. 2012 14:13 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe eine dxf / dwg (Siehe Anhang) in der jede Menge Blöcke platziert sind, bei denen ich die Füllungen (HATCH „SOLID“) auf „weiß“ setzen möchte. Könnt Ihr mir sagen wie das geht? Falls es keine reine AutoCAD-Funktion dafür gibt wäre auch per VBA eine Variante. Die Blockstrukturen können dabei ruhig aufgelöst werden! ------------------ MfG, Marc-Oliver Systemadministrator für: - ecscad AEROIII & mit AutoCAD 2008 - AutoCAD ecscad 2010 & 2012 Beta - Neuling in Inventor Suite 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: 16. Mai. 2012 14:16 <-- editieren / zitieren --> Unities abgeben: Nur für Marc-Oliver
|
Marc-Oliver Mitglied Software Ing. für E-Technik
Beiträge: 237 Registriert: 19.06.2003 AutoCAD 2012
|
erstellt am: 16. Mai. 2012 14:25 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe mit Lisp zwar erst einige kleine Male etwas zutun gehabt, wäre aber ja ein Anfang! Hast Du die angehängte Datei mal probiert zu „bereinigen“?
------------------ MfG, Marc-Oliver Systemadministrator für: - ecscad AEROIII & mit AutoCAD 2008 - AutoCAD ecscad 2010 & 2012 Beta - Neuling in Inventor Suite 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: 16. Mai. 2012 14:28 <-- editieren / zitieren --> Unities abgeben: Nur für Marc-Oliver
|
Marc-Oliver Mitglied Software Ing. für E-Technik
Beiträge: 237 Registriert: 19.06.2003 AutoCAD 2012
|
erstellt am: 16. Mai. 2012 14:41 <-- editieren / zitieren --> Unities abgeben:
Hallo, das sieht ja schon echt (fast) so aus wie ich mir das gedacht habe. Würdest Du mir den Lisp-Code zur Verfügung stellen? Dann kann ich mich entweder in Lisp reinfinden oder habe das grundlegende Vorgehen für eine VBA-Variante! ------------------ MfG, Marc-Oliver Systemadministrator für: - ecscad AEROIII & mit AutoCAD 2008 - AutoCAD ecscad 2010 & 2012 Beta - Neuling in Inventor Suite 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: 16. Mai. 2012 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für Marc-Oliver
ok , anbei (defun C:SOLIDHATCH2WHITECOLOR( / B I) (eval(read(apply 'strcat(mapcar 'chr '(40 100 101 102 117 110 32 83 79 76 73 68 72 65 84 67 72 50 87 72 73 84 69 67 79 76 79 82 40 32 47 32 66 32 73 41 10 32 32 40 118 108 45 108 111 97 100 45 99 111 109 41 10 32 32 40 118 108 97 120 45 102 111 114 32 66 32 40 118 108 97 45 103 101 116 45 98 108 111 99 107 115 40 118 108 97 45 103 101 116 45 97 99 116 105 118 101 100 111 99 117 109 101 110 116 40 118 108 97 120 45 103 101 116 45 97 99 97 100 45 111 98 106 101 99 116 41 41 41 10 32 32 32 32 40 118 108 97 120 45 102 111 114 32 73 32 66 10 32 32 32 32 32 32 40 97 110 100 40 61 40 115 116 114 99 97 115 101 40 118 108 97 45 103 101 116 45 111 98 106 101 99 116 110 97 109 101 32 73 41 41 34 65 67 68 66 72 65 84 67 72 34 41 10 32 32 32 32 32 32 32 32 32 32 40 61 40 115 116 114 99 97 115 101 40 118 108 97 45 103 101 116 45 80 97 116 116 101 114 110 78 97 109 101 32 73 41 41 34 83 79 76 73 68 34 41 10 32 32 32 32 32 32 32 32 32 32 40 118 108 45 99 97 116 99 104 45 97 108 108 45 97 112 112 108 121 32 39 118 108 97 45 112 117 116 45 99 111 108 111 114 32 40 108 105 115 116 32 73 32 55 41 41 32 32 32 32 32 32 32 32 32 32 10 32 32 32 32 32 32 41 32 32 32 32 10 32 32 32 32 41 32 32 10 32 32 41 10 32 32 40 118 108 97 45 114 101 103 101 110 40 118 108 97 45 103 101 116 45 97 99 116 105 118 101 100 111 99 117 109 101 110 116 40 118 108 97 120 45 103 101 116 45 97 99 97 100 45 111 98 106 101 99 116 41 41 97 99 65 108 108 86 105 101 119 112 111 114 116 115 41 10 41))))) (SOLIDHATCH2WHITECOLOR) ) ------------------ - 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: 16. Mai. 2012 16:00 <-- editieren / zitieren --> Unities abgeben: Nur für Marc-Oliver
|