‹#›
© 2008 Autodesk
ADSK_BLack_BAR.png
ADN Webcasts 2008
SymBBAuto
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