Inventor VBA Fillet with Variable Radius Problem

[tefkleid]

Hi guys,

I have the following problem that I could use some help on.

I have an edge with a variable radius fillet on it with a specific start and end radius and want to add 2 intermediate points with different radius.

The help suggests the following code from the example on fillets:

' Create a variable radius edge with a different internal radius for the fourth edge.
    Set oEdgeCollection = ThisApplication.TransientObjects.CreateEdgeCollection
    oEdgeCollection.Add oSideEdges(4)
    Dim oVarRadiusEdgeSet As FilletVariableRadiusEdgeSet
    Set oVarRadiusEdgeSet = oFilletDef.AddVariableRadiusEdgeSet(oEdgeCollection, 0.5, 1.5)
    Call oVarRadiusEdgeSet.AddIntermediateRadius(oSideEdges(4), 3, 0.5)

which works just fine for 1 intermediate point.

I tried to add another intemediate point by adding the following line :

       Call oVarRadiusEdgeSet.AddIntermediateRadius(oSideEdges(4), 3, 0.8)

However the macro won't work.

So, my question is how can I add more intermediate radii to the fillet feature??

Thank you very much fpr your time!

[Scott_Stubbington]

Hello,

I copied the help example and modified the code to add to add another point and I got problems.  I manually added a double point and then interogated the "features" using VBA to find what Properties Inventor had available, there appeared to be no information regarding position along the line and radius.  The different Radius values were recorded.

Ohwell, bumped if nothing else. 🙂

Good luck

Scott