Insert Weldment Cut List Table Example (VBA)
This example shows how to insert a weldment cut list table in a
drawing.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Verify that the specified cut list template exists.
' 2. Open public_documents\samples\tutorial\weldments\weldment_box2.sldprt.
' 3. Click File > Make Drawing from Part > OK > drag a view onto
' the sheet > OK.
' 4. Expand the drawing view in the FeatureManager design tree.
' 5. Right-click weldment_box2 and select Open Part(weldment_box2.sldprt).
' 6. Right-click the Cut list folder and click Update Automatically.
' 7. Click Window > weldment_box2 - Sheet1*.
'
' Postconditions:
' 1. Inserts a weldment cut list table.
' 2. Examine the FeatureManager design tree and graphics area.
'
' NOTE: Because this part is used elsewhere, do not save changes.
'----------------------------------------------------------------------------
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