Insert Weldment Cut List Table Example (VB.NET)
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.
'-------------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Partial
Class
SolidWorksMacro
Const
WeldmentTableTemplate As
String =
"C:\Program Files\SolidWorks Corp\SolidWorks\lang\english\cut
list.sldwldtbt"
Sub
Main()
Dim
oDrawing As
DrawingDoc
Dim
swView As
View
Dim
WMTable As
WeldmentCutListAnnotation
oDrawing = swapp.ActiveDoc
swView = oDrawing.GetFirstView
swView = swView.GetNextView
' Insert the weldment cut list
table
WMTable = swView.InsertWeldmentTable(False,
0.1996662889191, 0.1013905859662,
swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopLeft,
"Default<As Welded>",
WeldmentTableTemplate)
End
Sub
Public
swApp As
SldWorks
End
Class