Solved: AutoCAD 2004 - Color Control

[malik641]

Hey Guys,

With the following code I can change the current layer's color:

[VBA]Sub TestChangeLayerColor()
ThisDrawing.ActiveLayer.color = acBlue
End Sub[/VBA]
Very simple.

But let's say I don't want to change EVERY entity that is on that layer to the color blue....how do I change the color in the "Color Control" drop-down box to a different color? I can't find it anywhere??!!

[malik641]

No suggestions?

I found some stuff on the AcadAcCmColor...and it seems to change the object's colors....but how can I get it to change the color control?

I also looked into toolbars and possibly modifying the toolbars via code...but no luck, mostly read-only stuff


Grrrrr This is aggrevating. I'll keep searching.

[malik641]

[VBA]ThisDrawing.SendCommand "-color" & vbCr & "ByLayer" & vbCr[/VBA]

marking it solved.

[lucas]

I never had a chance to look at this joseph. Glad you got it handled.

[malik641]

It's all good. It was just so annoying because there was nothing in the Developer help on it (or in my AutoCAD vba book).