NIM011634 for No Product Found

不具合 ID 番号	NIM011634
送信されました	September 12, 2007
最終更新日	June 5, 2024
適用対象	No Product Found
見つかったバージョン	9.2
プログラム言語	All
ステータス	Will Not Be Addressed

参考情報

No Public Explanation

対処法

Using IRasterProps::Extent and then saving out the resulting raster with modified extentSub ImageClip()Dim pDoc As IMxDocumentDim pEnv As IEnvelopeSet pDoc = Application.DocumentDim pMap As IMapSet pMap = pDoc.FocusMapDim pGCS As IGraphicsContainerSelectSet pGCS = pMapDim pElement As IElementSet pElement = pGCS.SelectedElement(0)Set pEnv = pElement.Geometry.EnvelopeDim pRaster As IRasterDim pLayer As ILayerSet pLayer = pDoc.FocusMap.Layer(1) ' Image is second layer in the map' If pLayer in not a raster layer then exitIf Not TypeOf pLayer Is IRasterLayer Then Exit SubDim pRasterLayer As IRasterLayerSet pRasterLayer = pLayerSet pRaster = pRasterLayer.Raster' Get Raster from RasterLayerSet pRaster = pRasterLayer.RasterDim pProp As IRasterPropsSet pProp = pRasterDim pDataSet2 As IDatasetDim pGeoDataset As IGeoDataset2' Clip the raster to the extent of the graphicpProp.Extent = pEnv' Save the clip to a new raster datasetDim pDataset As IDatasetSet pDataset = pLayerDim pWS As IWorkspaceSet pWS = pDataset.WorkspaceDim pSaveAS As ISaveAsSet pSaveAS = pProp 'pRaster'Dim pDataSet2 As IDatasetSet pDataSet2 = pSaveAS.SaveAs("test.jpg", pWS, "JPG")Set pGeoDataset = pDataSet2Debug.Print pGeoDataset.Extent.XMin & " - " & pGeoDataset.Extent.XMaxEnd Sub