Nate Hunter
Usenet Archive
- Joined
- Dec 23, 2003
- Messages
- 43
- Reaction score
- 0
Does anyone know why my code below does not work. I am trying to set a named layerfilter without actually going into the layer manager. I must be missing something simple any ideas??
Dim oDict As AcadDictionary
Dim LayFlt As Object
Dim oXrec As AcadXRecord
Dim xType As Variant, xValue As Variant
Set oDict = ThisDrawing.Layers.GetExtensionDictionary
Set LayFlt = oDict.Item("ACAD_LAYERFILTERS")
Set oXrec = LayFlt("WATER")
oXrec.GetXRecordData xType, xValue
MsgBox "Layer Filter name: " & xValue(0)
Dim oDict As AcadDictionary
Dim LayFlt As Object
Dim oXrec As AcadXRecord
Dim xType As Variant, xValue As Variant
Set oDict = ThisDrawing.Layers.GetExtensionDictionary
Set LayFlt = oDict.Item("ACAD_LAYERFILTERS")
Set oXrec = LayFlt("WATER")
oXrec.GetXRecordData xType, xValue
MsgBox "Layer Filter name: " & xValue(0)
