Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Add("Part")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("PartBody")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim originElements1 As OriginElements
Set originElements1 = part1.OriginElements

Dim reference1 As AnyObject
Set reference1 = originElements1.PlaneXY

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
arrayOfVariantOfDouble1(3) = 1.000000
arrayOfVariantOfDouble1(4) = 0.000000
arrayOfVariantOfDouble1(5) = 0.000000
arrayOfVariantOfDouble1(6) = 0.000000
arrayOfVariantOfDouble1(7) = 1.000000
arrayOfVariantOfDouble1(8) = 0.000000
sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch1.GeometricElements

Dim axis2D1 As GeometricElement
Set axis2D1 = geometricElements1.Item("AbsoluteAxis")

Dim line2D1 As CATBaseDispatch
Set line2D1 = axis2D1.GetItem("HDirection")

line2D1.ReportName = 1

Dim line2D2 As CATBaseDispatch
Set line2D2 = axis2D1.GetItem("VDirection")

line2D2.ReportName = 2

Dim point2D1 As Point2D
Set point2D1 = factory2D1.CreatePoint(-27.175618, 33.995529)

point2D1.ReportName = 3

Dim point2D2 As Point2D
Set point2D2 = factory2D1.CreatePoint(21.730800, 33.995529)

point2D2.ReportName = 4

Dim line2D3 As Line2D
Set line2D3 = factory2D1.CreateLine(-27.175618, 33.995529, 21.730800, 33.995529)

line2D3.ReportName = 5

line2D3.StartPoint = point2D1

line2D3.EndPoint = point2D2

Dim point2D3 As Point2D
Set point2D3 = factory2D1.CreatePoint(40.156576, 15.569753)

point2D3.ReportName = 6

Dim point2D4 As Point2D
Set point2D4 = factory2D1.CreatePoint(40.156576, -22.261477)

point2D4.ReportName = 7

Dim line2D4 As Line2D
Set line2D4 = factory2D1.CreateLine(40.156576, 15.569753, 40.156576, -22.261477)

line2D4.ReportName = 8

line2D4.EndPoint = point2D3

line2D4.StartPoint = point2D4

Dim point2D5 As Point2D
Set point2D5 = factory2D1.CreatePoint(26.546910, -35.871143)

point2D5.ReportName = 9

Dim point2D6 As Point2D
Set point2D6 = factory2D1.CreatePoint(-28.918764, -35.871143)

point2D6.ReportName = 10

Dim line2D5 As Line2D
Set line2D5 = factory2D1.CreateLine(26.546910, -35.871143, -28.918764, -35.871143)

line2D5.ReportName = 11

line2D5.StartPoint = point2D5

line2D5.EndPoint = point2D6

Dim point2D7 As Point2D
Set point2D7 = factory2D1.CreatePoint(-40.391403, -24.398504)

point2D7.ReportName = 12

Dim point2D8 As Point2D
Set point2D8 = factory2D1.CreatePoint(-40.391403, 20.779744)

point2D8.ReportName = 13

Dim line2D6 As Line2D
Set line2D6 = factory2D1.CreateLine(-40.391403, -24.398504, -40.391403, 20.779744)

line2D6.ReportName = 14

line2D6.EndPoint = point2D7

line2D6.StartPoint = point2D8

Dim constraints1 As Constraints
Set constraints1 = sketch1.Constraints

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(line2D3)

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(line2D1)

Dim constraint1 As Constraint
Set constraint1 = constraints1.AddBiEltCst(catCstTypeHorizontality, reference2, reference3)

constraint1.Mode = catCstModeDrivingDimension

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(line2D5)

Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(line2D1)

Dim constraint2 As Constraint
Set constraint2 = constraints1.AddBiEltCst(catCstTypeHorizontality, reference4, reference5)

constraint2.Mode = catCstModeDrivingDimension

Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromObject(line2D4)

Dim reference7 As Reference
Set reference7 = part1.CreateReferenceFromObject(line2D2)

Dim constraint3 As Constraint
Set constraint3 = constraints1.AddBiEltCst(catCstTypeVerticality, reference6, reference7)

