如何批量合并碎图斑到相邻的图斑

Posted 2023-03-10

参考技术A 方法1：
打开你要计算的shape文件的属性表,添加一个叫area的字段,然后选择area这个字段,右击,calculate,打开对话框后,点advanced的复选框,把下面的代码拷入就可以了.

Dim dblArea as double
Dim pArea as IArea
Set pArea = [shape]
dblArea = pArea.area

方法2
如果你的shape文件有真实的坐标,把shape转化为geodatabase中的feature class，面积字段就直接出来了。