《（推荐）利用ArcGIS软件地理信息系统设计与实现》由会员分享，可在线阅读，更多相关《（推荐）利用ArcGIS软件地理信息系统设计与实现（19页珍藏版）》请在金锄头文库上搜索。
1、地理信息系统设计与实现 -利用ArcGIS软件 指导老师：* 实习成员： Tphxmx 实习时间：2006.7.202006.8.3目录 1.实习目的：42.实习工具和环境:43.实习内容：4一、基于ArcGIS平台的空间数据库设计与建立41新建地理数据库42图层分类设计53空间数据库逻辑结构设计54空间数据库物理结构设计与实现55空间数据库地理参考系统的设置与坐标转换方法66空间几何信息入库；实体相关属性入库61)配准62)特征提取63)属性添加6二、ArcMap定制二次开发10菜单定制：10工具条定制：101.利用Customize对话框添加工具条102.利用宏定制工具条 ToolsMac
2、ros在Macros对话框定制宏并编辑功能113.例1.简单实现放大缩小，返回上一级，标记要素，打开layer图层等134.例2.构建逻辑表达式查询空间几何对象144.实习总结：（*）.191. 实习目的： 学习ArcGIS软件及其组成部分，并能灵活应用。 学习定制自己的工作空间，高效率的完成工作。 学习利用ArcCatalog建立地理信息数据库，属性入库。 学习利用VBA环境做简单的二次开发。2. 实习工具和环境: 工具：ArcMap、ArcCatalog 硬件环境：Microsoft Windows XP Professional 20023. 实习内容：一、 基于ArcGIS平台的空间数
3、据库设计与建立实习目的：学习应用ArcGIS软件处理地理信息系统问题，学会使用ArcCatalog与ArcMap。步骤:1 新建地理数据库 在ArcCatalog中建立如下的地理数据库为个人数据库添加类和要素,属性 根据成都市交通运输图的地图的要素和类,把地图分为河流,道路,行政区域和边界,为每一个要素建一个表,选择坐标系统和添加要素的属性,结果图如下:2 图层分类设计 河流：面状河流，线状河流 行政区：行政中心，行政区域，运输中心 道路：公路，铁路3 空间数据库逻辑结构设计 面状河流：ployonriver 属性name 线状河流shpriver 属性name 行政区域xingzhengqu
4、yu属性 Maxnumber,Minnumber,name行政中心xingzhengzhongxin属性name 运输中心yunshuzhongxin属性name公路gonglu 属性 name,Maxliuliang,Minliuliang 铁路tielu 属性 name4 空间数据库物理结构设计与实现 在ArcCatalog建库,建类,建要素,选择坐标系,添加属性,过程如下所示5 空间数据库地理参考系统的设置与坐标转换方法坐标投影采用高斯投影中的北京54（17带）投影坐标系6 空间几何信息入库；实体相关属性入库 将地图导入ArcMAP中进行校正,直到在误差的可允许范围之内.导入建好的数据库
5、,然后开始分要素进行数字化,结果如图所示1) 配准:当载入bmp格式的成都市交通运输图时需要给地图进行配坐标系,选择坐标系为 高斯投影中的北京54（17带）投影坐标系,添加四个控制点保证误差在10m以内., 单击Georeferencing-rectify进行配准.2) 特征提取:载入成都市交通图.mdb数据库,利用Arcmap中的选择相应图层矢量化并保存结果(即几何信息入库)3) 属性添加: 选中点、线或面状目标，右击，选择Attributes，弹出Attributes对话框，在对话框中设置目标的属性。(注释:自动生成的属性无法修改)4) 整饰地图：标记地图要素，修改要素符号、线条，改变要素
6、颜色以便更好逼真的显示地图标记地图要素，修改要素符号、线条.右击要改变属性的图层，在Layer Properties对话框里可以全方面修改图层的显示特性还可以设置简单的查询，连接等功能，更好的表现图层的属性依比例显示地图：7.地图数字化结果:二、 ArcMap定制二次开发 目的：学习制作自己的软件界面，学习基于ArcGIS平台的GIS项目的建立与实现的流程，学习简单的ArcMap二次定制开发。 实习步骤：（1）菜单定制（2）工具条定制（3）查询菜单定制：包括汉化，屏蔽一些功能，分组，向采单条添加新的功能。 ToolsCustomize,然后右键点击要汉化的菜单名，实现上面的功能 在Custom
7、ize对话框选择相应的菜单条，把直接拖到采单条可以实现添加，拖动到Customize可以实现删除工具条定制：包括工具条的增删和用宏定制工具条1. 利用Customize对话框添加工具条2. 利用宏定制工具条 ToolsMacros在Macros对话框定制宏并编辑功能例证：一个表示放大功能的宏示例如下 通过CustomizeCommandsMacros-Commands往工具条里面添加功能，可以改变标签的符号，颜色，实现分组等功能用界面的方式实现简单查询放大，缩小和查询功能 设计步骤：ToolsCustomizeCommandsUIControls单击Create and Edit按钮进入VBA
8、编程环境 如图所示添加一个用户界面，就可以开始实现功能了3. 例1.简单实现放大缩小，返回上一级，标记要素，打开layer图层等界面如下程序如下： 实现放大功能的代码 Private Sub CommandButton1_Click()Dim pDoc As IMxDocumentDim pEnv As IEnvelopeSet pDoc = ThisDocumentSet pEnv = pDoc.ActiveView.ExtentpEnv.Expand 0.5, 0.5, TruepDoc.ActiveView.Extent = pEnvpDoc.ActiveView.RefreshEnd
9、Sub实现缩小功能的代码Private Sub CommandButton2_Click()Dim pDoc As IMxDocumentDim pEnv As IEnvelopeSet pDoc = ThisDocumentSet pEnv = pDoc.ActiveView.ExtentpEnv.Expand 2, 2, TruepDoc.ActiveView.Extent = pEnvpDoc.ActiveView.RefreshEnd Sub 返回上一层代码Private Sub CommandButton3_Click()macro:FullExtentPlusDim IntAns
10、As IntegerDim PItem As ICommandItemWith ThisDocument.CommandBarsSet PItem = .Find(ArcID.PanZoom_FullExtent)IntAns = MsgBox(Zoom to previous extent?, vbYesNo)If IntAns = vbYes ThenSet PItem = .Find(ArcID.PanZoom_ZoomToLastExtentBack)PItem.ExecuteElseEnd IfEnd WithEnd Sub 标记要素的代码Private Sub CommandBut
11、ton4_Click() Dim filePath As String filePath = c:arcgisarcexe83ArcObjects Developer KitsamplesdataUSAstates.lyr Dim pGxLayer As IGxLayer Dim pGxFile As IGxFile Set pGxLayer = New GxLayer Set pGxFile = pGxLayer pGxFile.Path = filePath Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument pMxDoc.FocusMa
12、p.AddLayer pGxLayer.LayerEnd Sub添加图层的代码Private Sub CommandButton5_Click() Dim pMxDoc As IMxDocument Dim pGraphicsContainer As IGraphicsContainer Dim pActiveView As IActiveView Dim pTextElement As ITextElement Dim pElement As IElement Set pMxDoc = Application.Document Set pGraphicsContainer = pMxDoc.
13、FocusMap Set pActiveView = pMxDoc.FocusMap Set pTextElement = New TextElement Set pElement = pTextElement pTextElement.Text = X marks the spot pElement.Geometry = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y) pGraphicsContainer.AddElement pTextElement, 0 pActiveView.PartialRefresh
14、 esriViewGraphics, Nothing, NothingEnd Sub4. 例2.构建逻辑表达式查询空间几何对象 界面设计如下： 运行界面：ButtonTextBox1按钮ComboBox1ListBox1 (一) 代码如下程序1：根据ComboBox1选择的图层不同ListBox1用ComboBox选择图层后，通过ListBox显示图层各属性，通过ListBox的Text属性来选择图层的属性。Private Sub ComboBox1_Change() 定义文档对象 Dim pMxDoc As IMxDocument 定义地图对象 Set pMxDoc = ThisDocument Dim pMap As IMap Set pMap = pMxDoc.FocusMap Dim pILa
