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
記事
