GIS的积累
It is never to late to learn

导航

 
经常能看到关于在ArcMap中计算面积和长度的问题,以前在博客里面已经有一片关于这方面的文章,讲的很清楚,利用VBA来实现,这里再次说明一下计算过程,通过对广东省的地级市多变形类型shp文件计算每个地市的面积并计算多变形长度,同时贴上步骤中的图片。

1、加载数据,在图层名上单击右键,弹出菜单,选择open attribute table打开shp文件的属性表

右键菜单

属性表

2、单击属性表右下部option,在弹出菜单选择Add Field,在Add Field对话框中添加Area字段,Float类型,同样方式添加Length字段。

添加字段菜单

属性表添加了Area和Length字段

3、选择Editor编辑工具中Start Editing命令(这一步可要可不要)

4、在属性表中选择Area,右键单击弹出菜单选择Field Calculator,在Field Calculator对话框中选中Advanced,在Pre-logic VBA Script Code文本框中输入

             Dim pArea as IArea

             Set pArea=[shape]

在Area=下面的文本框输入pArea.area,然后OK,即可完成Area字段的属性值计算。

选择Field Calculator

Field Calculator对话框计算面积Area

5、属性表中选择Length,右键单击弹出菜单选择Field Calculator,在Field Calculator对话框中选中Advanced,在Pre-logic VBA Script Code文本框中输入

            Dim pCurve as ICurve

            Set pCurve=[shape]

在Length=下面的文本框输入pCurve.Length,然后OK,即可完成Length字段的属性值计算.

计算Length字段

计算结果显示

以上为本人在ArcGIS9.2Desktop版本中实现过程,特此记录下来,希望对大家有所帮助!

posted on 2010-05-14 17:26  GIS的学习  阅读(8891)  评论(0编辑  收藏  举报