|
阅读：2097回复：6
如何把Raster 转成 RasterDataSet
如何把Raster 转成 RasterDataSet
|
|
|
1楼#
发布于：2004-09-03 15:47
能具体点吗？
|
|
|
|
2楼#
发布于：2004-09-04 08:05
<P>我现在有IRaster的东东</P>
<P>向转成IRasterDataSet的东东</P> |
|
|
3楼#
发布于：2004-09-08 10:10
12
12 |
|
|
4楼#
发布于：2004-09-08 10:11
<P>我怎么看不到呀~在哪里？</P><img src="images/post/smile/dvbbs/em08.gif" />
|
|
|
5楼#
发布于：2004-09-08 11:02
<P>是不是通过irasterbandcollection</P>
|
|
|
6楼#
发布于：2004-09-09 17:31
<P>正确</P><P>
' Returns the spatial reference of the layer's data source. Only features, tins, and ' rasters supported at this time. ' TODO - support all layer types. Public Function GetLayerSourceSpatialRef(pLayer As ILayer) As ISpatialReference If (TypeOf pLayer Is IFeatureLayer) Then Dim pFLayer As IFeatureLayer Set pFLayer = pLayer Dim pGDS As IGeoDataset Set pGDS = pFLayer.FeatureClass ElseIf (TypeOf pLayer Is ITinLayer) Then Dim pTLayer As ITinLayer Set pTLayer = pLayer Set pGDS = pTLayer.Dataset ElseIf (TypeOf pLayer Is IRasterLayer) Then Dim pRLayer As IRasterLayer Set pRLayer = pLayer Dim pRasterBands As IRasterBandCollection Set pRasterBands = pRLayer.Raster Dim pRasterBand As iRasterBand Set pRasterBand = pRasterBands.Item(0) Set pGDS = pRasterBand.RasterDataset End If Set GetLayerSourceSpatialRef = pGDS.SpatialReference End Function</P> |
|
|
