Make Assembly From Selected Components Example (VBA)

This example shows how to create a new assembly using the selected components of the active assembly.

'---------------------------------------------------------------------
' Preconditions:
' 1. Open install_dir\samples\tutorial\motionstudies\valve_cam2.sldasm
' 2. Ensure that the Save new components to external files check box
'    on the Tools > Options > Assemblies dialog is selected.
'    Otherwise, the selected components are saved as virtual components
'    and not as external files.
' 3. Select valve<1> and valve_guide<1> components.
'
' Postconditions:
' 1. Creates install_dir\samples\tutorial\motionstudies\MyTestValveAssembly.sldasm,
'    which is made up of the valve<1> and valve_guide<1> components.
' 2. Replaces the valve<1> and valve_guide<1> components with
'    MyTestValveAssembly subassembly.
' 3. Examine the FeatureManager design tree and
'    install_dir\samples\tutorial\motionstudies.
' 4. Clear the Save new components to external files check box
'    on the Tools > Options > Assemblies dialog if you selected
'    it for this example.
'
' NOTE: Because the assembly is used elsewhere, do not save changes.
'-----------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swAssy As SldWorks.AssemblyDoc

Dim tmpPath As String

Dim boolstat As Boolean

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    boolstat = True

    Dim strCompModelname As String

    strCompModelname = "MyTestValveAssembly.sldasm"

    ' Save the new assembly in the same folder as the original assembly

    tmpPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\"))

    Set swAssy = swModel

    ' Create a new assembly using the selected components

    swAssy.MakeAssemblyFromSelectedComponents (tmpPath + strCompModelname)

End Sub