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 = oAnnotationDim oDimension2D as DrawingDimension
Set oDimension2D = oDimension3D.Get2dAnnot
Für das Welding Symbol komme ich aber leider nicht weiter...
Code:
Option Explicit
Option Compare BinarySub 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