Экспортирует слои карты в файл в формате DXF AutoCAD.

Применяется к:

MapDoc

Синтаксис:

Visual Basic:

Function ExportToDxf(DxfName As String, CfgName As String, Flags As Long) As Boolean

DxfName - имя файла для записи.

CfgName - имя файла конфигурации для экспорта. При отсутствии файла конфигурации следует задать пустую строку.

Flags:

• 0 - экспортировать все объекты;

• 1 - экспортировать только выделенные объекты;

  	Предупреждение
  	Если группы выделенных объектов не указано, то ничего не будет экспортировано.

• 2 - экспортировать, используя стили текущих тематических раскрасок;

• 4 - экспортировать невидимые объекты и надписи;

• 8 - экспортировать бирки (надписи).

Пример:

Sub exportMapDocToDxf
    Set out = Zulu.OpenOutputChannel("")
	out.Clear
	out.Put "Export Current Map to DXF" + CHR(10)

	Set map = Zulu.ActiveMapDoc
    
	flags = 0
	flags = flags Or 1 'Только выделенные объекты. Если группы выделенных объектов не указано, то ничего не будет экспортировано.
	flags = flags Or 2 'Брать стиль текущих тематических раскрасок
	flags = flags Or 4 'Экспортировать невидимые объекты и надписи
	flags = flags Or 8 'Экспортировать бирки
	
    if(map.ExportToDxf ("D:\Test\Dxf\out.dxf", "D:\Test\Dxf\Shablon_TC.cfg", flags)=True)Then
		out.Put "OK" + CHR(10)	
    Else
		out.Put "Fail" + CHR(10)
    End If

End sub