Make Assembly From Selected Components Example (VB.NET)

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

'---------------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\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 public_documents\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
'    public_documents\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.
'-----------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swModel As ModelDoc2

        Dim swAssy As AssemblyDoc

        Dim tmpPath As String

        Dim boolstat As Boolean

        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, "\"))

        swAssy = swModel

        ' Create a new assembly using the selected components

        swAssy.MakeAssemblyFromSelectedComponents(tmpPath + strCompModelname)

    End Sub

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

End Class