arcgis 计算面积

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

  然后，右键点击AREA字段列，然后点击CALCULATE VALUES（计算字段）

<!---选择ADVANCED（高级）－－>

把下面的代码输入，然后在最下面=处写OUTPUT。 

Dim Output as double 

Dim pArea as Iarea 

Set pArea = [shape] 

Output = pArea.area 

最后，点OK就计算出了Polygon层所有多边形的面积。