打开你要计算的shape文件的属性表,添加一个叫area的字段,然后选择area这个字段,右击,calculate,打开对话框后,点advanced的复选框,把下面的代码拷入就可以了. Dim dblArea as double Dim pArea as IArea Set pArea = [shape] dblArea = pArea.area
当然还有一种方式,就是直接生成Cocerage,里面自带面积属性。