Manipulating and using layer groups with VBA

[aireq]

I'm working on a project that involves a lot of layer manipulation. Is there a way to access filter groups using VBA? I can't find anything in the object model.

I see that there is a AcadLayerStateManager object, but from what I understand a layer state works on a static list of layers. The project I am working on deals with a lot of similar layers like UNIT1|DOORS, and UNIT2|DOORS, where I want to maniuplate all layers that contain "*|DOORS".

Is there anyway to identify all the layers in property filter, or group filter as a collection of layers?



Eric

[Bryco]

Frank Oquendo wrote a bas for that.
Set child = parent.AddObject("ACAD_LAYERFILTERS", "AcDbDictionary") it's all about the dictionary

[cadger]

you can use the Like Operator

e.g.
MyCheck = "aBBBa" Like "a*a" ' Returns True.