Sub Example_Export()
    ' Этот пример экспортирует текущий рисунок в формат DXF.
    ' Обратите внимание, что допустимый набор выбора должен быть
    ' обеспечен, даже при том, что содержание набора выбора игнорируется.
    
    
    ' Определите название для экспортируемого файла
    Dim exportFile As String
    exportFile = "C:\AutoCAD\DXFExprt"   ' Cкорректируйте путь в соответствии с вашей системой
    
    ' Создайте пустой набор выбора
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("TEST")
    
    ' Экспортируйте текущий рисунок в файл, указанный выше.
    ThisDrawing.Export exportFile, "DXF", sset
    
End Sub