Задает векторный символ, которым рисуется элемент узора заливки.
Visual Basic:
Sub SetSymbol(Symbol As Symbol)
Symbol - символ из библиотеки символов слоя.
Элемент узора становится векторным: в заливке повторяется указанный символ. Шаг и сдвиг повторения задаются методами SetStepHor и SetShiftHor и парными им.
Visual Basic:
Sub FillStyleElement_SetSymbol 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Собираем стиль заливки из одного элемента Set fsd = CreateObject("ZuluLib.FillStyleDef") Set fse = CreateObject("ZuluLib.FillStyleElement") 'Символ из библиотеки символов слоя fse.SetSymbol L.Symbols.Item(0) fsd.AddElement fse 'Добавляем стиль в библиотеку стилей слоя MsgBox "Новый стиль заливки получил Id " & L.FillStyles.AddItem(fsd, -1) End SubPython:
import zulu def Macro_FillStyleElement_SetSymbol(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Собираем стиль заливки из одного элемента fsd = zulu.FillStyleDef() fse = zulu.FillStyleElement() # Символ из библиотеки символов слоя fse.SetSymbol(L.Symbols.Item(0)) fsd.AddElement(fse) # Добавляем стиль в библиотеку стилей слоя print("Новый стиль заливки получил Id", L.FillStyles.AddItem(fsd, -1))