Sub Example_New()
    ' Этот пример создает новый рисунок, основанный на шаблоне ansi-a.dwt.
    ' Обратите внимание: Путь к файлу шаблона включён в его название.
    ' Скорректируйте этот путь для вашего местоположения перед выполнением примера.
    
    Dim templateFileName As String
    templateFileName = "c:\AutoCAD\template\ansi-a.dwt"
    
    ThisDrawing.New templateFileName
    
End Sub