Creat List of idw Layers using iLogic

[Anonymous]

Hello All,

I'm hoping this is an easy question & just something I'm overlooking.

I have the following code

'get single layer
Dim odoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oBaseLayer As Layer

oBaseLayer = odoc.StylesManager.Layers.Item("DWG__TXT50")

'change color To red
Dim oColor As Color

oColor = oBaseLayer.Color
oColor.Red = 0
oColor.Green = 0
oColor.Blue = 0
oBaseLayer.Color = oColor

This code will find the layer "DWG__TXT50" & change its color to Black which is great.

I want to ad an "IF" statement to this so that the code will search all Layers within idw that have in string "DWG" & change all those layers colors to Black.

For some reason I cannot find any code/api to get idw layers in an item list to interrogate them.

PLEASE HELP!! lol

Many Thanks in advance

Tim

[bradeneuropeArthur]

'oBaseLayer = odoc.StylesManager.Layers.Item("DWG__TXT50") 'change color To red
For each oBaselayer in odoc.stylemanager.layers

Dim oColor As Color
oColor = oBaseLayer.Color
oColor.Red = 0
oColor.Green = 0
oColor.Blue = 0
oBaseLayer.Color = oColor
Next

[HermJan.Otterman · Accepted solution]

Hallo Tim,

here is a bit of code...

 Dim LayerCollection As LayersEnumerator = thisdoc.Document.StylesManager.Layers

        Dim Layer As Layer

        'loop through LayerCollection
        For Each Layer In LayerCollection
            'assumption If DWG is in the name then alway the first 3 letters!
            Dim layerName As String = Layer.Name
            Dim first3Letters As String = Strings.Left(layerName, 3)
            If first3Letters = "DWG" Then
                'change color
                'Color Black
                Dim oColor As Color = Layer.Color
                oColor.Red = 0
                oColor.Green = 0
                oColor.Blue = 0
                Layer.Color = oColor
            End If
        Next

 it goes through every layer, checking the first three letters. if they are "DWG" then the color will be black

[Anonymous]

Excellent!!! Worked a treat.

Thanks Herm Jan much appreciated

Kind Regards

Tim