---

AnnoSet.JPG

Hallo zusammen,

ich versuche vergeblich die Koordinaten der Bezugsstellen eines Referenzrahmen auszulesen. Ich habe auch keine nützlichen
Ich komme bis zum DatumTarget runter aber diese Klasse hat keine Eigenschaft um die Koordinaten seiner Bezugsstellen auszugeben. Ich komme auch nicht auf den CATIA-Punkt auf dem das DatumTarget angebracht wurde.
Anbei der Code um an das DatumTarget zu gelangen.
Größtenteils aus der AutomationAPI.

Code:

---

    ' get Anno Sets
    Set AnnotationSets = part1.AnnotationSets
   
    For IdxSet = 1 To AnnotationSets.Count
        Set AnnotationSet = AnnotationSets.Item(IdxSet)
        Set Annotations = AnnotationSet.Annotations
        For IdxAnnot = 1 To Annotations.Count
            Set Annotation = Annotations.Item(IdxAnnot)
           
            annotSuperType = Annotation.SuperType
            annotType = Annotation.Type
           
            Select Case annotSuperType
            Case "FTA_Datum"
                Select Case annotType
                Case "FTA_DatumSimple"
                    Set DatumSimple = Annotation.DatumSimple
                Case "FTA_DatumTarget"
                    Set DatumTarget = Annotation.DatumTarget
                End Select
            End Select

            For IdxDatumTargets = 1 To DatumSimple.Targets.Count
                Set DatumTarget = DatumSimple.Targets.Item(IdxDatumTargets)
                ' Hier weiss ich nicht mehr weiter
            Next
        Next
    Next

---

[Diese Nachricht wurde von HOnKeY am 05. Sep. 2008 editiert.]

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