Sub Example_SaveAs()
    ' Следующий пример сохраняет текущий рисунок как "test.dwg"
    
    ThisDrawing.SaveAs ("test.dwg")
    
End Sub