03-07-2024
12:33 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-07-2024
12:33 AM
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.UpdateBut nothing happens