Message 1 of 4
Change color for of entetys

Not applicable
07-09-2019
09:09 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi together,
I'm quite new to the Forum and VBA in Autocad, but I'm pretty sure what I need is quite easy, so maby someone can help me out.
We get colorfully plans from our cosumers and need them to be in gray (color 251) to work with the plans.
Often the cooler of some Objekts in blocks are set to a spesific color and not to byLayer. I got the job task to find an easy way to change the cooler of all Objekts in the drawing to 251. VBA should work.
I think I need some script like this:
For each blk in ThisDrwaing.Blocks
--> open block editor
--> select all
--> set color to by layer
Next
Can some one help me out with code input?
Thank you very much!
P.S: I can provide an example file later one.