Looking for Ilogic code to do a revolved cut in Assy

[nowell.colsenXK53F]

I have been looking for ilogic code to do a revolved 

[Michael.Navara]

Here is small sample

Dim asm As AssemblyDocument = ThisDoc.Document
Dim asmDef As AssemblyComponentDefinition = asm.ComponentDefinition

Dim xyWorkPlane As WorkPlane = asmDef.WorkPlanes(3)
Dim asmSketch = asm.ComponentDefinition.Sketches.Add(xyWorkPlane)

Dim axisLine As SketchLine = asmSketch.SketchLines.AddByTwoPoints(
    ThisApplication.TransientGeometry.CreatePoint2d(0, -1),
    ThisApplication.TransientGeometry.CreatePoint2d(0, 1)
    )

Dim profileCircle As SketchCircle = asmSketch.SketchCircles.AddByCenterRadius(
    ThisApplication.TransientGeometry.CreatePoint2d(2, 1),
    1
    )

Dim profile As Profile = asmSketch.Profiles.AddForSolid()

asmDef.Features.RevolveFeatures.AddFull(profile, axisLine, PartFeatureOperationEnum.kCutOperation)

Expected result: