I am cannot try your code at this stage but:
1. Try changing the +/- sign of the distance and see if that changes the direction.
2. In regards to creating a circle, Once you select the mid point of the line, get the ISketchPoint using ISelectionMgr::GetSelectedObject6 method. Then get is X, Y, Z location and then use these locations to drawing your circle. Once the circle is drawn, select the mid point of the circle and the sketch point and make them co-incident.
Hope this helps.
I tried this but not able to get results.
Could you please explain this in detail?
Try adding the following after selecting the midpoint. The selected midpoint is actually a SketchPoint you can use for its X, Y and Z position.
Dim skPt As SketchPoint
Set skPt = swSelMgr.GetSelectedObject(1)
Dim skSeg As SketchSegment
Dim rad As Double
rad = 0.01 'in meters
Set skSeg = swSketchManager.CreateCircleByRadius(skPt.X, skPt.Y, skPt.Z, rad)
A coincident sketch relationship is automatically added. Your view zoom level may have an effect on snapping.
Thanks a lot. Its working