Sub FilterPartList()
Dim symMgr As McadSymbolBBMgr
Set symMgr =
Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
Dim symBOM As McadBOM
Dim strName As String
Set symBOM =
symMgr.BOMMgr.GetBOMTable(ThisDrawing.ModelSpace, strName)
Dim symPL As McadPartList
Set symPL = symBOM.PartLists(0)
' create a filter for the part list
Dim symPLCFilter As McadPartListCustomFilter
Set symPLCFilter =
symPL.AddFilterType(sbFilterCustom)
Call symPLCFilter.SetCondition("MATERIAL",
sbContains, "CST")
symPLCFilter.IsOn = True
Application.Update
End Sub