YouTube | Facebook | Twitter  Feed

ラスター データセットへ空間参照を定義

2016/9/1 (木)

IWorkspaceFactory pWorkspaceFactory = new RasterWorkspaceFactoryClass();
IRasterWorkspace2 pRasterWorkspace = (IRasterWorkspace2)pWorkspaceFactory.OpenFromFile("D:\Workspace\Support\140400011", 0); //ラスタ データセットを含むフォルダ
 
IRasterDataset pRasterDataset  = pRasterWorkspace.OpenRasterDataset("dem5m_23ku_prj.tif"); //ラスタ データセット名
 
//事前に pSpatialReference に空間参照を作成
 
IGeoDatasetSchemaEdit pGeoDatasetSchemaEdit = (IGeoDatasetSchemaEdit )pRasterDataset;
 
pGeoDatasetSchemaEdit.AlterSpatialReference(pSpatialReference);
Sub AlterSpatialReference2RasterDataset()
 
    Dim pWorkspaceFactory As IWorkspaceFactory
    Set pWorkspaceFactory = New RasterWorkspaceFactory
     
    Dim pRasterWorkspace As IRasterWorkspace2
    Set pRasterWorkspace = pWorkspaceFactory.OpenFromFile("D:\Workspace\Support\140423-000011", 0)
     
    Dim pRasterDataset As IRasterDataset
    Set pRasterDataset = pRasterWorkspace.OpenRasterDataset("dem5m_23ku_prj.tif")
     
    Dim pSpatialReference As ISpatialReference
    Set pSpatialReference = fncSpatialReference(3098, False)    '空間参照
     
    Dim pGeoDatasetSchemaEdit As IGeoDatasetSchemaEdit
    Set pGeoDatasetSchemaEdit = pRasterDataset
     
    Call pGeoDatasetSchemaEdit.AlterSpatialReference(pSpatialReference)
 
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

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

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