Insert Weld Symbol Example (VB.NET)

This example shows how to insert a weld symbol into a model.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\api\weldment_box3.sldprt.
' 2. Select a face, edge, or sketch segment for Weld Symbol insertion.
' 3. Open an Immediate window.
'
' Postconditions:
' 1. Inserts the specified ISO Weld Symbol.
' 2. Inspect the Immediate window.
'
' NOTE: Because the model is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
 
 
Partial Class SolidWorksMacro
 
 
    Sub main()
 
        Dim swModel As ModelDoc2
        Dim swWeldSymbol As WeldSymbol
 
        swModel = swApp.ActiveDoc
        swWeldSymbol = swModel.InsertWeldSymbol3
 
        swWeldSymbol.SetFieldWeld(swWeldSymbolField_e.swFieldWeldNone)
        swWeldSymbol.SetPeripheral(False)
        swWeldSymbol.SetProcess(True, "Process", True)
        swWeldSymbol.SetStagger(True)
        swWeldSymbol.SetSymmetric(swWeldSymbolSymmetric_e.swWeldSymmetric)
        swWeldSymbol.SetText(True, "Left", "BUTT", "Right", "Stagger", swWeldSymbolContourTypes_e.swWeldContourNone)
 
        Debug.Print("Arc count: " & swWeldSymbol.GetArcCount)
        Debug.Print("Arrow head count: " & swWeldSymbol.GetArrowHeadCount)
        Debug.Print("Contour setting as defined in swWeldSymbolContourTypes_e: " & swWeldSymbol.GetContour(True))
        Debug.Print("Field weld setting as defined in swWeldSymbolField_e: " & swWeldSymbol.GetFieldWeld)
        Debug.Print("Number of leaders on this weld symbol: " & swWeldSymbol.GetLeaderCount)
        Debug.Print("Number of line segments in this weld symbol: " & swWeldSymbol.GetLineCount)
        Debug.Print("Weld all around the contour? " & swWeldSymbol.GetPeripheral)
        Debug.Print("Welding process indicated? " & swWeldSymbol.GetProcess)
        Debug.Print("Reference box around the specification process text? " & swWeldSymbol.GetProcessReference)
        Debug.Print("Stagger symbols above and below the line? " & swWeldSymbol.GetStagger)
        Debug.Print("Weld symbol symmetry as defined in swWeldSymbolSymmetric_e: " & swWeldSymbol.GetSymmetric)
        Debug.Print("Number of text items in this weld symbol: " & swWeldSymbol.GetTextCount)
        Debug.Print("Number of triangles in this weld symbol: " & swWeldSymbol.GetTriangleCount)
        Debug.Print("Extra leader line? " & swWeldSymbol.HasExtraLeader)
        Debug.Print("Weld symbol is attached to a leaderline? " & swWeldSymbol.IsAttached)
 
 
    End Sub
 
 
    Public swApp As SldWorks
 
 
End Class