How to Draw Centerlines Between Sketched Circles on a Drawing

[petestrycharske]

All,

Good afternoon!  I've got an interesting challenge where I'm using Inventor drawing sketches for geometry and want to draw centerlines between the sketched circles.  I can accomplish this task manually, so it should be possible programmatically.  If anyone can point me in the right direction, I would really appreciate it.  Thanks in advance for any assistance and let me know if you have any questions.  Hope all is well and have a most blessed day!

Peace,
Pete

[Michael.Navara · Accepted solution]

You are looking for something like this?

Dim sheet As Sheet = ThisDrawing.ActiveSheet.Sheet

Dim sk1 As DrawingSketch = sheet.Sketches(1)
Dim skCircle1 = sk1.SketchCircles(1)
Dim skCircle2 = sk1.SketchCircles(2)

Dim intent1 = sheet.CreateGeometryIntent(skCircle1)
Dim intent2 = sheet.CreateGeometryIntent(skCircle2)

Dim centerEntities As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection()
centerEntities.Add(intent1)
centerEntities.Add(intent2)

sheet.Centerlines.Add(centerEntities)

[petestrycharske]

Thanks @Michael.Navara!  It was the Sheet.CreateGeometryIntent that eluded me for some reason...  Thanks for the help and have a most blessed day!