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

  • 相关阅读:
    Python类知识点
    安装psycopg2时出错:Error: pg_config executable not found.
    top命令
    Ubuntu18.10创建软件图标
    初始化Redis密码
    Ubuntu修改root密码,ssh 允许root用户登录
    Flask_Migrate数据库迁移
    Ubuntu18.04 systemd开机自启
    dnspython
    记一次Celery的仇
  • 原文地址:https://www.cnblogs.com/darejoy/p/1220897.html
Copyright © 2011-2022 走看看