Adding edges to Fillet feature

Adding edges to Fillet feature

MD_
Contributor Contributor
423 Views
2 Replies
Message 1 of 3

Adding edges to Fillet feature

MD_
Contributor
Contributor

Hello,

 

Can you add edges to an EdgeCollection used in a FilletFeature? Or do I have to delete the feature and add a new one ?

 

I've got some iLogic code where I create fillets using .Features.FilletFeatures.AddSimple()

Can I change the FilletFeature.FilletDefinition afterwards?

When I go to FilletFeature.FilletDefinition.EdgeSetItem(Index).edges and use .add() nothing happens even though  .count goes up

 

Even when I change the EOP like mentioned in the help-files: (FilletRadiusEdgeSet Object)

Property that provides access to the in the edge set. This property is only available when a FilletDefinition object is being defined to use as input for creating a fillet. When the parent FilletDefinition object is obtained from an existing Fillet, the end-of-part marker should be placed above this fillet feature to allow access this property.
0 Likes
424 Views
2 Replies
Replies (2)
Message 2 of 3

MD_
Contributor
Contributor

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

0 Likes
Message 3 of 3

MD_
Contributor
Contributor
anyone?
0 Likes