GIS应用系统中坐标系的投影设置.doc

《GIS应用系统中坐标系的投影设置.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、重庆交通大学学生实验报告实验课程名称地理信息系统软件二次开发开课实验室空间数据处理实验室学院河海学院年级2008专业班1学生姓名学号08260117开课时间2011至2012学年第1学期总成绩教师签名目录实验八GIS应用系统中坐标系的投影设置一、实验内容1、学习给系统设置坐标系投影；2、完善系统。二、实验要求1、完善系统，实现在主窗体中调用多个窗体；2、实现GIS应用系统中坐标系的投影设置。三、实验步骤1、系统完善；在主界面窗体中完善系统界面，在菜单编辑器中“坐标系”菜单栏下添加“设置坐标系”选项，如图8-1，系统界面变为图8-2图8-1（编辑“坐标系”菜单）图8-2（系统界面）2、设置系

2、统坐标在主窗体的代码窗口中写入以下代码：PrivateSubMnuCoordSet_Click()DimmapPCSAsNewMapObjects2.ProjCoordSysDimmapGCSAsNewMapObjects2.GeoCoordSysDimlayerAsMapLayerDimdcAsNewDataConnectiondc.Database=App.Path+".."+"Data"Setlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("states")layer.Symbol.color=moLimeGreenM

3、ap1.Layers.Addlayer'给图层设置坐标系；Setlayer=Map1.Layers("cities")IfMap1.Layers(0).CoordinateSystem.IsProjectedThenmapPCS.Type=Map1.Layers(0).CoordinateSystem.Typelayer.CoordinateSystem=mapPCSElseIfNotMap1.Layers(0).CoordinateSystem.IsProjectedThenmapGCS.Type=Map1.Layers(0).CoordinateSystem.Type'layer.Co

4、ordinateSystem=mapGCSEndIfDimcoordSysAsObjectDimmyLayerAsMapObjects2.MapLayerSetmyLayer=Map1.Layers(0)SetcoordSys=myLayer.CoordinateSystemIfcoordSys.IsProjectedThenMsgBox"图层为投影坐标系！"ElseIfNotcoordSys.IsProjectedThenMsgBox"图层为地理坐标系！"EndIfEndSub运行，如图8-3，图8-3（加载墨西哥地图）点击坐标系，弹出对话框，显示图层为地理坐标系。图8-42、改变系统坐

5、标添加名为“Frmchangecosy”的窗口，设置其界面。在代码窗口中写入以下代码：OptionExplicitPrivateSubCommand1_Click()DimCSMapAsObjectSetCSMap=NewMapObjects2.ProjCoordSysCSMap.Type=54019'World_Winkel-ⅡMap1.CoordinateSystem=CSMap'MsgBoxCSMap.Unit.NameEndSubPrivateSubCommand2_Click()'GCS_WGS1984(4326)Map1.CoordinateSystem=Map1.Layers

6、(0).CoordinateSystem.TypeEndSubPrivateSubForm_Load()Command1.Caption="投影坐标系"Command2.Caption="地理坐标系"DrawLayer'加载世界地图；Frmchangecosy.WindowState=2EndSubSubDrawLayer()DimdcAsNewDataConnectionDimlayerAsMapObjects2.MapLayerdc.Database=App.Path+".."+"Data"IfNotdc.ConnectThenMsgBox"在指定的文件夹下没找到图层数据文件！"E

7、ndEndIfSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("country")layer.Symbol.color=moRedMap1.Layers.AddlayerSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("latlon")layer.Symbol.color=moDarkG