第10章 坐标和坐标系.docVIP

第10章　坐标和坐标系 10.1　坐标系对象 10.1.1坐标系对象概述 MO提供了一系列坐标系对象（也称投影对象）来控制和操作地图的坐标系统，如ProjCoordSys（投影坐标系统）、GeocoordSys（地理坐标系统）、Datum（基准面）、PrimeMeridian（本初子午线）、Projection（投影）、Spheroid（地球椭圆体）、Unit（单位）、GeoTransformation（地理坐标转换）等。 这些对象部可以在程序中定义，如： Dim PCS as New MapObjects2.ProjCorrdSys 投影对象之间的部分关系如图10.1所示。如一个Datum对象有Spheroid属性，Geographic Coordinate System（GeocoordSys）对象有Datum和PrimeMeridian属性。 在MO中，坐标系的产生和转换是用POSC((Petrochemical Open Software Consortium)模型来管理的。这个模型定义了不同的测量和绘图坐标系与它们之间的关系。在POSC模型下每个对象都有一个惟一的坐标系编码(用Type属性操作)，它定义了该对象在POSC模型下的坐标系(CoordinateSystem)属性。 设置和改变对象的CoordinateSystem属性，会改变图形的外观，但是ImageLayer对象不受其影响。 GeoTransformation对象可以转换MapLayer的投影的方式，也可以转换单个图形对象。 10.1.2地理坐标系和投影坐标系 在MO中，每个Map或MapLayer对象都和一个坐标系对象发生联系，这个坐标系对象可以是地理坐标系(GeoCoordSys)对象，也可以是投影坐标系(ProjCoordSys)对象。 地理坐标系(GeoCoordSys)是MO中最常用的坐标系对象，它用经纬度描述地面上的位置。描述位置时，用Datum属性设置其基准面，用PrimeMeridian属性设置其本初子午线，用Unit属性设置其坐标系单位。 标准的地理坐标系的改变可以通过用Type属性来设置GeographicCoordSys常数来完成，参见附录D.8。通过设置其Datum、PrimeMeridian和Unit属性，也可以设置自定义的地理坐标系。 投影坐标系(ProjCoordSys)用x和y坐标来描述地面上的位置，它用地球椭圆体(Spheroid)模拟地球，用GeoCoordSys属性表示投影坐标系的来源，用Projection属性表示投影的计算方法，用Unit属性设置其坐标系单位。 标准的投影坐标系的改变可以通过用Type属性来设置ProjectedCoordSys常数来完成，参见附录D.7。通过设置其ProjCoordSys、Projection和Unit属性，也可以设置自定义的投影坐标系。 地理坐标系和投影坐标系可以用在MapLayer图层和Map上。通过使用Transform方法，还可以改变单个图形对象的坐标系。 以下程序用IsProjected属性判断图层采用的坐标系。 （工程Chapter1001－Form01） Option Explicit Private Sub Command1_Click() Dim coordSys As Object Dim myLayer As MapObjects2.MapLayer Set myLayer = Map1.Layers(0) Set coordSys = myLayer.CoordinateSystem If coordSys.IsProjected Then MsgBox 图层为投影坐标系！ ElseIf Not coordSys.IsProjected Then MsgBox 图层为地理坐标系！ End If End Sub Private Sub Form_Load() Command1.Caption = 显示信息 DrawLayer End Sub Private Sub DrawLayer() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path + \..\ + Mexico If Not dc.Connect Then MsgBox 在指定的文件夹下没找到图层数据文件！ End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(states) layer.Symb