Filtering layers in vba

[jbone52]

I am trying to find a quicker way to change the color of certain layers. I don't want to list each layer that I want changed. Is there a way to filter out certain layers according to their name? For example I have the following layers:
H-equip piped
H-duct
H-pipe
H-hatch

Is it possible to select all of the layers that contain the string "pipe"? That way I can change the color of the layers that contain "pipe" but not the others.

Any help would be great!

Jason

 

[borgunit]

Just iterate through the layers collection and look for the name string in the layer.name

 

[jbone52]

Would you be able to post some code on how to accomplish this? I thought I understood how to do this but I couldn't get it to work.

Jason

 

[borgunit]

Dim acLyrs As AcadLayers
Dim acLyr As AcadLayer
'''''''''''''''''''''''''''''''''''''''
On Error GoTo ErrHandler

Set acLyrs = ThisDrawing.Layers

For Each acLyr In acLyrs
If instr(acLyr.name, partOfSomeLayerName) Then
aclyr.color = yourNewLayerColor
End If
Next acLyr

 

[jbone52]

Thanks for the help! I finally got it working.