RCGIS教程 第十章 邻近区.docVIP

第十章 邻近区 1 产生多边形要素的邻近区 启动地图文档\gis_ex09\ex10\ex10.mxd，该文档有四个数据框架。激活 data frame1，该数据 框架有二个图层：“道路”仅用于地图显示，不参加分析，“仓库”表示某城市中危险品的存储基地。假设，存储基地周围100米范围内不准有建筑物，也不准堆放易燃易爆物 品，周围 200 米范围内可以有一般建筑物，但是仍不能有易燃易爆物品，周围 300 米范围内不准建设住宅，以及商业、学校、办公等设施。为此需要在地图上产生 100、200、300 米的邻近 区，并计算邻近区的面积。 图 10-1 data frame1 的显示 双击 data frame1，出现 Data Frame 属性定义对话框，在 General 标签中将 Map Unites（地图单位）和 Display Units（显示单位）都从 Unknown Units（未定义）改为 Meters（米）， 按“确定”键返回。选用菜单 Tools / Buffer Wizard…，在提示下完成操作： Input Features：仓库 下拉选择图层名 Output Feature Class：d:\gis_ex10\ex10\temp\buffer1.shp 鼠标选择路径，输入文件名，save Distances 分3 次键盘输入邻近距离值，输完后按“＋”号添加 100 200 300 Buffer Unit (optional)：Default 默认 Field Name (optional)： 保持空白 Dissolve Option (optional)：ALL 重叠的多边形相互合并 按OK 键继续，软件出现处理过程提示窗，左上角出现Completed 提示，表示处理完毕，按Close 键关闭。ArcMap 按上述要求产生离开仓库多边形100、200、300 米3 圈边界组成的3 个邻近区多边形，图层名称默认为buffer1，数据存放在d:\gis_ex09\ex10\temp\buffer1.shp 。可打开图层buffer1 的特征对话框（Properties…），选用Symbology 标签，为邻近区设置合适的显示符号，还可以打开、关闭图层“仓库”，观察显示效果，可以看出，100 米邻近区没有扣除仓库多边形。 图 10-2 关闭图层“仓库”后显示邻近区 下一步为计算每个邻近区的面积，打开邻近区图层属性表“Attribute of buffer1”，选用属性 表窗口右下侧按钮 Options / Add Field…，在随后的 Field definition 对话框中定义所增加的字段： Name：Area（字段名） Type：Double（双精度浮点类型） Precision：10（字段宽度） Scale：1 （保留小数点位数） 按 OK 键返回。属性表增加了字段 Area，鼠标右键点击属性表的字段名 Area，在快捷菜单 中选择 Calculate Values…，系统提示： You are about to do a calculate outside of an edit session. This method is faster than calculating in an edit session, but there is no way to undo your results once the calculation begins. Do you wish to continue? （由于属性表处于非编辑状态，对字段进行计算的结果不能用 undo 方式还原，所 以软件提出警告。如果选用菜单 Editor / Start Editing…，使属性表处于编辑状态，再进行字段计算，就不会出现该提示，因为对计算结果不满意的话，可用菜单 Edit / Undo 还原初始值。） 对提示回答“是（Y）”，出现字段计算对话框，勾选 Advanced，在文本框内输入以下 VBA代码： dim newArea as double 声明 double 类变量 newArea 用于保存面积值，该名字可以自行取名，但要与下面的文本框输入的名字保持一致 dim pArea as IArea 声明 IArea 类变量 pArea 用于保存参与计算的字段 set pArea = [shape] 为变量 pArea 赋值 newArea = pArea.area 求解多边形面积