Выделяет группу объектов слоя по пересечению с контуром.

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

Selection

Синтаксис:

Visual Basic:

Sub AddByContour(Contour As Contour, Crit As eCrossCriteria)

Contour - контурный объект, задающий область выделения.

Crit - критерий пересечения объектов слоя с контуром, может принимать значения из набора eCrossCriteria.

Пример:

Dim Cells As Layer
Dim Houses As Layer
Dim Cell As Contour

Set Cells = New Layer
'Открываем слой кварталов
Cell.Open "g:\Zulu\Data\Cells.b00"

Set Houses = New Layer
'Открываем слой домов
Houses.Open "g:\Zulu\Data\Houses.b00"

'Получаем контур квартала с ID=1
Set Cell = Cells.Elements.Item(1).Contour

'Выделяем все дома, полностью попавшие в квартал
Houses.Selection.AddByContour Cell, eFullyInside