constraint3.Mode = catCstModeDrivingDimension

Dim reference8 As Reference
Set reference8 = part1.CreateReferenceFromObject(line2D6)

Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromObject(line2D2)

Dim constraint4 As Constraint
Set constraint4 = constraints1.AddBiEltCst(catCstTypeVerticality, reference8, reference9)

constraint4.Mode = catCstModeDrivingDimension

Dim point2D9 As Point2D
Set point2D9 = factory2D1.CreatePoint(-27.175618, 20.779744)

point2D9.ReportName = 15

Dim circle2D1 As Circle2D
Set circle2D1 = factory2D1.CreateCircle(-27.175618, 20.779744, 13.215786, 1.570796, 3.141593)

circle2D1.CenterPoint = point2D9

circle2D1.ReportName = 16

circle2D1.StartPoint = point2D1

circle2D1.EndPoint = point2D8

Dim reference10 As Reference
Set reference10 = part1.CreateReferenceFromObject(circle2D1)

Dim reference11 As Reference
Set reference11 = part1.CreateReferenceFromObject(line2D3)

Dim constraint5 As Constraint
Set constraint5 = constraints1.AddBiEltCst(catCstTypeTangency, reference10, reference11)

constraint5.Mode = catCstModeDrivingDimension

Dim reference12 As Reference
Set reference12 = part1.CreateReferenceFromObject(circle2D1)

Dim reference13 As Reference
Set reference13 = part1.CreateReferenceFromObject(line2D6)

Dim constraint6 As Constraint
Set constraint6 = constraints1.AddBiEltCst(catCstTypeTangency, reference12, reference13)

constraint6.Mode = catCstModeDrivingDimension

Dim reference14 As Reference
Set reference14 = part1.CreateReferenceFromObject(circle2D1)

Dim constraint7 As Constraint
Set constraint7 = constraints1.AddMonoEltCst(catCstTypeRadius, reference14)

constraint7.Mode = catCstModeDrivingDimension

Dim length1 As Dimension
Set length1 = constraint7.Dimension

length1.Value = 13.215786

Dim point2D10 As Point2D
Set point2D10 = factory2D1.CreatePoint(21.730800, 15.569753)

point2D10.ReportName = 17

Dim circle2D2 As Circle2D
Set circle2D2 = factory2D1.CreateCircle(21.730800, 15.569753, 18.425777, 0.000000, 1.570796)

circle2D2.CenterPoint = point2D10

circle2D2.ReportName = 18

circle2D2.EndPoint = point2D2

circle2D2.StartPoint = point2D3

Dim reference15 As Reference
Set reference15 = part1.CreateReferenceFromObject(circle2D2)

Dim reference16 As Reference
Set reference16 = part1.CreateReferenceFromObject(line2D3)

Dim constraint8 As Constraint
Set constraint8 = constraints1.AddBiEltCst(catCstTypeTangency, reference15, reference16)

constraint8.Mode = catCstModeDrivingDimension

Dim reference17 As Reference
Set reference17 = part1.CreateReferenceFromObject(circle2D2)

Dim reference18 As Reference
Set reference18 = part1.CreateReferenceFromObject(line2D4)

Dim constraint9 As Constraint
Set constraint9 = constraints1.AddBiEltCst(catCstTypeTangency, reference17, reference18)

constraint9.Mode = catCstModeDrivingDimension

Dim reference19 As Reference
Set reference19 = part1.CreateReferenceFromObject(circle2D2)

Dim constraint10 As Constraint
Set constraint10 = constraints1.AddMonoEltCst(catCstTypeRadius, reference19)

constraint10.Mode = catCstModeDrivingDimension

Dim length2 As Dimension
Set length2 = constraint10.Dimension

length2.Value = 18.425777

Dim point2D11 As Point2D
Set point2D11 = factory2D1.CreatePoint(-28.918764, -24.398504)

point2D11.ReportName = 19

