Объект, содержащий описание и методы работы со стилем заливки полигонов. В частности, является элементом коллекции FillStyles стилей заливок слоя.
Входит в состав ZuluGIS 2021 Library.
PROGID:
ZuluLib.FillStyleDef
CLSID:
{12507448-11DD-4DDC-AFDA-3007DB025F4D}
Свойства
Методы
Стиль заливки собирается из элементов узора: каждый добавляется методом AddElement, а весь набор доступен через StyleElements. Готовый стиль помещается в библиотеку стилей слоя методом AddItem коллекции FillStyles и с этого момента доступен по своему Id.
Стиль можно перенести между слоями целиком: GetBLOB отдает его двоичным блоком, SetBLOB принимает обратно.
Visual Basic:
Sub FillStyleDef_cls 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Описатель стиля заливки и один элемент узора - штриховка Set fsd = CreateObject("ZuluLib.FillStyleDef") Set fse = CreateObject("ZuluLib.FillStyleElement") fse.SetLine 1 fse.SetStepHor 10.0 fse.SetStepVer 10.0 fsd.AddElement fse 'Название стиля необязательно: без него стиль именуется своим номером fsd.Name = "Штриховка 10" 'Добавляем стиль в библиотеку стилей слоя MsgBox "Новый стиль заливки получил Id " & L.FillStyles.AddItem(fsd, -1) End SubPython:
import zulu def Macro_FillStyleDef_cls(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Описатель стиля заливки и один элемент узора - штриховка fsd = zulu.FillStyleDef() fse = zulu.FillStyleElement() fse.SetLine(1) fse.SetStepHor(10.0) fse.SetStepVer(10.0) fsd.AddElement(fse) # Название стиля необязательно: без него стиль именуется своим номером fsd.Name = "Штриховка 10" # Добавляем стиль в библиотеку стилей слоя print("Новый стиль заливки получил Id", L.FillStyles.AddItem(fsd, -1))