Sub Example_Open()
    ' Следующий пример открывает файл "C:\AutoCAD\Sample\city map.dwg".
    ' Этот рисунок не существует. Измените путь рисунка и название, чтобы
    ' открыть существующий русунок AutoCAD.
    
    ThisDrawing.Application.Documents.Open ("C:\AutoCAD\Sample\city map.dwg")
    
End Sub