Macro, symbol of welding

Macro
1

Hello @tous
I try to make this example proposed by sw work but in vain,
I can't get the representation of the name of the symbol (butt or other), the symbol library file is present, well pointed in my options, but still nothing
If you have an idea, thank you in advance

type or paste code here
Insert Weld Symbol Example (VBA)
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.
' ---------------------------------------------------------------------------
Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swWeldSymbol            As SldWorks.WeldSymbol

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swWeldSymbol = swModel.InsertWeldSymbol3
   

    swWeldSymbol.SetFieldWeld swFieldWeldNone
    swWeldSymbol.SetPeripheral False
    swWeldSymbol.SetProcess True, "Process", True
    swWeldSymbol.SetStagger True
    swWeldSymbol.SetSymmetric swWeldSymmetric
    swWeldSymbol.SetText True, "Left", "BUTT", "Right", "Stagger", 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
2

With insertweldsymbol() from drawingdoc it works

2 Likes