arcgis计算面积与长度

一，计算面积

添加AREA字段，然后右键点击字段列，然后点击CALCULATE VALUES; --->选择ADVANCED－－》把下面的代码输入，然后在最下面=处写OUTPUT。点击OK就OK了。

Dim Output as double
Dim pArea as Iarea
Set pArea = [shape]
Output = pArea.area

二。计算长度

同上添加LENGTH字段，然后右键点击字段列，然后点击CALCULATE VALUES; --->选择ADVANCED－－》把下面的代码输入，然后在最下面=处写OUTPUT。点击OK就OK了。

Dim Output as double
Dim pCurve as ICurve
Set pCurve = [shape]
Output = pCurve.Length