EnumElements method (ZuluTools)

Возвращает итератор для доступа к объектам указанного слоя.

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

ZuluTools

Синтаксис:

Visual Basic:

Function EnumElements(LayerPath As String) As IZEnumElements

LayerPath - имя слоя (путь или URL).

Описание:

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

Пример:

'Просуммировать площади всех объектов слоя
Dim Tools As ZuluTools
Dim Els As IZEnumElements
Dim S As Double

S = 0

'Создаем объект ZuluTools 
Set Tools = New ZuluTools

'Получаем итератор для слоя "d:\test\voronoi.b00" 
Set Els = Tools.EnumElements("d:\test\voronoi.b00")
       
        
Els.MoveFirst

'Идем по всем объектам слоя 
Do

'Если дошли до конца, завершаем цикл 
If Els.IsEOF = True Then Exit Do

'Суммируем площадь 
S = S + Els.Area

Els.MoveNext

Loop

MsgBox "Площадь = " + Str(S)