Записывает данный вариант надписей в указанный слой.

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

LabelLayer

Синтаксис:

Visual Basic:

Function WriteToLayer(pLayer As Layer, Scale As Double, Flags As Long) As Long

pLayer - слой для записи

Scale - масштаб 1:1

Flags - флаги: 0x01 - создавать новый типы для текстовых объектов, 0x02 - искать среди существующих типов

Описание:

Запись надписей производится в существующий (предварительно созданный) слой, который должен быть представлен объектом Layer. Масштаб Scale применяется только для тех надписей, для которых не задан собственный масштаб BasicScale

Пример:

'Visual Basic:
'Создать слой и записать в него первый слой надписей активного слоя карты
 Dim Tools As ZuluTools 
 Set Tools = New ZuluTools
 
 'Создаем слой для записи
 Tools.LayerCreate "d:\test\labels", "labels", eMixedLayer
  
 Dim L As Layer
 Set L = New Layer
 'Открываем слой для записи
 L.Open "d:\a\labels"
 
 'Записываем первый по порядку (нумерация с нуля) слой надписей
 Dim LL As LabelLayer
 Set LL = MapCtrl1.Map.Layers.Active.LabelLayers.Item(0)

 If TypeName(LL) = "ILabelLayer" Then
    LL.WriteToLayer L, 100, 3
 End If