ahshegis
路人甲
路人甲
  • 注册日期2004-10-22
  • 发帖数181
  • QQ
  • 铜币847枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:2083回复:3

求助:裁切地图

楼主#
更多 发布于:2006-01-10 15:42
<P>如何在图面上画个多边形对矢量以及影象进行裁切并保存裁切结果?  VBA中的代码</P><img src="images/post/smile/dvbbs/em12.gif" />
喜欢0 评分0
zhousky
论坛版主
论坛版主
  • 注册日期2003-08-01
  • 发帖数281
  • QQ
  • 铜币1027枚
  • 威望3点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2006-01-13 08:47
clip方法,不知行不行?
不要看我噢
举报 回复(0) 喜欢(0)     评分
SunnyHuang
路人甲
路人甲
  • 注册日期2004-11-03
  • 发帖数6
  • QQ
  • 铜币176枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2006-05-17 11:08
<P>我有同样的问题,敬请高手指点!<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em08.gif"></P>
举报 回复(0) 喜欢(0)     评分
MAPGIS65
路人甲
路人甲
  • 注册日期2003-11-01
  • 发帖数139
  • QQ
  • 铜币522枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2006-05-17 17:22
<P>对于影象进行裁切,给点提示,具体怎么裁具体ao例子里有,自己去找找</P>
<P>先构造一个pPolygon</P>
<P>Dim pExtractionOp As IExtractionOp<BR>Set pExtractionOp = New RasterExtractionOp</P>
<P>Set pOutputDataset = pExtractionOp.Polygon(pInputDataset, pPolygon, True) '多边形裁切</P>
<P>dim pRatser as IRaster</P>
<P>set pRaster = pOutputDataset </P>
<P>'设置pRatser 的采样等属性</P>
<P>  Dim pSaveAs As ISaveAs<BR>  Set pSaveAs = pRaster </P>
<P>pSaveAs.SaveAs(sOutName, pWS, sOutFormat)  '此处保存图象</P>
人生在世,及时行乐 QQ:35291086 E-Mail:hushuyong@163.com
举报 回复(0) 喜欢(0)     评分
游客

返回顶部