Layer Filter List

Layer Filter List

Anonymous
Not applicable
371 Views
0 Replies
Message 1 of 1

Layer Filter List

Anonymous
Not applicable

Hi all,

 

I am trying to iterate the layers in a property filter I have made. Can anyone help with some code? Code I have so far:

 

Public Sub subList()
Dim oDict As AcadDictionary
Dim Layflt As Object
Dim tmp As String

Set oDict = ThisDrawing.Layers.GetExtensionDictionary
Set Layflt = oDict.item("ACAD_LAYERFILTERS")

 

I can get to the dictionary and the list but no further. Please help, it will be much appreciated.

 

Brett

0 Likes
372 Views
0 Replies
Replies (0)