Задача следующая:
Есть 3 слоя
С первого берётся 1 площадной объект, он используется как
маска для пересечения со вторым слоем. То, что пересеклось с ним, попадает на
третий слой.
На третьем слое есть поле «AR» в которое записывается значение
площади всех созданных объектов.
Затем я проверяю, у какого объекта наибольшая площадь (pAreaMax).
<!--[if !supportEmptyParas]--> <!--[endif]-->
Как выбрать фичу (AreaMaxFeat as IFeature) по значению поля «AR» as Double у которой его значение
равно pAreaMax?
<!--[if !supportEmptyParas]-->
На раельном примере создаются два объекта
<!--[if !supportEmptyParas]-->
Dim pQF As
IQueryFilter
Set pQF =
New QueryFilter
pQF.WhereClause
= "AR" & " = '" & CStr(pAreaMax) &
"'"
<!--[if !supportEmptyParas]--> <!--[endif]-->
Dim
pAreaMaxFeat As IFeature
Dim pArFSS
As ISelectionSet
Dim pArFC
As IFeatureCursor
Dim pArFS
As IFeatureSelection
Set pArFS =
pTgFeatLayer
Set pArFSS
= pArFS.SelectionSet
pArFSS.Search
pQF, False, pArFC
<!--[if !supportEmptyParas]--> <!--[endif]-->
<!--[if !supportEmptyParas]--> <!--[endif]-->
If pArFC Is
Nothing Then Exit Sub
<!--[if !supportEmptyParas]--> <!--[endif]-->
Set
AreaMaxFeat = pArFC.NextFeature – «Nothing»!!!
<!--[if !supportEmptyParas]--> <!--[endif]-->
MsgBox pArFSS.Count – показывает «2» -
значит они в наборе