打开要计算的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,面积字段就直接出来了。
方法3
在ArcGIS9.2中可以直接计算面积,打开图层属性表,右键放面积的字段,单击菜单中的"Calculate Geometry"按提示操作就可以了。