---

Hallo Experten!

Gibt es eine Möglichkeit, an den Inhalt des Schweißnahtsymbols im FTA zu kommen?
Für eine Drawing (GetSymbol) ist das ja super einfach.
Aber für FTA habe ich nur etwas für Dimensions und Roughness gefunden:

Code:

---

Dim oDimension3D As Dimension3D
Set oDimension3D = oAnnotation

Dim oDimension2D as DrawingDimension
Set oDimension2D = oDimension3D.Get2dAnnot

---

Für das Welding Symbol komme ich aber leider nicht weiter...

Code:

---

Option Explicit
Option Compare Binary

Sub CATMain()

    Dim oPartDocument As PartDocument
    Set oPartDocument = CATIA.ActiveDocument
   
    Dim oPart As Part
    Set oPart = oPartDocument.Part
   
    Dim oAnnotationSet As AnnotationSet
    Set oAnnotationSet = oPart.AnnotationSets.Item(1)
   
    Dim oAnnotations As Annotations
    Set oAnnotations = oAnnotationSet.Annotations
   
    Dim i As Long
    For i = 1 To oAnnotations.Count
       
        Dim oAnnotation As Annotation
        Set oAnnotation = oAnnotations.Item(i)
       
        If oAnnotation.Type = "FTA_Weld" Then
           
            Dim o2DWeld 'As ???
            Set o2DWeld = oAnnotation.???.Get2DAnnot
           
        End If
    Next

End Sub

---

Gibt's da eine Möglichkeit für mich weiterzukommen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP