第六章 地图和图层.pptVIP

第六章 地图和图层 * * 课程预览 循环 获取地图和图层 通过地图和图层的循环 集合、枚举 创建新图层 层属性 为层指定数据源 一、循环 循环一个确切次数 语法： For index=start To end Next i 基于条件的循环（当后面表达式为真，进入循环） Do Until/While a condition is a true ‘Run this code Loop 小心无限循环（Ctrl+Break） Do While Not MsgBox(添加一个记录) = vbYes MsgBox 增加记录 Loop 二、对象模型概述 FeatureLayer Map MxDocument Application ArcMap UI * * Layer FeatureDataset * Geodatabase FeatureClass Table DataSet 0 .. 1 Carto 相关类说明： 1、Map组件类：是地图图层数据显示和操作的一个平台。一个Map对象，可以包含各种图层，可以是图形层，也可以是要素层，还可以是栅格图层。 2、DataSet抽象类：表示数据集，是Workspace中数据的集合。不能创建对象，从Dataset直接或间接派生出来的有GeoDataset类、Table组件类、FeatureDataset组件类、RasterDataset组件类。 3、FeatureLayer组件类 要素层，要素Feature的集合及其可视化表达。 4、要素类（FeatureClass）：它是具有行为和属性的空间实体的集合。要素类中所有的要素都有同样的属性字段。另外，它有一个专门存放几何图形的字段。 4 3 2 1 Table Shape FeatureClass 空间列：存储了空间坐标集空间信息 FeatureClass本身也是一张表，表的所有属性要素类都有，但本身也有一个空间列 三、如何获取地图 获取地图文档中的地图 获得焦点地图 Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument ‘QI Dim pMap As IMap Set pMap = pMxDoc.FocusMap 获得所有地图（IMaps） Dim pAllMaps As IMaps Set pAllMaps = pMxDoc.Maps 地图对象的集合，帮助F2 Imxdocument 四、如何遍历地图 （一）遍历Maps集合 0 1 2 Syntax Example For index = start To end process each item … Next index Map collection example … Dim intIndex As Integer Dim pMaps As IMaps Set pMaps = pMxDoc.Maps For intIndex = 0 To pMaps.Count - 1 MsgBox pMaps.Item(intIndex).Name Next intIndex 示例 （二）访问一个已知名字的地图 当一个条件为真时，永久退出循环 For Next循环：Exit For Do While和Do Until Loops：Exit Do Dim pCityMap As IMap Dim X As Integer For X = 0 To pMaps.Count - 1 If pMaps.Item(X).Name = Cities Then Set pCityMap = pMaps.Item(X) Exit For End If Next X MsgBox All Done, vbInformation 示例 五、地图中获取图层 获取地图Map或地图文档MxDocument的图层 获取所选图层（IMxDocument） Dim pLayer As ILayer Set pLayer = pMxDoc.SelectedLayer（示例程序） 获取指定图层（IMap） Dim pLayer As ILayer Set pMap = pMxDoc.FocusMap Set pLayer = pMap.Layer(3) 获得所有图层（IMap） Dim pAllLayers As IEnumLayer Set pAllLayers = pMap.Layers 枚举图层接口 示例 集