Dim circle2D3 As Circle2D
Set circle2D3 = factory2D1.CreateCircle(-28.918764, -24.398504, 11.472639, 3.141593, 4.712389)

circle2D3.CenterPoint = point2D11

circle2D3.ReportName = 20

circle2D3.EndPoint = point2D6

circle2D3.StartPoint = point2D7

Dim reference20 As Reference
Set reference20 = part1.CreateReferenceFromObject(circle2D3)

Dim reference21 As Reference
Set reference21 = part1.CreateReferenceFromObject(line2D5)

Dim constraint11 As Constraint
Set constraint11 = constraints1.AddBiEltCst(catCstTypeTangency, reference20, reference21)

constraint11.Mode = catCstModeDrivingDimension

Dim reference22 As Reference
Set reference22 = part1.CreateReferenceFromObject(circle2D3)

Dim reference23 As Reference
Set reference23 = part1.CreateReferenceFromObject(line2D6)

Dim constraint12 As Constraint
Set constraint12 = constraints1.AddBiEltCst(catCstTypeTangency, reference22, reference23)

constraint12.Mode = catCstModeDrivingDimension

Dim reference24 As Reference
Set reference24 = part1.CreateReferenceFromObject(circle2D3)

Dim constraint13 As Constraint
Set constraint13 = constraints1.AddMonoEltCst(catCstTypeRadius, reference24)

constraint13.Mode = catCstModeDrivingDimension

Dim length3 As Dimension
Set length3 = constraint13.Dimension

length3.Value = 11.472639

Dim point2D12 As Point2D
Set point2D12 = factory2D1.CreatePoint(26.546910, -22.261477)

point2D12.ReportName = 21

Dim circle2D4 As Circle2D
Set circle2D4 = factory2D1.CreateCircle(26.546910, -22.261477, 13.609666, 4.712389, 6.283185)

circle2D4.CenterPoint = point2D12

circle2D4.ReportName = 22

circle2D4.EndPoint = point2D4

circle2D4.StartPoint = point2D5

Dim reference25 As Reference
Set reference25 = part1.CreateReferenceFromObject(circle2D4)

Dim reference26 As Reference
Set reference26 = part1.CreateReferenceFromObject(line2D4)

Dim constraint14 As Constraint
Set constraint14 = constraints1.AddBiEltCst(catCstTypeTangency, reference25, reference26)

constraint14.Mode = catCstModeDrivingDimension

Dim reference27 As Reference
Set reference27 = part1.CreateReferenceFromObject(circle2D4)

Dim reference28 As Reference
Set reference28 = part1.CreateReferenceFromObject(line2D5)

Dim constraint15 As Constraint
Set constraint15 = constraints1.AddBiEltCst(catCstTypeTangency, reference27, reference28)

constraint15.Mode = catCstModeDrivingDimension

Dim reference29 As Reference
Set reference29 = part1.CreateReferenceFromObject(circle2D4)

Dim constraint16 As Constraint
Set constraint16 = constraints1.AddMonoEltCst(catCstTypeRadius, reference29)

constraint16.Mode = catCstModeDrivingDimension

Dim length4 As Dimension
Set length4 = constraint16.Dimension

length4.Value = 13.609666

sketch1.CloseEdition 

part1.InWorkObject = body1

part1.UpdateObject sketch1

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePlaneExplicit1 As AnyObject
Set hybridShapePlaneExplicit1 = originElements1.PlaneXY

Dim reference30 As Reference
Set reference30 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)

Dim hybridShapeDirection1 As HybridShapeDirection
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirection(reference30)

Dim reference31 As Reference
Set reference31 = part1.CreateReferenceFromObject(sketch1)

Dim hybridShapeExtrude1 As HybridShapeExtrude
Set hybridShapeExtrude1 = hybridShapeFactory1.AddNewExtrude(reference31, 20.000000, 0.000000, hybridShapeDirection1)

hybridBody1.AppendHybridShape hybridShapeExtrude1

part1.InWorkObject = hybridShapeExtrude1

part1.Update 

Dim sketches2 As Sketches
Set sketches2 = hybridBody1.HybridSketches

