Задает масштабный коэффициент элемента узора заливки.
Visual Basic:
Sub SetScale(dScale As Double)
dScale - масштабный коэффициент.
Коэффициент, на который умножаются линейные размеры элемента при отображении. Общий масштаб всего стиля задается отдельно, свойством стиля заливки.
Visual Basic:
Sub FillStyleElement_SetScale 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Собираем стиль заливки из одного элемента Set fsd = CreateObject("ZuluLib.FillStyleDef") Set fse = CreateObject("ZuluLib.FillStyleElement") 'Штриховка рисуется линией стиля 1 fse.SetLine 1 'Масштаб элемента fse.SetScale 1.5 fsd.AddElement fse 'Добавляем стиль в библиотеку стилей слоя MsgBox "Новый стиль заливки получил Id " & L.FillStyles.AddItem(fsd, -1) End SubPython:
import zulu def Macro_FillStyleElement_SetScale(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Собираем стиль заливки из одного элемента fsd = zulu.FillStyleDef() fse = zulu.FillStyleElement() # Штриховка рисуется линией стиля 1 fse.SetLine(1) # Масштаб элемента fse.SetScale(1.5) fsd.AddElement(fse) # Добавляем стиль в библиотеку стилей слоя print("Новый стиль заливки получил Id", L.FillStyles.AddItem(fsd, -1))