Language="VBSCRIPT"

Sub CATMain()
Dim Body0 As AnyObject
Set Body0 = CATIA.ActiveDocument.Part.Bodies.Item  ( "PartBody" ) 

Dim Reference1 As Reference
Set Reference1 = CATIA.ActiveDocument.Part.CreateReferenceFromGeometry  ( CATIA.ActiveDocument.Part.OriginElements.PlaneXY ) 

Dim Sketch2 As Sketch
Set Sketch2 = Body0.Sketches.Add  ( Reference1 ) 

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

Dim Factory2D4 As Factory2D
Set Factory2D4 = Sketch2.OpenEdition 

Dim Axis2D5 As AnyObject
Set Axis2D5 = Sketch2.GeometricElements.Item  ( "AbsoluteAxis" ) 

Dim Line2D6 As AnyObject
Set Line2D6 = Axis2D5.GetItem  ( "HDirection" ) 

Line2D6.ReportName = 1
Dim Line2D7 As AnyObject
Set Line2D7 = Axis2D5.GetItem  ( "VDirection" ) 

Line2D7.ReportName = 2
Dim Circle2D8 As Circle2D
Set Circle2D8 = Factory2D4.CreateClosedCircle  ( 0.000000, 0.000000, 4.265654 ) 

Dim Point2D9 As AnyObject
Set Point2D9 = Axis2D5.GetItem  ( "Origin" ) 

Circle2D8.CenterPoint = Point2D9
Circle2D8.ReportName = 3
Sketch2.CloseEdition 

CATIA.ActiveDocument.Part.Update 

Dim Pad10 As Pad
Set Pad10 = CATIA.ActiveDocument.Part.ShapeFactory.AddNewPad  ( Sketch2, 4.000000 ) 

CATIA.ActiveDocument.Part.Update 

Set Factory2D4 = Sketch2.OpenEdition 

Sketch2.CloseEdition 


End Sub