工作小记之VBA检测重叠图形

最新推荐文章于 2024-01-21 20:27:54 发布

nj66666666

最新推荐文章于 2024-01-21 20:27:54 发布

阅读量1k

点赞数

分类专栏： ArcGIS desktop

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

版权

这段VBA代码用于检测地图图层中名为'polygon'的图形是否有重叠情况。通过遍历每个图形，利用SpatialFilter判断图形是否被其他图形包含，并对重叠图形进行标记。编辑操作完成后，会显示检测到的重叠图形数量。

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

代码后续...
Sub myMacro()
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView

Dim i As Long
Dim l As Long
Dim delNo As Integer '记录检测出的图形个数
Dim m As String
Dim pFeatureLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
'Dim pFeatureBuffer As IFeatureBuffer
Dim pFeature As IFeature
Dim delFeature As IFeature
Dim pFeatCuror As IFeatureCursor

Dim pDataSet As IDataset
Dim pWorkSpaceEdit As IWorkspaceEdit

Dim ipSpaFil As ISpatialFilter
Dim pQueryFilter As IQueryFilter
Set ipSpaFil = New SpatialFilter
Set pDoc = ThisDocument
Set pMap = pDoc.FocusMap
Set pActiveView = pMap

If pMap.LayerCount = 0 Then Exit Sub

'选择图层
For i = 0 To pMap.LayerCount - 1
If pMap.Layer(i).Nam