二次开发第4章坐标系和投影对象

第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的投影DimprojCoordAsNewMapObjects2.StringsprojCoord.PopulateWithProjectedCoordSyDimstrCSAsVariantForEachstrCSInprojCoord Combo1.AddItem"ProjCoordSys:"&strCSNextstrCSCombo1.ListIndex= DimdcAsNewMapObjects2.D onnectionDimmlyrDDAsNewMapObjects2.Ma yerdc.Database=App.Pathdc.Connect SetmlyrDD.GeoDataset=dc.FindGeoDataset(" Map1.Layers.AddmlyrDDWithMap1.Layers(0).Symbol.Style=moSolidFill.Color=moDarkGreenEndWith导出坐标系的元数据，生成Prj文csDD.Type=moGeoCS_Beijing1954SetMap1.CoordinateSystem=csDDcsDD.ExportApp.Path&"\ .prj"MsgBox"Ok" .prj文件的内自定义函数PrivateFunctionstripProjection(theProjectionAsString)AsLongDimopenBAsIntegerDimcodelenAsIntegeropenB=InStr(theProjection,"[")'查找字符[theProjectioncodelen=Len(theProjection)-openB-stripProjection=CLng(Left(Right(theProjection,codelen+1),codelen))EndFunction例如字符串abcde[12345Len(theProjection)=12openB=6codelen=126-1=5框”，指导出文件的位和名CommonDialog1.ShowSaveCommonDialog1.ShowSave IfCommonDialog1.FileName=""ThenExitSub DimnameAsString name=Combo1.List(Combo1.ListIndex) coordSys.Type=Int(stripProjection(name)) newLayer.GeoDataset=Map1.Layers(0).Records.Export(CommonDialog1.FileName,coordSys)IfnewLayer.ValidThenMap2.Layers.ClearMap2.Layers.AddnewLayerWithnewLayer.Symbol.Style=moLightGrayFill.Color=moYellowEndWithElse MsgBox"新图层无效",vbExclamation,"错EndIf地理变换对象使用GeoTransformation对象来实属性Direction:DirectionConstantFromGeoCoordSys:GeoCoordSysToGeoCoordSys:GeoCoordSysMethod:MethodConstantName:StringGeographicTransformationConstantsSecondDirection:DirectionConstantSecondName:StringSecondType:GeographicTransformationConstantsMapObjects实现了符合工业化标准可以通过将属性Type设置为一个合适 数定义了一系列的基准面到WGS1984基准面的变换方法。通过设置Direction属性，变换可以定义成向前及相反的方向。因而变换也 为从WGS1984转到其它可*实例4.4几何图形对象投影转（基于不同的基准面 转换7参数来定义，转换通过相似变换方法实现，具 1999年 息系统标准化指南》第76至86页。假设Xg、Yg、Zg表示WGS84地心坐标系的三坐标轴，Xt、Yt、Zt表示当地坐标系的三坐标轴，那么自定义基准面的7参数分别为：地心坐标系平行时，分别绕Xt、Yt、Zt的旋转角；关键PrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSetfromPt=Map1.ToMapPoint(X, SettoPt=transformPoint(moDirection_Reverse,fromPt)curMap=Map1.TrackingLayer.Refresh(True)Map2.TrackingLayer.Refresh(True)End关键代PrivateFunctiontransformPoint(directionAsMapObjects2.DirectionConstants,ptInAsMapObjects2.Point)AsPoint DimmyGTAsNewMapObjects2.GeoTransformation DimgcsBJ54AsNewMapObjects2.GeoCoordSys DimgcsWGS84AsNewMapObjects2.GeoCoordSysgcsBJ54.Type=moGeoCS_Beijing1954gcsWGS84.Type=关键代码分 初始化地理变换对象 SetmyGT.FromGeoCoordSys=gcsBJ54SetmyGT.ToGeoCoordSys=gcsWGS84myGT.direction=moDirection_ForwardmyGT.Name="BJ54_To_WGS1984"myGT.Method=moMethod_PositionVectorIfMap1.CoordinateSystem.IsProjectedThenmap1Projected=TrueElsemap1Projected=FalseEndIf关键代码设设定基准面转换参数（7参数myGT.SetParametermoParm_DeltaX,24myGT.SetParametermoParm_DeltaY,-123myGT.SetParametermoParm_DeltaZ,-94myGT.SetParametermoParm_RotationX,-myGT.SetParametermoParm_RotationY,-myGT.SetParametermoParm_RotationZ,-myGT.SetParametermoParm_DeltaScale,关键代码分实实现基于不同基准…Ifdirection=moDirection_Forward…ElseIfdirection=moDirection_ReverseIfmap2ProjectedmyGT.ToGeoCoordSys=myGT.ToGeoCoordSys=Map2.CoordinateSystemEndIfmap1ProjectedmyGT.FromGeoCoordSys=myGT.FromGeoCoordSys=Map1.CoordinateSystemEnd SettransformPoint=Map2.CoordinateSystem.Transform(Map1.CoordinateSystem,fromPt,,myGT)End本章回导出为新的数据文件(Shpe文件) 第5章数据查询、编数据查询对象 对象值描0值描0无357日8点线点0没有编辑操作在执行12常 值描 通过相关dBASE 强制相关dBASE文件中 的字符被处理为OEM字 强制相关dBASE文件中 的字符被处理为ANSI字 强制相关dBASE 的字符被处理为ISO Connected:BooleanConnectError:ConnectionErrorConstantsConnection:Long器的连接，Connection属性返回值为零.Database:StringPassword:StringServer:StringUser:StringGeoDatasets:GeoDatasetsVersion:StringAddGeoDataset(name,shapeType,TableDesc,HasZ,HasM):GeoDatasetFindGeoDataset(name:String):GeoDatasetDeleteGeoDataset(name:String):BooleanFindCoordinateSystem(name:String):ObjectName:坐标系投影元数据文件(.prj), onnection的DatabaseFindArcInfoCoordinateSystem(name:String):ObjectName:ARC/INFO投影文件的名字Connect:BooleanDisconnectClearConnectErrorReturnVersions:String地理数据集对地理数据集集合：(GeoDatasets yer对象相关联。这些地理数据可以Shape文ARC/INFOSDEVPFStreetMapData(要 HasMeasure:返回一个值以确定地理数据集对象是否具HasZ:PrivateSub'Setupthefilebrowsingcontrols.File1.Pattern="*.shp"Drive1.Drive="d:\"Dir1.Path="d:\"File1.Pa