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

関連記事

  • この記事を書いた人

羽田 康祐

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

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

© 2020 WINGFIELD since1981