Is Feature Suppressed in Specified Configurations Example (VBA)

This example shows how to find out if a feature is suppressed in the specified configurations.

'------------------------------------------

'

' Preconditions:

'         (1) Part or assembly is open.

'         (2) Feature is selected.

'

' Postconditions: None

'

'-------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swFeat                  As SldWorks.feature

    Dim vConfNameArr            As Variant

    Dim vSuppStateArr           As Variant

    Dim i                       As Long

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFeat = swSelMgr.GetSelectedObject6(1, -1)

    vConfNameArr = swModel.GetConfigurationNames

    vSuppStateArr = swFeat.IsSuppressed2(swThisConfiguration, vConfNameArr)

    Debug.Assert 0 = UBound(vSuppStateArr)

    vSuppStateArr = swFeat.IsSuppressed2(swAllConfiguration, vConfNameArr)

    Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)

    vSuppStateArr = swFeat.IsSuppressed2(swSpecifyConfiguration, vConfNameArr)

    Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  " & swFeat.Name

    For i = 0 To UBound(vConfNameArr)

        Debug.Print "    " & vConfNameArr(i) & " ---> " & vSuppStateArr(i)

    Next i

End Sub

'------------------------------------------