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