ArcGIS中计算面积和长度

CKXU · 发表于 2011-4-23 09:09

本帖最后由 yczcc 于 2011-4-23 18:20 编辑

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