Hallo @tous
Ich versuche, dieses von sw vorgeschlagene Beispiel zum Laufen zu bringen, aber vergeblich,
Ich kann die Darstellung des Namens des Symbols (Hintern oder anderes) nicht erhalten, die Symbolbibliotheksdatei ist vorhanden, gut in meinen Optionen, aber immer noch nichts
Wenn Sie eine Idee haben, danken Sie Ihnen im Voraus
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