YouTube | Facebook | Twitter  Feed

GeocentricTranslation による地理座標系変換

2016/9/1 (木)

'GeocentricTranslationの作成
'3 パラメータ変換(地心変換)
Public Function CreateGeoTransformationTKYJGD() As IGeoTransformation
    Dim pSpatialReferenceFactory As ISpatialReferenceFactory
    Set pSpatialReferenceFactory = New SpatialReferenceEnvironment
     
    '定数による作成
    Dim pGeocentricTranslation As IGeocentricTranslation
    Set pGeocentricTranslation = pSpatialReferenceFactory.CreateGeoTransformation(esriSRGeoTransformation3Type.esriSRGeoTransformation_Tokyo_To_JGD_2000_1)
     
'    Set pGeocentricTranslation = New GeocentricTranslation
'    pGeocentricTranslation.Name = "Tokyo_To_JGD_2000_1"
'    pGeocentricTranslation.PutParameters -146.414, 507.337, 680.507
 
    Set CreateGeoTransformationTKYJGD = pGeocentricTranslation
 
End Function

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

-プログラミング, ArcGIS
-,

© 2020 WINGFIELD since1981