Get a Set of Edges used for creation of Fillet feature

[Maxim-CADman77]

I wonder if it possible to get a set of Edges picked by user for (simple) Fillet creation?

[chandra.shekar.g]

@Maxim-CADman77,

Hoping that below Inventor API VBA samples would help to create fillet feature.

http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-C0E63F6B-BC0F-495C-93FC-FBD4C2156673

http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-B261991D-CF34-4460-AFE1-3E2F9FEE0833

http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-3E7383A4-4279-4356-B3F1-D2D62F0EC25D

Thanks and regards,

[Maxim-CADman77]

Thank you for attempt to help but  those samples don't suit my situation (none of them describes getting edges ... but rather setting )

[Maxim-CADman77]

I still need some help with this...

[Maxim-CADman77]

Ok. I see nobody knows the answer to the main question of the thread ..  but if it possible at least determine the type of the given Fillet (All Rounds/Complex/Simple)?

[chandra.shekar.g]

@Maxim-CADman77,

After creating fillet feature, used edges are converted to face.

Public Sub fillet_edges()
    
    Dim oDOc As PartDocument
    Set oDOc = ThisApplication.ActiveDocument
    
    Dim oDef As PartComponentDefinition
    Set oDef = oDOc.ComponentDefinition
    
    Dim oFillet As FilletFeature
    Set oFillet = oDef.Features.FilletFeatures.Item(1)
     
    Debug.Print oFillet.Faces.Count    
    
End Sub

Thanks and regards,

[Maxim-CADman77]

Ok. Now I can at least choose the first edge of the fillet

MsgBox (ThisDoc.Document.ComponentDefinition.Features.FilletFeatures.Item(1).Faces.Item(1).Edges.Count)

oEdge=ThisDoc.Document.ComponentDefinition.Features.FilletFeatures.Item(1).Faces.Item(1).Edges.Item(1)

But my final goal is re-creation of the issued element I did it for revolutions and extrusions and now I'm working on fixing fillets (the root thread is - https://forums.autodesk.com/t5/inventor-customization/re-create-an-element/m-p/7986267#M84066)

How can I "backup" (copy) this edge in order I can use it after suppreesing/deleting the initial fillet?

[cencinaNB2ET]

I need to access the edge collection I used to create a constant radius edge fillet.. but I cant find any examples. If I search through faces then edges I get more edges and not the original used to create it.

[JelteDeJong]

you can try this rule. When you run the rule it will ask you to select a fillet. if you do it will set the and of the part before the fillet and then select the edges used by the fillet

Dim ff As FilletFeature = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFeatureFilter, "Select fillet")
Dim doc As PartDocument = ThisDoc.Document

ff.SetEndOfPart(True)
doc.SelectSet.Clear()
For i = 1 To ff.FilletDefinition.EdgeSetCount
    For Each edge As Edge In ff.FilletDefinition.EdgeSetItem(i).Edges
        doc.SelectSet.Select(Edge)
    Next
Next