首页>国外GIS软件>ESRI ArcGIS应用与开发>[求助]shp文件上如何选择地图要素并显示属性信息呢？
回复
« 返回列表
默认头像
aryanan
路人甲
路人甲
  • 注册日期2007-08-05
  • 发帖数17
  • QQ
  • 铜币186枚
  • 威望0点
  • 贡献值0点
  • 银元0个
写私信
阅读：1481回复：1

[求助]shp文件上如何选择地图要素并显示属性信息呢？

楼主#
更多 发布于：2007-08-17 22:18
请问各位同仁，如何在运行后显示的shp文件里选择地图要素并显示属性信息呢？谢谢！！
喜欢0 评分0
举报 回复
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
写私信
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于：2007-08-21 13:35

利用空间查询查询到要素，然后显示要素的属性字段信息就好了

内容摘要
空间查询是一个经常要用到的功能，它是通过给定一定的范围，查询得到在这个空间范围内的要素的查询方式。下面的代码是在返回鼠标点击点周围长宽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)
GIS麦田守望者，期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像

关于GIS帝国论坛

©2003-2015 phpwind.com 赣ICP备15002320号-1

返回顶部