' CATIA V5 Automation Macro - AI Engineering CAD Generator
Sub CATMain()
    Set documents1 = CATIA.Documents
    Set partDocument1 = documents1.Add("Part")
    Set part1 = partDocument1.Part
    Set bodies1 = part1.Bodies
    Set body1 = bodies1.Item("PartBody")
    Set sketches1 = body1.Sketches
    Set reference1 = part1.OriginElements.PlaneXY
    Set sketch1 = sketches1.Add(reference1)
    Set factory2D1 = sketch1.OpenEdition()
    Set point2D1 = factory2D1.CreatePoint(-50, -30)
    Set line1 = factory2D1.CreateLine(-50, -30, 50, -30)
    sketch1.CloseEdition()
    Set pad1 = part1.ShapeFactory.AddNewPad(sketch1, 10)
    part1.Update
End Sub