Arcgis vba 点构面 polygon ring 涉及 环 岛

第一次写VBA 有点不惯 尤其涉及对象引用要用Set  while wend 

 

一股脑全写了 面条到底  没重构 有好多重复代码

 

mxd保存了 发给人家还不知能不能复用 

 

问题是： 一堆坐标 有序 一个地块包含多个环

 

内环或洞 顺时针

岛或外环 逆时针

 

自动构建地块

 

解决思路：Excel数据 有5列 地块号，X，Y，环号列（每个地块有n个环，环号依次是1,2...n）， 内外环（0为内环，1为外环）

 

通过Arcmap Add XY Data 导入Excel生成临时图层导出生成实际图层

 

arcCatalog 创建面图层 都加载到arcmap中  ok

 

写代码 运行

 

效果：

 

 

代码如下：

'点图层在上，面图层在下 Dim pMxdoc As IMxDocument Set pMxdoc = ThisDocument Dim pMap As IMap Set pMap = pMxdoc.FocusMap Dim pPointLayer As IFeatureLayer Set pPointLayer = pMap.Layer(0) Dim pPolygonLayer As IFeatureLayer Set pPolygonLayer = pMap.Layer(1) Dim groupFieldIndex As Integer Dim ringFieldIndex As Integer Dim directionFieldIndex As Integer Dim pTable As ITable Set pTable = pPointLayer.FeatureClass groupFieldIndex = pTable.FindField("地块圈号") ringFieldIndex = pTable.FindField("环号&