Insert Weldment Cut List Example #2 (VBA)

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.

' 4. Run this macro (F5).

' 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.

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

Dim swApp As SldWorks.SldWorks

Dim selMgr As SelectionMgr

Dim Part As ModelDoc2

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim obj() As Object

Dim v As Variant

Sub main()

Dim PartName As String

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myModelView As Object

Set myModelView = Part.ActiveView

myModelView.FrameState = swWindowState_e.swWindowMaximized

v = Part.GetBodies2(0, True)

Dim cutListFeature As Feature

Set cutListFeature = Part.FeatureManager.InsertWeldmentCutList2(v)

End Sub