09

20

空间查询的实现

空间查询是一个经常要用到的功能,它是通过给定一定的范围,查询得到在这个空间范围内的要素的查询方式。下面的代码是在返回鼠标点击点周围长宽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)



[本日志由 独木舟 于 2008-10-09 11:42 AM 编辑]
文章来自: 圣殿GIS
引用通告: 查看所有引用 | 我要引用此文章
Tags: GIS
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.