Очищает все вершины контура.

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

Contour

Синтаксис:

Visual Basic:

Sub Clear()

Пример:

Sub Contour_Clear
Set L = Zulu.ActiveMapDoc.Layers.Active
'в перменную ID записывает ключ выбранного объекта
ID = L.CurrentID
'получаем элемент по ключу
Set element = L.Elements.GetElement(ID)
'получаем контур выбранного элемента
Set contour = element.contour
'очищаем контур площадного объекта
contour.Clear
'добавляем новые вершины
contour.AddPoint 1, 12
contour.AddPoint 1, 32
contour.AddPoint 23, 54	
'задаем элементу новый контур
element.SetContour contour	
End Sub