Dim reference32 As AnyObject
Set reference32 = originElements1.PlaneZX

Dim sketch2 As Sketch
Set sketch2 = sketches2.Add(reference32)

Dim arrayOfVariantOfDouble2(8)
arrayOfVariantOfDouble2(0) = 0.000000
arrayOfVariantOfDouble2(1) = 0.000000
arrayOfVariantOfDouble2(2) = 0.000000
arrayOfVariantOfDouble2(3) = -1.000000
arrayOfVariantOfDouble2(4) = 0.000000
arrayOfVariantOfDouble2(5) = 0.000000
arrayOfVariantOfDouble2(6) = 0.000000
arrayOfVariantOfDouble2(7) = 0.000000
arrayOfVariantOfDouble2(8) = 1.000000
sketch2.SetAbsoluteAxisData arrayOfVariantOfDouble2

part1.InWorkObject = sketch2

Dim factory2D2 As Factory2D
Set factory2D2 = sketch2.OpenEdition()

Dim geometricElements2 As GeometricElements
Set geometricElements2 = sketch2.GeometricElements

Dim axis2D2 As GeometricElement
Set axis2D2 = geometricElements2.Item("AbsoluteAxis")

Dim line2D7 As CATBaseDispatch
Set line2D7 = axis2D2.GetItem("HDirection")

line2D7.ReportName = 1

Dim line2D8 As CATBaseDispatch
Set line2D8 = axis2D2.GetItem("VDirection")

line2D8.ReportName = 2

Dim controlPoint2D1 As ControlPoint2D
Set controlPoint2D1 = factory2D2.CreateControlPoint(44.853247, 14.301567)

controlPoint2D1.ReportName = 3

Dim controlPoint2D2 As ControlPoint2D
Set controlPoint2D2 = factory2D2.CreateControlPoint(-4.461843, 16.646086)

controlPoint2D2.ReportName = 4

Dim controlPoint2D3 As ControlPoint2D
Set controlPoint2D3 = factory2D2.CreateControlPoint(-45.557751, 11.957047)

controlPoint2D3.ReportName = 5

Dim arrayOfObject1(2)
Set arrayOfObject1(0) = controlPoint2D3
Set arrayOfObject1(1) = controlPoint2D2
Set arrayOfObject1(2) = controlPoint2D1
Dim spline2D1 As Spline2D
Set spline2D1 = factory2D2.CreateSpline(arrayOfObject1)

spline2D1.ReportName = 6

sketch2.CloseEdition 

part1.InWorkObject = hybridBody1

part1.UpdateObject sketch2

Dim hybridShapePlaneExplicit2 As AnyObject
Set hybridShapePlaneExplicit2 = originElements1.PlaneZX

Dim reference33 As Reference
Set reference33 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit2)

Dim hybridShapeDirection2 As HybridShapeDirection
Set hybridShapeDirection2 = hybridShapeFactory1.AddNewDirection(reference33)

Dim reference34 As Reference
Set reference34 = part1.CreateReferenceFromObject(sketch2)

Dim hybridShapeExtrude2 As HybridShapeExtrude
Set hybridShapeExtrude2 = hybridShapeFactory1.AddNewExtrude(reference34, 50.000000, 40.000000, hybridShapeDirection2)

hybridBody1.AppendHybridShape hybridShapeExtrude2

part1.InWorkObject = hybridShapeExtrude2

part1.Update 

Dim reference35 As Reference
Set reference35 = part1.CreateReferenceFromObject(hybridShapeExtrude1)

Dim reference36 As Reference
Set reference36 = part1.CreateReferenceFromObject(hybridShapeExtrude2)

Dim hybridShapeTrim1 As HybridShapeTrim
Set hybridShapeTrim1 = hybridShapeFactory1.AddNewHybridTrim(reference35, -1, reference36, -1)

hybridShapeFactory1.GSMVisibility reference35, 0

hybridShapeFactory1.GSMVisibility reference36, 0

hybridBody1.AppendHybridShape hybridShapeTrim1

