Create Sketch on Face but Sketch doesn't rotate to front

[Tiffany_Hayden_]

I'm creating a sketch on a face but when the sketch is created and in edit mode the sketch doesn't rotate forward. I'm hoping there is something simple but I can't seem to find it. Any help would be greatly appreciated! 

    Dim oDoc As PartDocument: Set oDoc = ThisApplication.ActiveDocument
    Dim oPartDef As PartComponentDefinition: Set oPartDef = oDoc.ComponentDefinition
    
    Dim oFace As Face: Set oFace = ThisApplication.CommandManager.Pick(Inventor.SelectionFilterEnum.kPartFaceFilter, "Select the face")
    

    Dim oSketch As PlanarSketch: Set oSketch = oPartDef.Sketches.Add(oFace, True)
    oSketch.Edit

This is what it looks like when the above code is finished. 

This is what I want it to do. This will make it where the user doesn't have to rotate it front to start drawing. 

Thank you! 

Tiffany

[HideoYamada · Accepted solution]

Hello,

Change the code like this :

    Dim oDoc As PartDocument: Set oDoc = ThisApplication.ActiveDocument
    Dim oPartDef As PartComponentDefinition: Set oPartDef = oDoc.ComponentDefinition
    
    Dim oFace As Face: Set oFace = ThisApplication.CommandManager.Pick(Inventor.SelectionFilterEnum.kPartFaceFilter, "Select the face")
    

    Dim oSketch As PlanarSketch: Set oSketch = oPartDef.Sketches.Add(oFace, True)
    'oSketch.Edit
    oDoc.SelectSet.Select oSketch
    ThisApplication.CommandManager.ControlDefinitions("AppSketch2DWrapperCmd").Execute

=====

Freeradical

 Hideo Yamada

[Tiffany_Hayden_]

That worked! Thank you @HideoYamada  for your help!

Tiffany