ilogic project center point into Sketch

[dimamazutaMMJ32]

Hello.

When I copy sketch from one part to another the center point is not created in the new sketch. Is there a way to project a center point into a sketch using ilogic?

Thank you for your help.

[JelteDeJong · Accepted solution]

is this what you are looking for

Dim sketch As PlanarSketch = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllPlanarEntities, "")

Dim partDef As PartComponentDefinition = sketch.Parent

Dim cp = partDef.WorkPoints.Item("Center Point")

sketch.AddByProjectingEntity(cp)

[dalton98 · Accepted solution]

It automatically projects the origin point if you manually start a new sketch so im assuming your creating the sketch with ilogic aswell?

Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oSketch As PlanarSketch
oSketch = oDoc.ComponentDefinition.Sketches.Add(oCompDef.WorkPlanes.Item("XY Plane"))
'add origin point
oSketch.AddByProjectingEntity(oCompDef.WorkPoints.Item("Center Point"))

oSketch.Edit
Dim oPasteControlDef As ControlDefinition
oPasteControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppPasteCmd")
oPasteControlDef.Execute
oSketch.ExitEdit

[dimamazutaMMJ32]

Yes, I create sketch with ilogic.

Thanks for your help!