zoukankan      html  css  js  c++  java
  • 经纬度点与投影坐标系下坐标点的互相转换

    经纬度点与投影坐标系下坐标点的互相转换
    经纬度点与投影坐标系下坐标点的互相转换是AE编程中经常遇到的,下面以WGS84 和北京54为例介绍如何转换

    源码如下:
    '''
    ''' 将经纬度点转换为某投影下的坐标点
    '''

    '''
    ''' 某投影下的坐标点
    ''' 其中pPoint的X是经度,Y是纬度,单位都是度,千万不要搞错,否则转换出来的值是不对的或转换不出值
    Private Function GetProjectPoint(ByVal pPoint As IPoint) As IPoint
    Dim pSRF As ISpatialReferenceFactory = New SpatialReferenceEnvironment
    pPoint.SpatialReference = pSRF.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_WGS1984)
    pPoint.Project(pSRF.CreateProjectedCoordinateSystem(esriSRProjCSType.esriSRProjCS_Beijing1954GK_23N))
    Return pPoint
    End Function
    '''
    ''' 将点转换为经纬度点
    '''

    '''
    '''
    ''' 经纬度点
    '''
    Private Function GetGeoPoint(ByVal x As Double, ByVal y As Double) As IPoint
    Dim pProPoint As IPoint = New Point
    pProPoint.PutCoords(x, y)
    Dim pSRF As ISpatialReferenceFactory = New SpatialReferenceEnvironment
    pProPoint.SpatialReference = pSRF.CreateProjectedCoordinateSystem(esriSRProjCSType.esriSRProjCS_Beijing1954GK_23N)
    pProPoint.Project(pSRF.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_WGS1984))
    Return pProPoint
    End Function

  • 相关阅读:
    PAXOS: libevent_paxos
    R提高篇(五): 描述性统计分析
    R提高篇(四): 数据管理二
    R提高篇(三): 数据管理一
    锂电池知识
    R提高篇(二): 图形初阶
    R提高篇(一): 输入输出
    动力电池基本知识篇
    DW(六):polybase访问Azure Blob Storage
    DW(五):polybase集群安装
  • 原文地址:https://www.cnblogs.com/darejoy/p/1220897.html
Copyright © 2011-2022 走看看