In .net

Code:

---

 
Public CATIA As Object = (System.Runtime.InteropServices.Marshal.GetActiveObject("CATIA.Application"))

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       

        Analysieren1(CATIA.ActiveDocument.Product)

    End Sub

    Sub Analysieren1(ByVal P As Product)

        Dim Pdoc As Document = P.ReferenceProduct.Parent

        MsgBox(TypeName(Pdoc))

        Dim PP As Products = P.Products
        Dim I As Integer

        For I = 1 To PP.Count

            Analysieren1(PP.Item(I))

        Next

    End Sub

---

Ich habs inzwischen aufgegeben und nutze nur noch TypeOf, dass hier hab ich mir mal während der probierphase notiert:

Code:

---

        Dim body1 'As Body
        body1 = bodies1.Item("PartBody")

        Dim shapes1 As Shapes
        shapes1 = body1.Shapes

        Dim Fillet1 As ConstRadEdgeFillet
        Fillet1 = body1.Shapes.Item("EdgeFillet.1") '--> Zuweisung über body1, der Object ist
        MsgBox(TypeName(Fillet1))  '--> ConstRadEdgeFillet

        Fillet1 = Shapes1.Item("EdgeFillet.1") '--> Zuweisung über Shapes1, ist Typisiert als Shapes
        MsgBox(TypeName(Fillet1))  '--> COMObject

---