---

Hallo,

ich möchte über eine Anwendung in einem Product alle Elemente eines Geöffneten Körpers (Hybrid Body) aus einem Part auslesen.
Leider bekomme ich bereits bei der ersten Zuweisung einen Fehler.

        Dim part As Part
        Set part = Product.Products.Item(2) <-- Fehler "Typen unverträglich"
       
        Dim x As Integer
        For x = 1 To part.HybridBodies.Item(1).Bodies.Count
            MsgBox ("Name  " & part.HybridBodies.Item(1).Bodies.Item(x).Name)
        Next

Wenn ich das Part als Product deklariere kann ich nicht auf die Eigenschaft Hybrid Bodies zugreifen.
Kann mir jemand sagen, wo mein Fehler liegt?

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

---

Hallo Thomas_79,

die Anweisung

  Set part = Product.Products.Item(2)

liefert als Ergebnistyp wiederum ein Product. Deswegen der Fehler "Typen unverträglich".

An das Part-Object bzw. OpenBody-Object kommt man wie folgt ran:

  Set part = Product.Products.Item(2).ReferenceProduct.Parent.Part.Hybridbodies...

Gruss
Steffen

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