Inventor VBA: Zwischen Bauteilen und iParts unterscheiden

Hier ein Codesnippet, das hilft zwischen Bauteilen und iParts zu unterscheiden.

    Dim oAssDoc As AssemblyDocument

    Set oAssDoc = ThisApplication.ActiveDocument

    Dim oCompDef As AssemblyComponentDefinition

    Set oCompDef = oAssDoc.ComponentDefinition

    Dim oOcc As ComponentOccurrence

    For Each oOcc In oCompDef.Occurrences

If oOcc.IsiPartMember = True Then ‘<== Unterscheidung Bauteil u. iPart

End If

    Next