Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Part1.CATPart")

Set part1 = partDocument1.Part

Set shapeFactory1 = part1.ShapeFactory

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("PartBody")

Set shapes1 = body1.Shapes

Set pad1 = shapes1.Item("Pad.1")

Set reference1 = part1.CreateReferenceFromBRepName("FEdge :frown:Edge :frown:Face :frown:Brp :frown:Pad.1;0 :frown:Brp :frown:Sketch.2;2)));None :frown:);Cf11 :frown:));Face :frown:Brp :frown:Pad.1;0 :frown:Brp :frown:Sketch.2;1)));None :frown:);Cf11 :frown:));None :frown:Limits1 :frown:);Lim its2 :frown:));Cf11 :frown:));WithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MFBRepVersion_CXR15)", pad1)

Set reference2 = part1.CreateReferenceFromBRepName("FEdge :frown:Edge :frown:Face :frown:Brp :frown:Pad.1;0 :frown:Brp :frown:Sketch.2;2)));None :frown:);Cf11 :frown:));Face :frown:Brp :frown:Pad.1;2);None :frown:);Cf11 :frown:));None :frown:Limits1 :frown:);Limits2 :frown:));Cf11 :frown:));W ithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MFBRepVersion_CXR15)", pad1)

Set reference3 = part1.CreateReferenceFromBRepName("FSur :frown:Face :frown:Brp :frown:Pad.1;0 :frown:Brp :frown:Sketch.2;2)));None :frown:);Cf11 :frown:));WithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MonoFond;MFBRepVersio n_CXR15)", pad1)

Set hole1 = shapeFactory1.AddNewHoleWith2Constraints(75.503029, 18.091700, 61.397236, reference1, reference2, reference3, 10.000000)

hole1.Type = catSimpleHole

hole1.AnchorMode = catExtremPointHoleAnchor

hole1.BottomType = catFlatHoleBottom

Set limit1 = hole1.BottomLimit

limit1.LimitMode = catOffsetLimit

Set length1 = hole1.Diameter

length1.Value = 5.000000

hole1.ThreadingMode = catSmoothHoleThreading

hole1.ThreadSide = catRightThreadSide

Set sketch1 = hole1.Sketch

Set factory2D1 = sketch1.OpenEdition()

Set geometricElements1 = sketch1.GeometricElements

Set point2D1 = geometricElements1.Item("Point.1")

point2D1.SetData -0.437014, 0.000000

Set constraints1 = sketch1.Constraints

Set constraint1 = constraints1.Item("Offset.42")

Set length2 = constraint1.Dimension

length2.Value = 10.000000

Set constraint2 = constraints1.Item("Offset.43")

Set length3 = constraint2.Dimension

length3.Value = 8.602764

sketch1.CloseEdition 

Set factory2D1 = sketch1.OpenEdition()

point2D1.SetData -0.437014, -1.397236

length2.Value = 10.000000

length3.Value = 10.000000

sketch1.CloseEdition 

part1.Update 

End Sub