Get and Set Component's Suppression State Example (VBA)

This example shows how to get and set the suppression state of a component.

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

'

' Preconditions:

'          (1) An assembly is open.

'          (2) A component is selected.

'

' Postconditions: The selected component's suppression state is set to

'                 lightweight if the component is resolved.

'

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

Option Explicit

Public Enum swComponentSuppressionState_e

    swComponentSuppressed = 0       '  Fully suppressed - nothing is loaded

    swComponentLightweight = 1      '  Featherweight - only graphics data is loaded

    swComponentFullyResolved = 2    '  Fully resolved - model is completely loaded

End Enum

Public Enum swSuppressionError_e

    swSuppressionBadComponent = 0

    swSuppressionBadState = 1

    swSuppressionChangeOk = 2

    swSuppressionChangeFailed = 3

End Enum

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swComp                      As SldWorks.Component2

    Dim bRet                        As Boolean

    Dim nRetVal                     As Long

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swComp = swSelMgr.GetSelectedObjectsComponent2(1)

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Comp = " & swComp.Name2

    Debug.Print "    Path           = " & swComp.GetPathName

    Debug.Print "    GetSuppression = " & swComp.GetSuppression

    Debug.Print "    IsSuppressed   = " & swComp.IsSuppressed

    nRetVal = swComp.setsuppression(swComponentLightweight)

End Sub

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