iLogic - Change Layer Appearance color

[Anonymous]

Hi all,

In active sheet, I would like an Ilogic code to change Layer Appearance color to black. I have several drawings where some symbols and lines are blue. I want everything to be black.

Now I have to manually choose 'Edit view annotation style'. Then select 'Layers' and then change all Appearance colors that are blue to black..

Hope this is possible 🙂

[lmc.engineering · Accepted solution]

Hi @Anonymous 

You can do this using the following:

Dim drawdoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oLayers As LayersEnumerator
oLayers = drawdoc.StylesManager.Layers

Dim oColor As Color
oColor = ThisApplication.TransientObjects.CreateColor(0, 0, 0)
		
Dim oLayer As Layer
For Each oLayer In oLayers
	oLayer.Color = oColor
Next

[Anonymous]

Thank you! Appreciate your help!

[ysbaodnj]

Hi,

I'm looking for a layer color change ilogic code and I'm asking for help.

I found an ilogic code to change the color of a layer, but the color of all layers drawn on the drawing is changed.
I want to know how to change only the layer color of a specific leader text.

Thank you for your help.