Get a centerpoint on the centermark, when projection a circular geometry

[cco2JFB7]

Do any have an idea of a rule that will put a center point on the center mark, when projection of a circular geometry?

I have looked for a snippet but without any luck

Thanks

Christian

[A.Acheson]

Hi @cco2JFB7 

I don't have a sample at hand but this sample here might give you some help.

[A.Acheson]

Hi @cco2JFB7 

Here is a sample

  	Dim oPartDoc As PartDocument = ThisDoc.Document
                    
	'  Reference to the component definition.
	Dim compDef As PartComponentDefinition = oPartDoc.ComponentDefinition
	
	' Get the sketch we want to use.
	Dim sketch As PlanarSketch = compDef.Sketches(2)

	sketch.edit

	' Prompt user to select an edge.
	Dim cirEdge As Edge = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartEdgeFilter, "Select an edge")

	' Add the circles edge to the sketch by projecting.
	Dim sketchCirc As SketchCircle = sketch.AddByProjectingEntity(cirEdge)

	' Get centerpoint as SketchPoint.
	Dim cirSketchPoint As SketchPoint = sketchCirc.CenterSketchPoint
	
	' Convert the Sketchpoint to Hole Center.
	cirSketchPoint.HoleCenter = True

 	sketch.ExitEdit