ArcMap在围填海项目中的典型使用：图斑占用自然岸线的统计
1、将图斑与自然岸线做相交运算
Analysis Tools\Overlay\Inersect
2、1个图斑可能与自然岸线多次相交，需要合并，这里有两个办法：
（1）利用ArcGIS
http://blog.sina.com.cn/s/blog_62b0de6c01014df3.html 在arcgis中，将属性相同且相邻的地块合并的文章里有怎么合并属性相同的记录，并统计某字段的信息
用 Arctoolbox\Data Management Tools\Generalization\dissolve 工具。
dissolve field 项选 合并字段。如果其他字段也想带到结果的话，可以在statistics field里选一下，设置好规则。
下面有个 create multipart features选项。勾选的话，合并属性相同但位置不相邻的也会合并。
在此将属性相同且相邻的地块合并，create multipart features选项，这项不勾选。
（2）将图层输出到Excel，使用VBA
'合并重叠列
Sub abc()
Dim i As Long, k As Long
Dim j As Long, m As Long
Dim sum As Double
Dim t As Long
Dim end1 As Long, rows As Long
end1 = 105'统计列
rows = 85'合并列
'重叠列,需要排序
t = 2
k = 1
i = 1
Do
If i < 2 Then
For m = 1 To end1
Sheet2.Cells(k, m) = Sheet1.Cells(i, m)
Next
i = i + 1
Else
j = i
Do
If Abs(j - i) < 0.01 Then
sum = Sheet1.Cells(i, end1)
Else
sum = sum + Sheet1.Cells(j, end1)
End If
j = j + 1
'重叠列
Loop While Abs(Sheet1.Cells(j, t) - Sheet1.Cells(i, t)) < 0.01
For m = 1 To end1 - 1
Sheet2.Cells(k, m) = Sheet1.Cells(i, m)
Next
Sheet2.Cells(k, end1) = sum
i = j
End If
k = k + 1
Loop While i < rows + 1
MsgBox "成功"
End Sub
3、将自然岸线占用统计信息链接到图斑，Join
4、将链接自然岸线信息的图斑图层输出Excel，编辑提交