我要投稿
投稿指南
RSS订阅摘要：在ArcGIS中如何删除重复的点要素,第一种方法是借助ArcGIS自带的扩展，Spatial ETL Tool，该工具是FME的一个模块，通过介绍在ArcGIS环境下逐步地新建一个Spatial ETL Tool，熟悉FME这款软件的风格和主要思想。第二种方法是ArcGIS自身的工具方法，打一套组合拳，亦可以得到想要的结果。第三种方法是新近补上去的，主要思路和FME处理一样：先将点的坐标按 "x,y" 的格式写入一个字段，然后对这个字段进行重复项检查<两步都是使用field Calculate>
第三种方式是完全通过field Calculate实现：
1.新建字段[coordinate] ，类型设置为text，长度默认50，右击该字段，选择field Calculate，点advanced，填入一下表达式：
- ' ----------------------------------------
- ' @ Tsonghua 090924
- ' ----------------------------------------
- Dim Output As string
- Dim pPoint As IPoint
- Set pPoint = [Shape]
- Output = pPoint.X & "," & pPoint.Y
2.新建字段[Dup]，类型设置为 long integer，右键选field Calculate，在advanced的表达式框中填入：
- ' ----------------------------------------
- ' @ Tsonghua 090924
- ' ----------------------------------------
- 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
3.这样，只需要挑选出[Dup]字段值为1的删掉即可。
4.思考：这里可以不可以删除在一定精度下不完全重复但是靠的很近的点呢？
可以在把坐标写入字段的时候控制一下，用format 函数规定好xy坐标输出的小数位数
由于水平有限，文中所提到的不是之处，望不吝赐教^^
