Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
MD_
Contributor
in reply to: MD_

Attached, an example of what I'm trying to do: 

A cube with partial fillets that I want to edit so all edges get included in the fillet feature

Dim oPartDoc As PartDocument = ThisDoc.Document
Dim oCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
Dim oFilletFeature As FilletFeature = oCompDef.Features.FilletFeatures.Item(1)

oFilletFeature.SetEndOfPart(True)
Dim oSurfaceEdges As Edges = oCompDef.SurfaceBodies.Item(1).Edges
Logger.Info(oSurfaceEdges.Count & " edges to add")

Dim oFilletDef As FilletDefinition = oFilletFeature.FilletDefinition
Dim oFilletRadiusEdgeSet As FilletRadiusEdgeSet = oFilletDef.EdgeSetItem(1)
Dim oEdgeColl As EdgeCollection = oFilletRadiusEdgeSet.Edges

Logger.Info(oEdgeColl.Count & " edges in EdgeCollection")
oEdgeColl.Clear
Logger.Info(oEdgeColl.Count & " edges in EdgeCollection")
For Each oEdge As Edge In oSurfaceEdges
	oEdgeColl.Add(oEdge)
Next
Logger.Info(oEdgeColl.Count & " edges in EdgeCollection")
oCompDef.SetEndOfPartToTopOrBottom(False)
oPartdoc.Update

 But nothing happens