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

関連記事

  • この記事を書いた人

羽田 康祐

好きな地図投影法 はパース・クィンカンシャル図法とマクブライド・トーマス平極四次曲線図法。広島市出身。GIS上級技術者、Esri認定インストラクター、測量士補、潜水士、元PADIダイブマスター、四アマ。GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

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

© 2021 WINGFIELD since1981