Insert Weldment Cut List Example #2 (VB.NET)

This example shows how to insert a weldment cut list into the FeatureManager design tree.

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

' Preconditions:

' 1. Open <SolidWorks_install_dir>\samples\tutorial\assemblymates\bracket.sldprt.

' 2. In Tools > Options > System Options > FeatureManager,

'    select Show from the Solid Bodies dropdown and click OK.

' 3. Expand the Solid Bodies folder in the FeatureManager design tree

'    and note its contents.

' Postconditions:

' Cut-List-Item1 folder in the FeatureManager design tree contains

' all of the solid bodies in the part.

' NOTE: Because this part is used in a SolidWorks online tutorial,

'       do not save any changes when you close it.

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

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Partial Class SolidWorksMacro

    Dim selMgr As SelectionMgr

    Dim Part As ModelDoc2

    Dim boolstatus As Boolean

    Dim longstatus As Long, longwarnings As Long

    Dim obj(0) As Body2

    Dim v As Array

    Dim i As Long

    Sub main()

        Part = swApp.ActiveDoc

        Dim myModelView As Object

        myModelView = Part.ActiveView

        myModelView.FrameState = swWindowState_e.swWindowMaximized

        v = Part.GetBodies2(0, True)

        For i = 0 To UBound(v)

            obj(i) = CType(v(i), Body2)

        Next

        Dim cutListFeature As Feature

        cutListFeature = Part.FeatureManager.InsertWeldmentCutList2(obj)

    End Sub

    Public swApp As SldWorks

End Class