ArcGIS教程删除重复的要素之点.docx

地理国情监测云平台 ArcGIS教程：删除重复的要素之---点 　　大家在用数据的时候，经常会碰到有重复的点。此文做了一个归总，提供给需要的人员。 　　1 使用ArcGIS工具，组合解决删除重复点 　　思路：buffer \ merge \ explodemulti-part feature \ feature to point \ spatial join 　　说明： 　　重复点，在某个精度下很相近而可以认为是同一个点的点。 　　这里所谓的删除重复点，其实是通过点做缓冲，构成面;然后把构成的面合并起来，这样，重复点 span=或者近距离点所形成的面的边界就会消融而形成一个面;然后打散，把不相邻的面分散成独立的要素;最后，生成这些面的质心点，即为所求。 　　1.1 Buffer对点层做缓冲，生成面 　　这里有个重要的参数，就是缓冲距离，怎么定呢?可以参考数据精度;还可以用 Analysis tools\ proximity\ point distince算一下各点距离，找到认为不重复的点之间的最近距离，设置的缓冲距离应该比这个距离的一半要小。 　　1.2 Merge 　　这里说的Merge是编辑下的合并功能。Editor \Starting editing \全选buffer后的面层，选择Merge，合并到一个空图班上。这一步的作用是将相邻过近，以至于重复的点形成的面的边界消掉，融合一起。 　　1.3 ExplodeMulti-part Feature 　　在Editor下拉菜单选择AdvancedEditing，调出高级编辑工具条。 　　点击一下Merge后的面层，选择ExplodeMulti-part Feature。这一步的作用是将上一步生成的不相邻不重合而被融合在一起的多部件面给炸开，打散。 　　1.4 Featureto point 　　Arctoolbox\ data management tools\features \Features to points，生成打散后面的质心点。这样生成的点层，就达到了消除重复点的目的。 　　1.5 SpatialJoin 　　这一步，主要是把原始点层含的属性给带过来。可以点击图层，右键\Join and Relates \Join\Joindata from another layer based on spatial location，也可以从工具箱里analysistools\overlay \spatial Join，位置关系匹配方式，可以选择closest。 　　2 完全通过field Calculate实现 　　思路：先将点的坐标按 x,y 的格式写入一个字段，然后对这个字段进行重复项检查。两步都是使用field Calculate，输入VBA的计算字符即可。 　　2.1 计算x,y的格式的坐标串 　　新建字段[coordinate] ，类型设置为text，长度默认50，右击该字段，选择field Calculate，点advanced，填入一下表达式： 　　Dim Output As string 　　Dim pPoint As IPoint 　　Set pPoint = [Shape] 　　Output = pPoint.X , pPoint.Y 　　2.2 找到重复的字符串 　　新建字段[Dup]，类型设置为long integer，右键选field Calculate，在advanced的表达式框中填入： 　　Static d As Object 　　Static i As Long 　　Dim iDup As Integer 　　Dim sField 　　---------------------------------------- 　　这里填写需要检查的字段名 　　sField = [coordinate] 　　---------------------------------------- 　　If (i = 0) Then 　　Set d =CreateObject(Scripting.Dictionary) 　　End If 　　If(d.Exists(CStr(sField))) Then 　　iDup = 1 　　Else 　　d.Add CStr(sField), 1 　　iDup = 0 　　End If 　　i = i + 1 　　以下是原作者对上段代码的解释： 　　这段代码的思路，就是在第一行的时候，新建了一个Scripting.Dictionary 这算是一个容器(存放二维数组)。当VBA脚本在每一行执行的时候，都会把该条记录的[sField]字段值放到容器里比较一下。如果容器里没有，那么就添加进去，与此同时，把标识符 iDup赋