GIS应用系统中专题地图的绘制.doc

《GIS应用系统中专题地图的绘制.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、重庆交通大学学生实验报告实验课程名称地理信息系统软件二次开发开课实验室空间数据处理实验室学院河海学院年级2008专业班1学生姓名学号08260117开课时间2011至2012学年第1学期总成绩教师签名20目录实验五GIS应用系统中专题地图的绘制3一、实验内容3二、实验要求3三、实验步骤31、系统完善；32、标注型专题地图43、数值型专题地图64、点密度专题地图105、分类专题地图136、图表专题地图16四、实验成果19五、实验心得1920实验五GIS应用系统中专题地图的绘制一、实验内容1、学习运用代码在所编系统中进行专题地图的绘制；2、完善系统。二、实验要求1、完善系

2、统，实现在主窗体中调用多个窗体；2、实现标注型专题地图的制作；3、实现数值型专题地图的制作；4、实现点密度专题地图的制作；5、实现分类专题地图的制作；6、实现图表专题地图的制作。三、实验步骤1、系统完善；在主界面窗体中完善系统界面，在“专题地图”菜单栏下添加标注型专题地图、数值型专题地图、点密度专题地图、分类专题地图、标图表专题地图等选项，如图5-120图5-1（系统界面）2、标注型专题地图由于学生水平局限，不能够在一个窗体中完成所有功能的，因此此实验在多个窗体中实现，添加名为“frmlabelrenderer”的窗口，设置其界面。在代码窗口中写入以下代码：Optio

3、nExplicitDimDblAsBooleanPrivateSubDrawLayer()DimdcAsNewDataConnectionDimlayerAsMapLayerdc.Database=App.Path+".."+"Data"IfNotdc.ConnectThenMsgBox"在指定的文件夹下没找到图层数据文件！"EndEndIfSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("行政区")layer.Symbol.Color=moOrange20layer.Symbol.Size=1l

4、ayer.Symbol.Style=2layer.Symbol.OutlineColor=moBrownMap1.Layers.AddlayerSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("行政区")layer.Symbol.Color=moRedlayer.Symbol.Size=3layer.Symbol.Style=0Setlayer.Renderer=NewLabelRendererWithlayer.RendererIfDblThen.XOffsetField="行政区"EndIf.Fi

5、eld="行政区".Symbol(0).Color=moBlack.Symbol(0).Font.Size=8EndWithMap1.Layers.AddlayerMap1.RefreshEndSubPrivateSubForm_Load()Dbl=FalseDrawLayerfrmlabelrenderer.WindowState=2EndSub运行，如图5-2，20图5-2（在主窗口中调用frmlabelrenderer窗体）图5-3（吉林省行政区划图）（标注型）3、数值型专题地图添加名为“frmvaluemaprenderer”的窗口，在代码窗口中写入以下代码：

6、OptionExplicitDimmoRecsetAsMapObjects2.RecordsetDimoRendererAsNewMapObjects2.ValueMapRenderer20PrivateSubCommand1_Click()frmvaluemaprenderer.WindowState=2DimstrsAsNewMapObjects2.StringsDimsFldnameAsStringDimoSymAsNewMapObjects2.SymbolDimiAsInteger'初始化SetmoRecset=Map1.Layers(0).RecordssF

7、ldname="行政区"DoWhileNotmoRecset.EOFstrs.AddmoRecset(sFldname).ValueAsStringmoRecset.MoveNextLoop'设置渲染参数；SetMap1.Layers(0).Renderer=oRendereroRenderer.Field=sFldnameoRenderer.ValueCount=strs.Count'-3'设置缺省值oRenderer.UseDefault=TrueSetoSym=oRenderer.DefaultSymboloSym.Color=moPaleYe