| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Intelligenter Workflow von Köln bis Delhi mit SAP PLM - KHD Humboldt Wedag (CIDEON, SAP, PLM, ERP, Autodesk Inventor, AutoCAD), ein Anwenderbericht
|
Autor
|
Thema: Block Farbe auf VonBlock (998 / mal gelesen)
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 02. Feb. 2018 12:16 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe vieler dieser Blöcke ---> Jetzt hätte ich gern die Farbe auf VonBlock, was mit dem Code auch funktioniert.
Code: (defun C:BlkByBlock (/ colBlockReference ActDoc dprSelection objSelection strBlockName ) (if (setq dprSelection (entsel "\nSelect Block: ")) (progn (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)) dprSelection (car dprSelection) objSelection (vlax-ename->vla-object dprSelection) ) (vla-StartUndoMark ActDoc) (BlkByBlock objSelection) (entupd dprSelection) (vla-EndUndoMark ActDoc) ) ) (prin1) )(defun BlkByBlock (objSelection / colBlockReference objBlock strBlockName ) (if (= (type objSelection) 'ENAME) (setq objSelection (vlax-ename->vla-object objSelection))) (if (wcmatch (strcase (vla-get-objectname objSelection)) "*BLOCK*") (progn (vlax-for objBlock (vla-item (vla-get-blocks ActDoc) (vla-get-name objSelection) ) (vla-put-color objBlock 0) ; set color byblock ; (vla-put-linetype EOBJ "ByBlock") if all you want is color byblock ; (vla-put-Lineweight EOBJ -1) if all you want is color byblock ; (vla-put-PlotStyleName EOBJ "ByBlock") if all you want is color byblock ) ) ) (prin1) ) (prin1)
Leider kann ich da immer nur einen Block auswählen. Gibt es da einen Trick wie ich alle Blöcke auswählen kann? Danke ------------------ Error in Layer 8 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: 02. Feb. 2018 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
PFKBAU Mitglied Bauzeichner
Beiträge: 336 Registriert: 24.04.2007 Civil 3D 2018, Win 7 Prof. 64 bit
|
erstellt am: 06. Feb. 2018 09:29 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|