---

Guten morgen,

ich versuche, bei einer bestehenden Rundung, eine Ecke hinzu zu fügen.
Leider bekomme ich immer nur die Fehlermeldung "Invalid Cast..."
Irgendwie ist die Zuweisung wohl nicht richtig?!
Hier mein Code:

inventor_verbinden(True)
        If Not oInventorApp.ActiveDocumentType = Inventor.DocumentTypeEnum.kPartDocumentObject Then
            MsgBox("Bitte ein Teil laden.")
            Exit Sub
        End If
        oIVPart = oInventorApp.ActiveDocument

        Dim ocompdef As Inventor.ComponentDefinition
        ocompdef = oIVPart.ComponentDefinition
        Dim oEdges As Inventor.EdgeCollection
        oEdges = oInventorApp.TransientObjects.CreateEdgeCollection

        Dim ofilletziel As Inventor.FilletFeature = oIVPart.ComponentDefinition.Features.FilletFeatures.Item(1)
        For i As Integer = 2 To ocompdef.features.filletfeatures.count
            Dim ofilletquelle As Inventor.FilletFeature = oIVPart.ComponentDefinition.Features.FilletFeatures.Item(i)

            Debug.WriteLine("erstes Element: " & ofilletziel.Name)
            Debug.WriteLine(i & " Element: " & ofilletquelle.Name)

            If ofilletziel.FeatureDimensions.Item(1).Parameter.Value = ofilletquelle.FeatureDimensions.Item(1).Parameter.Value Then
                Dim oedgeset As Inventor.FilletRadiusEdgeSet = ofilletquelle.FilletDefinition.EdgeSetItem(1)
                Debug.WriteLine(i & " Eckenanzahl quelle: " & oedgeset.Edges.Count)
                oEdges.Add(ofilletquelle.FilletDefinition.EdgeSetItem(1).Edges.Item(1))
                ofilletquelle.Delete(False)
                ofilletziel.FilletDefinition.EdgeSetItem(1).Edges.Add(oEdges)
            End If
        Next

Weiß jemand, wie ich einer bestehenden Rundung eine Ecke hinzufügen kann. (Die weitere Ecke kommt aus einem anderen Rundungsfeature.)

Vielen Dank schon einmal.

Gruß

Maik

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