坐标系和投影对象

《坐标系和投影对象》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、GIS二次开发:MapObjects第4章坐标系和投影对象第4章.坐标系和投影对象一但你在应用中引入一张地图，你可就要对其进行一系列的操作。Map控件和MapObjects中的一组对象提供了许多工具，可以实现移动，放大或缩小地图的比例，地图漫游或查询等功能。在这一章，我们将探讨一些技巧，来改变正在被观查的地图区域的范围，计算地图的比例尺，从地图上得到地理坐标，将屏幕上的坐标转换为地图坐标，或是相反操作，选择或添加地物。本章的主要内容ò控件坐标和地理坐标ò地理坐标和控件坐标的转换ò投影变换ò设置地图范围和对地图比例尺的操作ò从地图上得到地理坐标本章主要对象-投影对象：¢Map

2、Objects2.GeoTransfomation投影变换¢MapObjects2.ProjCoordSys投影坐标系¢MapObjects2.Projection投影¢MapObject2.GeoCoordSys地理坐标系¢MapObjects2.Unit地图单位¢MapObjects2.Datum基准面¢MapObjects2.Spheroid椭球体¢MapObjects2.Meridian中央经线¢MapObjects2.Strings投影相关常数4.1坐标系云南大学杨克诚http://www.geo-spatial.netEmail：kecheng@yang.com

3、.cn1GIS二次开发:MapObjects第4章坐标系和投影对象4.1.1控件坐标系统(ControlCoordinate)在VisualBasic窗体中左上角为原点，水平方向为X轴，竖直方向为Y轴。VisualBasic以twips（缇）作为缺省的测量单位。你可以把窗体的单位改成点（pixels），字符长，英寸，毫米，厘米。或通过设置ScaleMode属性来实现自定义单位设置。但在我们的讨论中我们应用twips，因为它是系统默认的缺省单位。在窗体内的Map控件也有它自己的坐标系。其坐标单位与窗体坐标相同。我们将地图控件中的坐标称为"控件坐标"(ControlCoordi

4、nate)4.1.2地图坐标(MapCoordinate)图层数据地图坐标系。遵循笛卡尔坐标系原则。不同于VisualBasic窗体的控件坐标系（左上角永远是0,0）地图控件内显示的地图坐标范围，时常在应用期间改变。每次当你移动某一地图区时，Map控件内地图坐标范围就会变化。控件坐标与地图坐标间的区别：ò地图控件的控制坐标的左上角的一位置为(0，0)。地图坐标通常都有一个在地图控件区域很远以外的原点(origin)。应当记住，你的地图控件只是地图表面的一个小窗口。ò控件坐标Y轴延向下递增，而地图坐标Y轴延向上递增。ò控件坐标以twips为单位，并且与你的计算机屏幕显示的实际

5、尺寸有关。地图坐标则用云南大学杨克诚http://www.geo-spatial.netEmail：kecheng@yang.com.cn2GIS二次开发:MapObjects第4章坐标系和投影对象米，英尺等单位表示，并且与地表特征的测量有关。1Twip=1/20Point=1/1440Inch=1/567cm你可以把地图控件当作一个放大镜，在一块地域内可随意移动这个"放大镜"并增大或减小其放大倍数。地图数据中所用的坐标值通常很大，有的甚至是成百上千或数以百万计的。这些坐标值通常是以英尺或米为单位的。你地图资料的坐标，可以不同的坐标系为基础，如平面坐标系(SPCS:Stat

6、ePlaneCoordinateSystem)或麦卡脱坐标系(UTM:UniversalTransverseMercator)以及其它坐标系。如果你是从别人那里得到的资料，那么其提供者应已设置了适当的坐标系。关于坐标系更细致的讨论超出本书的范围。但是值得注意的一点是应用MapObjects时要确认图层上的资料用统一坐标系。如果不是，那些用了不同坐标系的图层是无法连接的。如果你的地图资料应用了不同坐标系，并且你想同时在MapObjects中使用它们，那么你可以用一些其它软件，如"ArcView"或"ArcGIS"来把你的地图资料转换成合适的坐标系。该过程称为"MapProje

7、ction"(投影变换”)。4.1.3地图坐标与控件坐标的转换1)方法Map.ToMapPoint(x,y):Pointx:Singley:Single实现控件坐标到地图坐标的转换Setpt1=Map1.ToMapPoint(X,Y)OptionExplicitPrivateSubForm_Load()Label3.Caption="Map1.Width="&Map1.WidthLabel4.Caption="Map1.Height="&Map1.HeightEndSubPrivateSubMap1_MouseMo