Метод задает линейные размеры символа объекту LineStyleElement.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetSymbolSizeType(eType As eLinearSizeType)

eType - линейные размеры:

0 - постоянные.

1 - пропорциональные.

Пример:

Sub SetSymbolSizeType
Set L = Zulu.ActiveMapDoc.Layers.Active
'создаем объект LineStyleDef
Set lsd = CreateObject ("ZuluLib.LineStyleDef")	
'создаем объект LineStyleElement
Set lse = CreateObject ("ZuluLib.LineStyleElement")
'задаем символ с ID 2
lse.SetSymbol L.Symbols.ItemById(2)	
'задаем масштаб элемента
lse.SetSymbolScale 1
'задаем линейные размеры - пропорциональные.
lse.SetSymbolSizeType 1
'задаем шаг между элементами
lse.SetSymbolStep 25		
'добавляем lse в объект lsd
lsd.AddSymbolElement	 lse	
L.LineStyles.AddItem lsd, -1	
End Sub