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上級技術者、Esri認定インストラクター、測量士補、潜水士、元PADIダイブマスター、四アマ。GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

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

© 2021 WINGFIELD since1981