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. <SolidWorks_install_dir>\samples\tutorial\motionstudies\valve_cam2.sldasm

'    is opened.

' 2. The Save new components to external files checkbox

'    on the Tools > Options > Assemblies dialog is selected.

'    Otherwise, the selected components

'    will be saved as virtual components and not as external files.

' 3. The valve<1> and valve_guide<1> components are selected.

'

' Postconditions: MyTestValveAssembly.sldasm is created, made up of the

' valve<1> and valve_guide<1> components, and saved to

' <SolidWorks_install_dir>\samples\tutorial\motionstudies.

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

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