GIS二次开发8.pptVIP

GIS二次开发－使用MapObjects(L8) 2006.3.22 第4章. 坐标系和投影对象 4.2.5 投影变换 实例4.3 图层数据投影转换（练习） *地理变换对象：GeoTransformation *实例4.4 几何图形对象投影转换（基于不同的基准面） 综合练习（投影对象的使用） 本章回顾 实例4.3：图层数据投影转换 新建工程并添加所需要控件 窗体加载时，初始化CommonDialg控件 Command1.Caption = 导出 Command2.Caption = 生成Prj文件 CommonDialog1.InitDir = App.Path CommonDialog1.DialogTitle = 导出经过投影后的Shape文件 CommonDialog1.Filter = Shapefiles (.shp)|*.shp 窗体加载时，在下拉列表框中填充Mo的投影常数 Dim projCoord As New MapObjects2.Strings projCoord.PopulateWithProjectedCoordSys Dim strCS As Variant For Each strCS In projCoord Combo1.AddItem ProjCoordSys: strCS Next strCS Combo1.ListIndex = 0 窗体加载时，Map1上加载china图层，并设置图层要素符号属性 Dim dc As New MapObjects2.DataConnection Dim mlyrDD As New MapObjects2.MapLayer dc.Database = App.Path dc.Connect Set mlyrDD.GeoDataset = dc.FindGeoDataset(china) Map1.Layers.Add mlyrDD With Map1.Layers(0).Symbol .Style = moSolidFill .Color = moDarkGreen End With 导出坐标系的元数据，生成Prj文件 csDD.Type = moGeoCS_Beijing1954 Set Map1.CoordinateSystem = csDD csDD.Export App.Path \china.prj MsgBox Ok 自定义函数stripProjection Private Function stripProjection(theProjection As String) As Long Dim openB As Integer Dim codelen As Integer openB = InStr(theProjection, [) 查找字符[在字符串 theProjection中出现的位置 codelen = Len(theProjection) - openB - 1 stripProjection = CLng(Left(Right(theProjection, codelen + 1), codelen)) End Function 显示保存文件对话框，指定导出文件的位置和名称 CommonDialog1.ShowSave If CommonDialog1.FileName = Then Exit Sub 根据指定的参数，将投影后的数据写到磁盘文件中 Dim name As String name = Combo1.List(Combo1.ListIndex) coordSys.Type = Int(stripProjection(name)) newLayer.GeoDataset = Map1.Layers(0).Records.Export(CommonDialog1.FileName, coordSys) Map2将从磁盘文件中加载投影后的Shpae文件 If newLayer.Valid Then Map2.Layers.Clear Map2.Layers.Add newLayer With newLayer.Symbol .Style = moLightGrayFill .Color = moYellow End With Else MsgBox 新图层无效, vbExclamation, 错误信息 End If 地理变换对象：MapObjects2.GeoTransformation 当将矢量数据从一个坐标系