Добавляет в слой текстовый объект.

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

Layer

Синтаксис:

Visual Basic:

Function AddText(X As Double, Y As Double, text As String, Style As ElemStyle) As Long

X, Y - координаты объекта.

text - текст.

Style - объект, задающий стиль отображения текствового объекта.

Описание:

В случае успеха метод возвращает ключ (ID) добавленного в слой объекта.

В противном случае метод вернет -1.

Пример VbScript:

'Запишем в активный слой текстовый объект
Sub AddText

   Set Map = Zulu.ActiveMapDoc

   Set L = Map.Layers.Active
    
   Set Style = CreateObject("ZuluLib.ElemStyle")
    
   'Высота текста на местности в сантиметрах
   Style.TextHeight = 100	
   
   'Цвет красный
    Style.FontColor = 255

   'Получаем текущий шрифт стиля
    Set Font = Style.Font

    'Изменяем
    Font.Italic = True
    Font.Bold = True
    Font.Name = "Times New Roman"

   'Назначаем текущий шрифт стиля 
    Style.Font = Font

   'Записываем в слой текстовый объект     
    L.AddText 0, 0, "АБВГД", style	    

End Sub