Existing sketch redefine to another workplane

[ArunS2DHBM]

I have Sketch1, which should be redefined to Workplane1 if my parameter1=WP1 and it should be redefined to Workplane2 if my parameter1=WP2

can anyone help me with the Ilogic code.

[Andrii_Humeniuk]

Hi @ArunS2DHBM . Try this code, and don't forget to check the compatibility of the names of the sketch and the workplanes.

Private Sub Main()
	Dim oDoc As PartDocument = ThisApplication.ActiveDocument
	Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
	Dim oSketch As PlanarSketch = oDef.Sketches.Item("Sketch1")
	If parameter1 = "WP1" Then
		oSketch.PlanarEntity = oDef.WorkPlanes.Item("Workplane1")
	Else If parameter1 = "WP2" Then
		oSketch.PlanarEntity = oDef.WorkPlanes.Item("Workplane2")
	End If
End Sub

[ArunS2DHBM]

Hi @Andrii_Humeniuk ,

Thanks for the code and it's working. 

When the sketch is redefined, the constraint is deleted, how can I keep up the constrain? example in sketch1 I have drawn a circle positioned at the line's  end point which is projected. i want to keep the constrain .

Can u help me ipon that