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) <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:

'   (1) MyTestValveAssembly.sldasm is created, made up of the

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

'       <SolidWorks_install_dir>\samples\tutorial\motionstudies.

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

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