shapefile 计算面积地方法

打开你要计算的shape文件的属性表,添加一个叫area的字段,然后选择area这个字段,右击,calculate,打开对话框后,点advanced的复选框,把下面的代码拷入就可以了.
Dim dblArea as double
Dim pArea as IArea
Set pArea = [shape]
dblArea = pArea.area

当然还有一种方式，就是直接生成Cocerage，里面自带面积属性。