ArcEngine程序设计实验报告.doc

ArcEngine程序设计实验报告 学号：200725809 姓名：阙泽胜 专业方向：GIS设计与开发 一、实验要求 利用ArcEngine组件，结合VB或.NET开发环境，设计并实现一个小型GIS系统。 1）使用控件要求：MapControl，ToolBarControl，TocControl等 2）系统的功能模块 文件：打开、保存、退出 插入：文本、点、线、面、CAD、表、指北针、图例、图片 常用工具：选择、取消选择、放大、移图 专题制图：单值渲染、分级渲染、图表渲染 视图方式：地图视图、页面视图、场景视图、Global视图、鹰眼视图（导航图） 其他功能：编辑表，查询等 3）参考数据：WorldData文件中的World.mxd、dj-lu.dwg图、如琴湖.jpg和myDB. mdb。 二、实验步骤及结果 1.搭建系统框架，实现基本功能 系统主界面采用如下架构，上面部分为菜单条和工具条，左面部分为图层管理，中间部分为MapControl控件,右边上面为鹰眼导航图，下边为选择查询功能见图2-1 图2-1 2.关键功能实现 加载CAD图 CAD文件的加载有两种形式：一是要素图层，即以矢量数据的方式加载，二是栅格图层，即以栅格数据方式加载，以作背景图层使用。如下图2-2所示： 实现思路： 窗体Load事件中加载：将地图从AxMapControl1复制到AxMapControl2。首先，将待复制的Imap图传递给pMap；其次结合FOR循环和pMap.LayerCount ，调用AxMapControl2.Map.AddLayer(pMap.Layer(i))实现图层复制. Private Sub AxMapControl1_OnMapReplaced(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMapReplacedEvent) Handles AxMapControl1.OnMapReplaced Dim pmap As IMap pmap = AxMapControl1.Map Dim i As Integer For i = pmap.LayerCount - 1 To i = 0 Step -1 AxMapControl3.Map.AddLayer(pmap.Layer(i)) Next okBtn.SetBuddyControl(AxMapControl1) AxMapControl1.Refresh() AxMapControl3.Refresh() End Sub 2）AxMapControl1_OnExtentUpdated事件，即当AxMapControl1的范围改变时的事件:1），定义Ienvelope变量目的是获取矩形坐标；2）用IgraphicsContainer定义容器，并将AxMapControl2.Map赋值给它，同时. DeleteAllElements()删除里面的所以元素；3）用IrectangleElement定义矩形元素并定义Ielement变量用QI传递矩形元素给它，并将定义好的Ienvelope变量传递给定义好的Ielement变量的.Geometry属性以便获取矩形坐标。4）用IrgbColo设置矩形的边线颜色。5）用IlineSymbol设置边线样式，包括Width，Color，Transparency。6）用IfillSymbol设置填充符号的属性，其.Colo，.OutLine有IrgbColo和IlineSymbol定义的变量得到。7）定义IfillShapeElement，用QI将Ielement定义的变量传递给它。其.Symbol属性由IfillSymbol定义的变量得到。8）使用容器的AddElement方法，传递参数为IfillShapeElement定义的变量。9）将容器QI给IactiveView定义的变量，并刷新它即可。 Private Sub AxMapControl1_OnExtentUpdated(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnExtentUpdatedEvent) Handles AxMapControl1.OnExtentUpdated Dim pEnv As IEnvelope pEnv = e.newEnve