Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Cadkunde.nl
in reply to: arron.craig

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)