一，计算面积
添加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
