Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set shapeFactory1 = part1.ShapeFactory

Set reference1 = part1.CreateReferenceFromName("")

Set constRadEdgeFillet1 = shapeFactory1.AddNewEdgeFilletWithConstantRadius(reference1, catTangencyFilletEdgePropagation, 5.000000)

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Hauptkörper")

Set shapes1 = body1.Shapes

Set pocket1 = shapes1.Item("Tasche.2")

Set reference2 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(CircPattern.1_ResultOUT;0-7:(Brp:(Pocket.1;0:(Brp:(Sketch.2;35)))));None:());Face:(Brp:(CircPattern.1_ResultOUT;0-7:(Brp:(Pocket.1;0:(Brp:(Sketch.2;68)));Brp:(Pocket.1;0:(Brp:(Sketch.2;37)))));None:());None:(Limits1:();Limits2:()));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport)", pocket1)

constRadEdgeFillet1.AddObjectToFillet reference2

constRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

Set length1 = constRadEdgeFillet1.Radius

length1.Value = 1.900000

part1.Update 

End Sub