VBA之框选图形个数

最新推荐文章于 2022-05-12 13:03:48 发布

nj66666666

最新推荐文章于 2022-05-12 13:03:48 发布

阅读量803

点赞数

CC 4.0 BY-SA版权

分类专栏： ArcGIS desktop

本文链接：https://blog.youkuaiyun.com/nj198624/article/details/8160412

通过VBA在地图上使用Tool控件进行框选操作，利用IMxDocument、IRubberBand、IActiveView等接口跟踪绘制矩形框，并设置SpatialFilter筛选相交的几何对象。遍历地图图层，根据几何类型（点、线、面）统计被框选的图形数量，最后显示统计结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

准备：添加一个Tool控件，在Mousedown事件中添加以下代码：
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pEnv As IEnvelope
Dim pRubber As IRubberBand
Set pRubber = New RubberEnvelope

Dim pActiveView As IActiveView
Set pActiveView = pMxDoc.FocusMap
Set pEnv = pRubber.TrackNew(pActiveView.ScreenDisplay, Nothing)

Dim pSpatialFilter As ISpatialFilter
Set pSpatialFilter = New SpatialFilter
Set pSpatialFilter.Geometry = pEnv
pSpatialFilter.SpatialRel = esriSpatialRelIntersects

Dim lPoints As Long, lPolylines As Long, lPolygons As Long
Dim pLayer As IFeatureLayer
Dim pFeatureCursor As IFeatureCursor
Dim pFeature As IFeature
Dim i As Long
For i = 0 To pMxDoc.FocusMap.LayerCount - 1
If (TypeOf pMxDoc.FocusMap.Layer(i) Is IGeoFeatureLayer) Then
Set pLayer = pMxDoc.FocusMap.Layer(i)
pSpatialFilter.GeometryField = pLayer.FeatureClass.ShapeFieldName

Set pFeatureCursor = pLay