Hi, you can try this:
Dim aScale As Double = 1 ' You can change the scale here
Dim oDoc As Document = ThisApplication.ActiveDocument
Dim aDrawing As DrawingDocument
aDrawing = ThisApplication.Documents.Add(kDrawingDocumentObject, _
ThisApplication.FileManager.GetTemplateFile(kDrawingDocumentObject))
Dim oSheet As Sheet = aDrawing.Sheets.Item(1)
Dim TG As TransientGeometry = ThisApplication.TransientGeometry
Dim aPoint As Point2d = TG.CreatePoint2d(0, 0)
Dim oView As DrawingView
oView = oSheet.DrawingViews.AddBaseView(oDoc, aPoint, _
aScale, ViewOrientationTypeEnum.kFrontViewOrientation, _
DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle)
Consider using "Accept as Solution" / "Kudos" if you find this helpful.
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods