'' Определение локальных постоянных и переменных
Const acACAD2000 As String = "AutoCAD 2000/LT2000"
Const acDwgFilter As String = "Чертеж " & acACAD2000 & " (*.dwg)|*.dwg"
Const acDxfFilter As String = acACAD2000 & " DXF (*.dxf)|*.dxf"
'' Определение параметров запроса ИМЕНИ ФАЙЛА
Dim prmtFileNameRes As PromptFileNameResult
Dim prmtFileNameOpt As PromptSaveFileOptions = New PromptSaveFileOptions("")
prmtFileNameOpt.AllowUrls = False
prmtFileNameOpt.Message = "Укажите имя экспортного файла"
prmtFileNameOpt.Filter = acDwgFilter & "|" & acDxfFilter
prmtFileNameOpt.FilterIndex = 0
prmtFileNameOpt.InitialFileName = acExportFullName
'' Запрос имени файла
prmtFileNameRes = acEditor.GetFileNameForSave(prmtFileNameOpt)