Метод задает тип толщины линии.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetLineWidthType(eType As eThickType)

eType - тип толщины линии:

0 - постоянная.

1 - равно общей толщине плюс.

2 - пропорциональная.

Пример:

sub LineStyleElement_SetLineWidthType
Set L = Zulu.ActiveMapDoc.Layers.Active
'создаем объект LineStyleDef
Set lsd = CreateObject ("ZuluLib.LineStyleDef")	
'создаем объект LineStyleElement
Set lse = CreateObject ("ZuluLib.LineStyleElement")
'присваиваем цвет линии объекту lse
lse.SetLineColor 255
'присваиваем тип линии объекту lse
lse.SetLineType 0
'присваиваем толщину линии объекту lse
lse.SetLineWidth 3	
'присваиваем тип толщины линии объекту lse
lse.SetLineWidthType 0	
'добавляем lse в объект lsd
lsd.AddLineElement lse	
'добавляем объект lsd в коллекцию стилей линий слоя
L.LineStyles.AddItem lsd, -1		
end sub