Witam @tous
Staram się, aby ten przykład zaproponowany przez sw działał, ale na próżno,
Nie mogę uzyskać reprezentacji nazwy symbolu (tyłek lub inny), plik biblioteki symboli jest obecny, dobrze wskazany w moich opcjach, ale nadal nic
Jeśli masz pomysł, z góry dziękuję
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