change baseview with custom view orientation

[Anonymous]

Hello

I made a code to create a view of a plate . But we work with a lot derive part. So I can not just put a top view . Now if you give a negative answer to the question "are you  happy ". I would like to open custom view orientation . Is this possible?

Imports Inventor.ViewOrientationTypeEnum
Imports Inventor.DrawingViewStyleEnum

Sub Main muppet()

Dim oDrawDoc as DrawingDocument    
Dim oPartDoc as Document
Dim oSheet As sheet
Dim oTG As TransientGeometry
Dim oBaseView As DrawingView
 



'Ask to create drawing?
dwgQuery=MsgBox(" Create a drawing for this MODEL?", vbYesNo,"Drawing Selection")

If dwgQuery = vbYes Then
   
	oPartDoc = ThisDoc.Document
    
    'Define IDW Template File Location
    oDrawDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\00-CONSTRUX LIBRARY\99-Templates\Laser.idw", True)
    oSheet = oDrawDoc.Sheets.Item(1)
    
    'Define 2d view bottom left corner points for four views
    oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(5, 5)
    
    
	oBaseView = oSheet.DrawingViews.AddBaseView(oPartDoc,oPoint1, 1/1,kTopViewOrientation, kHiddenLineDrawingViewStyle, "Default")
    
	
	dwgQuery=MsgBox("Happy?", vbYesNo,"test")
	
	
	
	If dwgQuery = vbNo Then
	
	MessageBox.Show("Message", "Title")   I WANT CUSTOM VIEW ORIENTATION HERE

	
	End If
	
	
	End If
	
	End Sub

The image shows what I want is this possible?

thanks in advance

Ewoud