Insert Weldment Cut List Table Example (VBA)

 This example shows how to insert a weldment cut list table in a drawing.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Ensure that WeldmentTableTemplate points to a weldment cut list template

'    (*.sldwldtbt) on your computer.
' 2. Open:

' <SolidWorks_install_dir>\samples\tutorial\weldments\weldment_box2.sldprt
' 3. Click File > Make Drawing from Part

'    (drag and drop one or more views onto the sheet).
' 4. Expand a drawing view in the FeatureManager design tree.
' 5. Right-click on weldment_box2.sldprt and select Open weldment_box2.sldprt.
' 6. Right-click on the cut list of the part and select Update.
' 7. Minimize the part and maximize the drawing.
'
' Postconditions:
' 1. The FeatureManager design tree contains Weldment Cut List1.
' 2. The drawing sheet displays a weldment cut list table

'    with 6 rows and 4 columns.
'

' NOTE: Because this part is used in a SolidWorks online tutorial, do not
'       save any changes to the part.
'----------------------------------------------------------------------------
Option Explicit
Const WeldmentTableTemplate As String = "C:\Program Files\SolidWorks Corp\SolidWorks\lang\english\cut list.sldwldtbt"

Sub Main()
  Dim swapp As SldWorks.SldWorks
  Dim oDrawing As DrawingDoc
  Dim swView As View
  Dim WMTable As SldWorks.WeldmentCutListAnnotation

  Set swapp = Application.SldWorks
  Set oDrawing = swapp.ActiveDoc
  Set swView = oDrawing.GetFirstView
  Set swView = swView.GetNextView

  ' Insert the weldment cut list table
  Set WMTable = swView.InsertWeldmentTable(False, 0.1996662889191, 0.1013905859662, swBOMConfigurationAnchor_TopLeft, "Default<As Welded>", WeldmentTableTemplate)
 

  End Sub