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

関連記事

  • この記事を書いた人

羽田 康祐

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

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

© 2020 WINGFIELD since1981