Code:
Sub CATMain()Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrisches Set.3")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapeAssemble1 As HybridShapeAssemble
Set hybridShapeAssemble1 = hybridShapes1.Item("Verbindung.1")
Dim osel As Object
Set osel = CATIA.ActiveDocument.Selection
osel.Clear
osel.Add hybridShapeAssemble1
osel.Search "Topology.CGMEdge,sel"
Dim i As Integer
Dim Edge As Object
Dim Ref As Reference
For i = 1 To osel.Count
If InStr(TypeName(osel.Item2(i).Value), "TriDimFeatEdge") <> 0 Then
Set Edge = osel.Item2(i).Value
Set oref = osel.Item2(i).Reference
Exit For
End If
Next
Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory
Dim varRadEdgeFillet1 As VarRadEdgeFillet
Set varRadEdgeFillet1 = shapeFactory1.AddNewSurfaceEdgeFilletWithVaryingRadius(oref, catTangencyFilletEdgePropagation, catCubicFilletVariation, 5#)
End Sub