GIS應用系统中专题地图的绘制.docVIP

重 庆 交 通 大 学 学 生 实 验 报 告 实验课程名称 地理信息系统软件二次开发 开课实验室 空间数据处理实验室 学 院 河海学院 年级 2008 专业班 1 学 生 姓 名 学 号 开 课 时 间 2011 至 2012 学年第 1 学期 总 成 绩 教师签名 目录 实验五 GIS应用系统中专题地图的绘制 3 一、实验内容 3 二、实验要求 3 三、实验步骤 3 1、系统完善； 3 2、标注型专题地图 4 3、数值型专题地图 6 4、点密度专题地图 10 5、分类专题地图 13 6、图表专题地图 16 四、实验成果 19 五、实验心得 19 实验五 GIS应用系统中专题地图的绘制 一、实验内容 1、学习运用代码在所编系统中进行专题地图的绘制； 2、完善系统。 二、实验要求 1、完善系统，实现在主窗体中调用多个窗体； 2、实现标注型专题地图的制作； 3、实现数值型专题地图的制作； 4、实现点密度专题地图的制作； 5、实现分类专题地图的制作； 6、实现图表专题地图的制作。 三、实验步骤 1、系统完善； 在主界面窗体中完善系统界面，在“专题地图”菜单栏下添加标注型专题地图、数值型专题地图、点密度专题地图、分类专题地图、标图表专题地图等选项，如图5-1 图5-1（系统界面） 2、标注型专题地图 由于学生水平局限，不能够在一个窗体中完成所有功能的，因此此实验在多个窗体中实现，添加名为“frmlabelrenderer”的窗口，设置其界面。 在代码窗口中写入以下代码： Option Explicit Dim Dbl As Boolean Private Sub DrawLayer() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path + \..\ + Data If Not dc.Connect Then MsgBox 在指定的文件夹下没找到图层数据文件！ End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(行政区) layer.Symbol.Color = moOrange layer.Symbol.Size = 1 layer.Symbol.Style = 2 layer.Symbol.OutlineColor = moBrown Map1.Layers.Add layer Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(行政区) layer.Symbol.Color = moRed layer.Symbol.Size = 3 layer.Symbol.Style = 0 Set layer.Renderer = New LabelRenderer With layer.Renderer If Dbl Then .XOffsetField = 行政区 End If .Field = 行政区 .Symbol(0).Color = moBlack .Symbol(0).Font.Size = 8 End With Map1.Layers.Add layer Map1.Refresh End Sub Private Sub Form_Load() Dbl = False DrawLayer frmlabelrenderer.WindowState = 2 End Sub 运行，如图5-2， 图5-2（在主窗口中调用frmlabelrenderer窗体） 图5-3（吉林省行政区划图）（标注型） 3、数值型专题地图 添加名为“frmvaluemaprenderer”的窗口， 在代码窗口中写入以下代码： Option Explicit Dim moRecset As MapObjects2.Recordset Dim oRenderer As New MapObjects2.ValueMapRenderer Private Sub Command1_Click() frmvaluemap