Get Component by Name (VBA)

This examples shows how to get a component by name and to determine if that component is fixed or floating.

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

' Preconditions: Open:

' <SolidWorks_install_dir>\samples\tutorial\EDraw\claw\claw-mechanism.sldasm

'

' Postconditions: None.

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

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swAssy                      As SldWorks.AssemblyDoc

    Dim swComp                      As SldWorks.Component2

    Dim bRet                        As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swAssy = swModel

    Set swComp = swAssy.GetComponentByName("center-1")

    Debug.Print "Is component fixed: " & swComp.IsFixed

End Sub

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