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

関連記事

  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、青山学院大学非常勤講師を兼務。発言は個人の見解です。

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