ラスター レイヤーから RasterDataset を取得

Dim pDataset As IDataset
Set pDataset = pRasterLayer
 
Dim pRasterWorkspace As IRasterWorkspace
Set pRasterWorkspace = pDataset.Workspace
 
Dim pRasterDataset As IRasterDataset
Set pRasterDataset = pRasterWorkspace.OpenRasterDataset(pDataset.Name)
 
 
'Nameオブジェクトを使用する方法
Dim pRasterLayer As IRasterLayer
Set pRasterLayer = pLayer
 
Dim pDataset As IDataset
Set pDataset = pRasterLayer
 
Dim pName As IName
Set pName = pDataset.FullName
 
Dim pRasterDataset As IRasterDataset
Set pRasterDataset = pName.Open
 
'----------------------
 
Dim pRasterAnalysisProps As IRasterAnalysisProps
Set pRasterAnalysisProps = pRaster
  
Dim pRasterDataset As IRasterDataset
Set pRasterDataset = pRasterAnalysisProps.RasterDataset