Private Sub test_dwg_11()
Dim oDoc_dwg As DrawingDocument
Set oDoc_dwg = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDoc_dwg.ActiveSheet
Dim oView As DrawingView
Set oView = oSheet.DrawingViews(3)
Dim Templ_Path As String
Templ_Path = ThisApplication.DesignProjectManager.ActiveDesignProject.TemplatesPath + "Обычный.idw"
Dim oDoc_dwg_new As DrawingDocument
Set oDoc_dwg_new = ThisApplication.Documents.Add(kDrawingDocumentObject, Templ_Path)
Call oView.CopyTo(oDoc_dwg_new.Sheets(1))
End Sub