Code:
Dim ref(50) As Reference
Dim Radius1 As ConstRadEdgeFillet
Dim z As CatFilletEdgePropagation
Dim i As Integer
Dim kantenzaehler As Integer
mysel = CATIA.ActiveDocument.Selection
mysel.Clear()
mysel.Search("Topology.CGMEdge,all")
kantenzaehler = mysel.Count
Radius1 = Shapefactory1.AddNewSolidEdgeFilletWithConstantRadius(Nothing, z, 2.0)
For i = 1 To kantenzaehler
ref(i) = mysel.Selection.Item(i).Value
Radius1.AddObjectToFillet(ref(i))
Radius1.EdgePropagation = z
Next
mysel.Clear()
MyPart.Update()