YouTube | Facebook | Twitter  Feed

ラスターのコンバート

2016/9/1 (木)

Public Sub subExportRaster()
    '変換元ラスタ
    Dim pRasterLayer As IRasterLayer
    Set pRasterLayer = pMap.Layer(0)
     
    Dim pRaster As IRaster
    Set pRaster = pRasterLayer.Raster
     
    'RasterConversionOp
    Dim pConvrsionOp As IConversionOp
    Set pConvrsionOp = New RasterConversionOp
     
    Dim pRasterAnalysisEnvironment As IRasterAnalysisEnvironment
    Set pRasterAnalysisEnvironment = pConvrsionOp
     
    pRasterAnalysisEnvironment.SetCellSize esriRasterEnvValue, 1000
    pRasterAnalysisEnvironment.OutSpatialReference = pSpatialReference  '空間参照を用意
     
    'RasterWorkspaceを作成
    Dim pWorkspaceFactory As IWorkspaceFactory
    Set pWorkspaceFactory = New RasterWorkspaceFactory
     
    Dim pRasterWorkspace As IRasterWorkspace
    Set pRasterWorkspace = pWorkspaceFactory.OpenFromFile("D:\Workspace", 0)
     
    'ラスタのコンバート
    Dim pRasterDataset As IRasterDataset
    Set pRasterDataset = pConvrsionOp.ToRasterDataset(pGeoDataset, "IMAGINE Image", pRasterWorkspace, "OutRaster")
 
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

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

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