求助:裁切地图

如何在图面上画个多边形对矢量以及影象进行裁切并保存裁切结果?  VBA中的代码

对于影象进行裁切,给点提示，具体怎么裁具体ao例子里有，自己去找找

先构造一个pPolygon

Dim pExtractionOp As IExtractionOp
Set pExtractionOp = New RasterExtractionOp

Set pOutputDataset = pExtractionOp.Polygon(pInputDataset, pPolygon, True) '多边形裁切

dim pRatser as IRaster

set pRaster = pOutputDataset

'设置pRatser 的采样等属性

 Dim pSaveAs As ISaveAs
 Set pSaveAs = pRaster

pSaveAs.SaveAs(sOutName, pWS, sOutFormat)  '此处保存图象

我有同样的问题，敬请高手指点！