How to edit an exisitng sketch using the API

[gert-leonvanlier]

I want to edit an exisitng sketch called "SketchSupportPositions". I have found several examples on how to create a new sketch, but that is not what I need. Can anyone give me an example on how to get my existing sketch?

[gert-leonvanlier]

I want to edit an exisitng sketch called "SketchSupportPositions". I have found several examples on how to create a new sketch, but that is not what I need. Can anyone give me an example on how to get my existing sketch?

[dutt.thakar · Accepted solution]

@gert-leonvanlier 

Try this to reach in edit state of the sketch

Dim oDef As PartComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
		Dim oSketch As PlanarSketch = oDef.Sketches("SketchSupportPositions")
                oSketch.Edit

To exit the edit state of a sketch

oSketch.ExitEdit

Hope this will be helpful.

[dutt.thakar · Accepted solution]

@gert-leonvanlier 

Try this to reach in edit state of the sketch

Dim oDef As PartComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
		Dim oSketch As PlanarSketch = oDef.Sketches("SketchSupportPositions")
                oSketch.Edit

To exit the edit state of a sketch

oSketch.ExitEdit

Hope this will be helpful.

[bhavik4244]

@gert-leonvanlier 

This could help you,

Dim oPartDoc As PartDocument
Dim oTG As TransientGeometry
Dim oSketch As PlanarSketch

oPartDoc = ThisApplication.ActiveDocument
oTG = ThisApplication.TransientGeometry

oSketch = oPartDoc.ComponentDefinition.Sketches(1)
MessageBox.Show(oSketch.Name, "Title")

oSketch.Edit

[bhavik4244]

@gert-leonvanlier 

This could help you,

Dim oPartDoc As PartDocument
Dim oTG As TransientGeometry
Dim oSketch As PlanarSketch

oPartDoc = ThisApplication.ActiveDocument
oTG = ThisApplication.TransientGeometry

oSketch = oPartDoc.ComponentDefinition.Sketches(1)
MessageBox.Show(oSketch.Name, "Title")

oSketch.Edit

[gert-leonvanlier]

---

@dutt.thakar wrote:

@gert-leonvanlier 

Try this to reach in edit state of the sketch

Dim oDef As PartComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
		Dim oSketch As PlanarSketch = oDef.Sketches("SketchSupportPositions")
                oSketch.Edit

To exit the edit state of a sketch

oSketch.ExitEdit

Hope this will be helpful.

---

This works! Thank you.

[gert-leonvanlier]

---

@dutt.thakar wrote:

@gert-leonvanlier 

Try this to reach in edit state of the sketch

Dim oDef As PartComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
		Dim oSketch As PlanarSketch = oDef.Sketches("SketchSupportPositions")
                oSketch.Edit

To exit the edit state of a sketch

oSketch.ExitEdit

Hope this will be helpful.

---

This works! Thank you.