Need to create Sketch on a Workplane

[RoyWickrama_RWEI]

I am digging to get around creating a sketch on an existing workplane. It is not going through. I request provide me with help.

'  a reference to the currently active document.
' This assumes that it is a part document.
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

'  a reference to the component definition.
Dim oCompDef As PartComponentDefinition
oCompDef = oPartDoc.ComponentDefinition

'  a reference to the transient geometry object.
Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry

Dim doc = ThisApplication.ActiveDocument




oWP = "WP01"

oSketch = oCompDef.Sketches.Add(oWP)

Inventor 2015

[Owner2229]

Here you go:

' Reference the currently active document.
Dim oDoc As Document = ThisApplication.ActiveDocument

' Parts only.
If oDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Exit Sub

' Reference the component definition.
Dim oCD As PartComponentDefinition = oDoc.ComponentDefinition

' Reference the workplane called "WP01".
Dim oWP As WorkPlane = oCD.WorkPlanes("WP01")

' Add new sketch.
Dim oSketch As PlanarSketch = oCD.Sketches.Add(oWP)

' Rename the new sketch (optional).
oSketch.Name = "Sketch on WP01"

[RoyWickrama_RWEI]

Thanks. It is really good enough.

However, could you revise the code so that the sketch is active for editing (as shown below):

[Owner2229]

Here you go.

' Reference the currently active document.
Dim oDoc As Document = ThisApplication.ActiveDocument

' Parts only.
If oDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Exit Sub

' Reference the component definition.
Dim oCD As PartComponentDefinition = oDoc.ComponentDefinition

' Reference the workplane called "WP01".
Dim oWP As WorkPlane = oCD.WorkPlanes("WP01")

' Add new sketch.
Dim oSketch As PlanarSketch = oCD.Sketches.Add(oWP)

' Rename the new sketch (optional).
oSketch.Name = "Sketch on WP01"

' Start editing the sketch (optional).
oSketch.Edit()

' Exit the sketch editing (optional).
'oSketch.ExitEdit()