Replace Component Example (VBA)

This example shows how to replace a component with a different component.

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

' Preconditions:

'       (1) Assembly is loaded.

'       (2) Assembly component is selected.

'       (3) The file c:\samples\whistle.sldprt exists, and the name

'           of the component is not the same as the selected component's name.

'

' Postconditions: Selected component is replaced with component

'       in the specified file.

'

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

Option Explicit

Sub main()

    Const sFileName             As String = "c:\samples\whistle.sldprt"

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swAssy                  As SldWorks.AssemblyDoc

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swSelComp               As SldWorks.Component2

    Dim swSelModel              As SldWorks.ModelDoc2

    Dim nErrors                 As Long

    Dim bRet                    As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swAssy = swModel

    Set swSelMgr = swModel.SelectionManager

    Set swSelComp = swSelMgr.GetSelectedObjectsComponent(1)

    bRet = swAssy.ReplaceComponents(sFileName, "", True, True)

    Debug.Print "File  = " & swModel.GetPathName

    Debug.Print "  SelComp              = " & swSelComp.Name2

    Debug.Print "  SelCompPath          = " & swSelComp.GetPathName

    Debug.Print "  ReplaceComponents    = " & bRet

End Sub

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