空間查詢的實現

空間查詢是一個經常要用到的功能，它是通過給定一定的範圍，查詢得到在這個空間範圍內的要素的查詢方式。下面的代碼是在返回滑鼠點擊點周圍長寬100個地圖單位的矩形範圍內的要素。

流程說明

Dim pMap As IMap Dim pPoint As IPoint Set pMap = MapControl1.Map Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMap.Layer(1) Set pPoint = MapControl1.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y) Dim pEnv As IEnvelope Set pEnv = New Envelope Set pEnv = MapControl1.ActiveView.Extent pEnv.Height = 100 pEnv.Width = 100 pEnv.CenterAt pPoint MsgBox pPoint.x MsgBox pEnv.XMax Dim pGeometry As IGeometry Set pGeometry = pEnv Set pGeometry.SpatialReference = pMap.SpatialReference pFeatureLayer.Selectable = True Dim pSFilter As ISpatialFilter Set pSFilter = New SpatialFilter With pSFilter Set .Geometry = pGeometry .GeometryField = pFeatureLayer.FeatureClass.ShapeFieldName .SpatialRel = esriSpatialRelIntersects End With Dim b As Boolean b = pSFilter.FilterOwnsGeometry Dim pFeatureCursor As IFeatureCursor Set pFeatureCursor = pFeatureLayer.Search(pSFilter, False)