Raster Calculator的代码实现

<TABLE  height="85%" width="95%" align=center border=0>

<TR>
<TD  vAlign=top width=* height="100%"><FONT size=3>劳烦各位高手指点一下AO开发中如何编写代码实现Spatial Analyst中的Raster Calculator的功能。</FONT>
<P><FONT size=3>望各位仁兄能不吝赐教！不胜感激！！</FONT></P></TD></TR></TABLE><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>可以调用 IMapAlgebraOp 接口</P>
<P> ESRI.ArcGIS.SpatialAnalyst.RasterMapAlgebraOpClass();<BR>            </P>

<P> Public Function Algebra(ByVal pInputRaster As IRaster) As IRaster</P>
<P>    Dim pRasModel As IRasterModel<BR>    pRasModel = New RasterModel</P>
<P><BR>    Dim pEnv As IRasterAnalysisEnvironment = pRasModel<BR>    pEnv.SetCellSize(esriRasterEnvSettingEnum.esriRasterEnvValue, your cellsize) 'attention your cellsize</P>
<P>    pRasModel.BindRaster(pInputRaster, "In")<BR>    'pRasModel.BindRaster(pInputRaster2, "In2")    ' you can bind several rasters if you need</P>
<P>    pRasModel.Script = "[Out] = Sqr([In])" </P>
<P>    pRasModel.Execute()</P>
<P>    Dim pOutRaster As IRaster<BR>    pOutRaster = pRasModel.BoundRaster("Out")</P>
<P>    pRasModel.UnbindSymbol("In")             'you should unbind the input</P>
<P>    Return pOutRaster<BR>  End Function</P>

<P>Also Your Script</P>