数字热本与变用
应用研究
GoogleEarth在云南玉溪石油管线测绘中的应用
李振鹏
(湖北省丹江口市电站路汉江局河勘队湖北丹江D442700)
摘要：利用GoogleEarth软件的强大功能，将形状很不规则的测图区城展绘在现势性较强的GoogleEarth影像上，能够很直观地判读测图范图，减少不必要的浪费，降低劳动强度，节约劳动时间，提高工作效率。
关键词：GoogleEarth测图范围计列线中图分类号：TV221
文献标识码：A
1.
GoogleEarth简介
文章编号：1007-9416(2012)04-0083-02
GoogleEarth(以下简称GE)是Google公司提供的虚拟地球仪软件，2005年正式向全球推出。它把卫星照片、航空照片和GIS显示在三维模型上，用户可以通过客户端软件，免费浏览全球各地的三维影像。这些数据主要来源于DigitalGlobe，EarthSat，Blue Sky，Sanborn等以卫星，航拍，GIS/GPS地理数据、空中勘测等相关业务为主的国际商业公司，其中SPOT5可以提供解析度为2.5米的影像、IKONOS可提供1米左右的影像、而快鸟就能够提供最高为0.61米的高精度影像，是全球商用的最高水平。中国大陆有高精度影像的地区有很多，几乎所有大城市都有。另外大坝、油田、桥梁，高速公路，港口码头与军用机场等也是GoogleEarth重点关照对象GoogleEarth可让您前往世界上任何地方，以查看卫星图像，
地图，地形，3D建筑物， 2、研究背景
本次测绘的玉溪～富宁成品油管道为西南管道南线的组成部分，管道经广西西部进人云南东南部，大体沿323国道方向敷设，沿途经过富宁、广南、砚山、文山、开远、蒙自，建水、通海、玉溪等9个县市。玉溪地貌错综复杂，有湖泊、平坝，高山、大川，海拔最高的是新平县的衰率山主峰，海拨3137m，最低处是元江县，海拨仅327m，管道路线玉溪末站开始主要以乡村路为主，首段属高山地形，高程逐渐升高，约 45km后高程开始陡降至通海县城；经过约100km的盘底山坡地形。
利用全野外数字化方法进行带状地形图测绘时，经常是利用测图范围的坐标来判断实地测量范围是否不足或超界。带状地形图的缺点是在生产现场很难判断测图范围的实地位置，结果往往造成测图范围不满幅需要重新补测，或者测图超出界限范围则需要删除，无论邸种情况都会浪费作业时间，增加作业成本。根据生产实践摸索，利用GoogleEarth软件上影像较强的现势性和影像判读的直观性，将玉溪成品油管道测绘的不规则的测图区域展绘在Google Earth上，然后打印影像，在实地即可以很直观地判读测图范图，节
约生产时间，提高工作效率。 3、具体思路
利用甲方提供的管道中线柱平面坐标，在南方CASS中先将中线桩从0号开始顺序连接生成中心线，命名为折线2，再沿中心线左右100米偏移生成2条折线分别命名为折线1和折线3，先对折线1从 0号柱沿顺序将折点垒标采集生成txt文本，格式如下：
A1 ,268949 ,2653363 ,0 A2 ,268734 ,2654182 ,0
接着对折线2和折线3按同样步票操作。
利用甲方提供的七参数，将北京54坐标系下的X、Y坐标文件转换为WGS84坐标系下的B、L坐标文件，将B、L坐标文件导入Excel软件中，将度分秒格式的经纬度坐标转换为以度为单位的经纬度坐标。利用Excel软件中的宏命令缩写程序代码将单元格数据读出，生成kml数据文件。
用GoogleEarth打开kml格式数据，测图区域会随着地球的旋转以多边形形式显示出来，再将测图区域放大到满足打印的尺寸即可，如图1所示。
me
图1
4、具体应用
4.1山地测量
云南玉溪石油管线大部分测区位于滇东南山区，对于山体位于测区边缘的区域，根据甲方要求，可以采用调绘的方式勾绘等高线。目前还不能直接读取卫星影像的高程信息，好在Google公司已经将 GoogleCOMAPI开放，这样我们就可以通过开放的API来对Google Earth进行操作，比如控制当前视图的高度、中心经纬度，保存当前图片（灰度图像），读取高程信息等等。信息采集实现部分代码如下：
Dim GEI As New Application GE‘GE的API接
GEI= Create Object ("Google Earth. Application GE") Dim i,j.k, n As Int 16
Dim px, py, longitude, latitude, altitude As Double Dim all text=*x坐标，Y垒标，Z值"As String
k=AxGEViewer3.Width“视图的宽度 j=AxGEViewer3.Height“视图的高度“递历整个视图获取部分坐标信息
For I = o Tok1 For n =o To j l
px取值(-1,1),Dy取值(1,1),视图中心为(px,Dy)为(0,0)
px = 2 (ik/ 2)/k py = 2 (nj/ 2)/j
Point On Terrain= app.Get Point On Terrain From Screen Coords(px, py)
Longitude = Point On Terrain. Longitude“经度 Latitude = Point On Terrain, Latitude‘纬度 Altitude = Point On Terrain Altitude '高程 Next
alltext+=longitude. To String & ","&latitude. To String&
"& altitude. To String & vb CrL f SaveInfo(alltext）“保存坐标信息 Next
运行已写好的程序，设置视场角高度为3000m，提取地形点坐标，保存为txt文件。获取的坐标信息，如图2，第一行表示点的属性，从第二行开始为点的坐标信息，第一列为经度坐标，第二列为纬度坐标，第三列为高程值，单位Ⅱ。
83