part1.InWorkObject = hybridShapeTrim1

part1.Update 

hybridShapeFactory1.GSMVisibility hybridShapeTrim1, 1

Dim shapeFactory1 As Factory
Set shapeFactory1 = part1.ShapeFactory

Dim varRadEdgeFillet1 As VarRadEdgeFillet
Set varRadEdgeFillet1 = shapeFactory1.AddNewSurfaceEdgeFilletWithVaryingRadius(Nothing, catTangencyFilletEdgePropagation, catCubicFilletVariation, 5.000000)

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim constRadEdgeFillet1 As HybridShape
Set constRadEdgeFillet1 = hybridShapes1.Item("EdgeFillet.1")

constRadEdgeFillet1.FilletBoundaryRelimitation = 638396592

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference37 As Reference
Set reference37 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;8)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference37, 5.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference38 As Reference
Set reference38 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;18)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference38, 5.000000

Dim reference39 As Reference
Set reference39 = part1.CreateReferenceFromBRepName("PointOnEdge_1:(REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;18)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14))", hybridShapeTrim1)

Dim length5 As Length
Set length5 = varRadEdgeFillet1.ImposedVertexRadius(reference39)

length5.Value = 4.000000

length5.Value = 3.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference40 As Reference
Set reference40 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;5)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference40, 3.000000

Dim reference41 As Reference
Set reference41 = part1.CreateReferenceFromBRepName("PointOnEdge_0:(REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;5)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14))", hybridShapeTrim1)

Dim length6 As Length
Set length6 = varRadEdgeFillet1.ImposedVertexRadius(reference41)

length6.Value = 4.000000

length6.Value = 5.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference42 As Reference
Set reference42 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;16)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference42, 5.000000

Dim reference43 As Reference
Set reference43 = part1.CreateReferenceFromBRepName("PointOnEdge_0:(REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;16)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14))", hybridShapeTrim1)

Dim length7 As Length
Set length7 = varRadEdgeFillet1.ImposedVertexRadius(reference43)

length7.Value = 4.000000

length7.Value = 3.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference44 As Reference
Set reference44 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;14)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference44, 3.000000

Dim reference45 As Reference
Set reference45 = part1.CreateReferenceFromBRepName("PointOnEdge_1:(REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;14)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14))", hybridShapeTrim1)

Dim length8 As Length
Set length8 = varRadEdgeFillet1.ImposedVertexRadius(reference45)

length8.Value = 4.000000

length8.Value = 5.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference46 As Reference
Set reference46 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;20)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference46, 5.000000

Dim reference47 As Reference
Set reference47 = part1.CreateReferenceFromBRepName("PointOnEdge_1:(REdge:(Edge:(Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;20)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14))", hybridShapeTrim1)

Dim length9 As Length
Set length9 = varRadEdgeFillet1.ImposedVertexRadius(reference47)

length9.Value = 4.000000

length9.Value = 3.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference48 As Reference
Set reference48 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;11)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference48, 3.000000

Dim reference49 As Reference
Set reference49 = part1.CreateReferenceFromBRepName("PointOnEdge_0:(REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;11)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14))", hybridShapeTrim1)

Dim length10 As Length
Set length10 = varRadEdgeFillet1.ImposedVertexRadius(reference49)

length10.Value = 4.000000

length10.Value = 5.000000

varRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

constRadEdgeFillet1.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation

constRadEdgeFillet1.FilletTrimSupport = catTrimFilletSupport

varRadEdgeFillet1.FilletVariation = catCubicFilletVariation

Dim reference50 As Reference
Set reference50 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(GSMExtrude.1;0:(Brp:(Sketch.1;22)));None:();Cf11:());Face:(Brp:(GSMExtrude.2;0:(Brp:(Sketch.2;6)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", hybridShapeTrim1)

varRadEdgeFillet1.AddEdgeToFillet reference50, 5.000000

length10.Value = 4.000000

length10.Value = 3.000000

part1.UpdateObject varRadEdgeFillet1

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

End Sub