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
'-------------------------------------------