Insert Weld Table Example (VB.NET)
This example shows how to insert a weld table into a drawing view.
'---------------------------------------------------------------------------
' Preconditions:
' 1. Open the drawing of a part that contains a weld bead.
' 2. Ensure that WeldTableTemplate points to:
' <SolidWorks_install_dir>\lang\english\weldtable-standard.sldwldtbt.
'
' Postconditions: The drawing and the FeatureManager design tree display
' Weld Table1.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Partial
Class
SolidWorksMacro
Dim
Draw As
DrawingDoc
Dim
Part As
ModelDoc2
Dim
swActiveView As
View
Dim
boolstatus As
Boolean
Const
WeldTableTemplate As String = "C:\Program Files\SolidWorks Corp\SolidWorks\lang\english\weldtable-standard.sldwldtbt"
Sub
main()
Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Drawing
View1",
"DRAWINGVIEW", 0, 0, 0,
False, 0,
Nothing, 0)
Draw = Part
boolstatus = Draw.ActivateView("Drawing View1")
swActiveView = Draw.ActiveDrawingView
Dim
boolResult As
Boolean
boolResult =
swActiveView.InsertWeldTable(False,
True,
True, 0.0#, 0.0#, -1, "Default",
WeldTableTemplate)
End
Sub
Public
swApp As
SldWorks
End
Class