02-01-2023
01:59 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-01-2023
01:59 AM
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)