Помогите модифицировать код (выдавливание окружностей, Inventor)

Народ Help Me!
есть код каторый чертит две окружности в прямоугольнике и выдавливает прямоугольник без окружностей !
Как сделать так чтобы он например выдавливал одну или две окружности ?
Заранее спос!
дос!
Public Sub SweepFeature()
    Dim oPartDoc As PartDocument
'   Set oPartDoc = ThisApplication.ActiveDocument
    Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, _
                ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition
    Dim oTransGeom As TransientGeometry
    Set oTransGeom = ThisApplication.TransientGeometry
    Dim oSketch As Sketch
    Set oSketch = oCompDef.Sketches.Add(oCompDef.WorkPlanes.Item(3))
    Dim oCircle1 As SketchCircle
    Set oCircle1 = oSketch.SketchCircles.AddByCenterRadius( _
                                oTransGeom.CreatePoint2d(-7, -3), 1.2)
    Dim oCircle As SketchCircle
    Set oCircle = oSketch.SketchCircles.AddByCenterRadius( _
                                oTransGeom.CreatePoint2d(0, 0), 2)
    Dim oRectangleLines As SketchEntitiesEnumerator
    Set oRectangleLines = oSketch.SketchLines.AddAsTwoPointRectangle( _
                                oTransGeom.CreatePoint2d(-10, -6), _
                                oTransGeom.CreatePoint2d(4, 3))
    Dim oProfile As Profiles
    Set oProfile = oSketch.Profiles.AddForSolid
    Dim oExtrude As ExtrudeFeature
    Set oExtrude = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent( _
                        oProfile(2), 1, kNegativeExtentDirection, kJoinOperation)
End Sub