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