RUS  ENG 

Программное добавление текста AddText

Поиск  Правила  Войти
Страницы: 1
RSS
Программное добавление текста AddText, Как программно добавлять текст
 
#1
22.03.2021 09:36:32
Здравствуйте. Подскажите, пожалуйста, или приведите пример, как программно добавить текст, используя макрос VBS. Пробую добавить через AddText, но не знаю, как использовать Style.
 
 
 
#2
22.03.2021 10:20:14
Цитата
Павел Макаров написал:
Здравствуйте. Подскажите, пожалуйста, или приведите пример, как программно добавить текст, используя макрос VBS. Пробую добавить через AddText, но не знаю, как использовать Style.
https://www.politerm.com/zuludoc/zuluax/index.html#ElemStyle_cls.html
Код
Set Map = Zulu.ActiveMapDoc

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

'Цвет красный
 Style.FontColor = 255
    
L.AddText 0, 0, "АБВГД", style
 
 
 
#3
22.03.2021 10:33:54
Цитата
Алексей Аширов написал:
Цитата
Павел Макаров написал:
Здравствуйте. Подскажите, пожалуйста, или приведите пример, как программно добавить текст, используя макрос VBS. Пробую добавить через AddText, но не знаю, как использовать Style.
https://www.politerm.com/zuludoc/zuluax/index.html#ElemStyle_cls.html
Код
 Set Map = Zulu.ActiveMapDoc

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

'Цвет красный
 Style.FontColor = 255
    
L.AddText 0, 0, "АБВГД", style
Благодарю!
 
 
 
#4
22.03.2021 10:53:15
Цитата
Алексей Аширов написал:
'Цвет красный
Style.FontColor = 255
А как назначить шрифт, например, Times New Roman? Не понял, как использовать Font (Property Font As StdFont).
 
 
 
#5
22.03.2021 11:15:31
Цитата
Павел Макаров написал:
Цитата
Алексей Аширов написал:
'Цвет красный
Style.FontColor = 255
А как назначить шрифт, например, Times New Roman? Не понял, как использовать Font (Property Font As StdFont).
https://docs.microsoft.com/en-us/windows/win32/api/ocidl/nn-ocidl-ifontdisp
Код
Sub AddText

Set Map = Zulu.ActiveMapDoc

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

'Цвет красный
 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
 
 
 
#6
22.03.2021 11:21:59
Цитата
Алексей Аширов написал:
Font.Italic = True
Font.Bold = True
Font.Name = "Times New Roman"
Спасибо. Не нашёл этого в библиотеке Zulu.
 
 
 
Страницы: 1