найти точки внутри полигона

Question

привет всем, у меня че то не получается, надо найти объекты внутри полигона.
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView

Set pDoc = ThisDocument
Set pMap = pDoc.FocusMap
Set LayerPoint = pMap.Layer(0)
Set layerPolygon = pMap.Layer(1)

Dim pointFeatClass As IFeatureClass
Dim pointFeatLayer As IFeatureLayer
Set pointFeatLayer = LayerPoint
Set pointFeatClass = pointFeatLayer.FeatureClass

Dim PolygonLayer As IFeatureLayer
Set PolygonLayer = layerPolygon
Dim PolygonFeatureCursor As IFeatureCursor
Set PolygonFeatureCursor = PolygonLayer.Search(Nothing, False)

Dim pFeatSel As IFeatureSelection
Set pFeatSel = pointFeatLayer
pFeatSel.Clear

Dim pFeature As IFeature
Set pFeature = PolygonFeatureCursor.NextFeature 'на слое 1 объект пока :)

Dim pSpFilter As ISpatialFilter
Set pSpFilter = New SpatialFilter

    With pSpFilter
    Set .Geometry = pFeature.ShapeCopy 'геометрия полигона задаю
        .GeometryField = pointFeatClass.ShapeFieldName ' тут имя поле точечного слоя
        .SpatialRel = esriSpatialRelIntersects
      End With
 pFeatSel.SelectFeatures pSpFilter, esriSelectionResultAdd, True
pDoc.ActiveView.Refresh
у меня выделяется только 1 объект внутри слоя ...
походу 2-й вопрос, как измерять расстояние между точками, может есть готовая функция...?

Answer 1

у меня выделяется только 1 объект внутри слоя ..

pFeatSel.SelectFeatures pSpFilter, esriSelectionResultAdd, True

Посмотрите описание метода, а конкретнее - что задает последний параметр (который у вас "True").

походу 2-й вопрос, как измерять расстояние между точками, может есть готовая функция...?

Интерфейс IProximityOperator.
    
    

Answer 2

 TDenis, честно не обращал внимания, спасибо

Answer 3

Почему не используете пространственный запрос? (Geoprocessor)