Dim oDoc As PartDocument = ThisDoc.Document
Dim oTG As TransientGeometry = ThisApplication.TransientGeometry
Dim p1 As Inventor.SketchPoint = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchPointFilter, "Select p1")
Dim p2 As Inventor.SketchPoint = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchPointFilter, "Select p2")
Dim p3 As Inventor.SketchPoint = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchPointFilter, "Select p3")
Dim oSketch As PlanarSketch = ThisApplication.ActiveEditObject
Dim oPoint1 As Inventor.Point2d = oTG.CreatePoint2d(p1.Geometry.X, p1.Geometry.Y)
Dim oPoint2 As Inventor.Point2d = oTG.CreatePoint2d(p2.Geometry.X, p2.Geometry.Y)
Dim oPoint3 As Inventor.Point2d = oTG.CreatePoint2d(p3.Geometry.X, p3.Geometry.Y)
Dim oCircle As Inventor.SketchCircle = oSketch.SketchCircles.AddByThreePoints(oPoint1, oPoint2, oPoint3)
oCircle.Construction = True
oCircle.CenterSketchPoint.HoleCenter = True
oSketch.GeometricConstraints.AddCoincident(oCircle, p1)
oSketch.GeometricConstraints.AddCoincident(oCircle, p2)
oSketch.GeometricConstraints.AddCoincident(oCircle, p3)