Get Component State Example (VBA)

This example shows how to find out if the selected component is resolved or suppressed, hidden or visible, and whether or not it's a rigid or flexible sub-assembly.

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

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swAssy                      As SldWorks.AssemblyDoc

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swComp                      As SldWorks.Component2

    Dim bRet                        As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swAssy = swModel

    Set swComp = swSelMgr.GetSelectedObjectsComponent(1)

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Comp   = " & swComp.Name2

    Debug.Print "    Path           = " & swComp.GetPathName

    Debug.Print "    IsHidden       = " & swComp.IsHidden(True)

    Debug.Print "    IsFixed        = " & swComp.IsFixed

    Debug.Print "    GetSuppression = " & swComp.GetSuppression

' -1 returned if selected component is a part component    

Debug.Print "    Solving        = " & swComp.Solving

End Sub

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