利用ARCENGINE生成等值线

<P>我想利用ARCENGINE生成等值线,在生成等值线前需要先生成表面(surface),利用IInterpolationOp.IDW方法生成表面,可是在这个地方怎么设置Z字段和网格单位大小啊,请教!</P>

<P>已成功,谢谢</P><P>'--------------------生成等值线--------------------------
Public Sub Contour()</P><P>  Dim pInterpolationOp As IInterpolationOp
  Set pInterpolationOp = New RasterInterpolationOp
  
  ' Create the input point object
  Dim pInputDataset As IGeoDataset
  Dim pFeatLayer As IFeatureLayer
  ' Calls function to open the point dataset from disk
  Set pFeatLayer = basSub.FindLayerName(frmMain.MapControl1, "水准测量点")
  Set pInputDataset = pFeatLayer
  ' Define the search radius
  Dim pRadius As IRasterRadius
  Set pRadius = New RasterRadius
  pRadius.SetVariable 12
  
  'Create FeatureClassDescriptor using a value field
   Dim pFCDescriptor As IFeatureClassDescriptor
   Set pFCDescriptor = New FeatureClassDescriptor
   pFCDescriptor.Create pFeatLayer.FeatureClass, Nothing, "沉降量"
    
    'Set cellsize for output raster in the environment
    Dim dCellSize As Double
    dCellSize = 200
    
    Dim pEnv As IRasterAnalysisEnvironment
    Set pEnv = pInterpolationOp
    pEnv.SetCellSize esriRasterEnvValue, dCellSize
    
    'Perform the interpolation
    Dim pOutRaster As IRaster
    Set pOutRaster = pInterpolationOp.IDW(pFCDescriptor, 2, pRadius)
        
    'Add output into ArcMap as a raster layer
    Dim pOutRasLayer As IRasterLayer
    Set pOutRasLayer = New RasterLayer
    pOutRasLayer.CreateFromRaster pOutRaster
    frmMain.MapControl1.AddLayer pOutRasLayer
End Sub</P>

<img src="images/post/smile/dvbbs/em01.gif" />

支持！

先锋，支持！

好人，多谢！<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em05.gif" />

<TABLE fixed; WORD-BREAK: break-all" height="85%" width="95%" align=center border=0>

<TR>
<TD 9pt; LINE-HEIGHT: 12pt" vAlign=top width=* height="100%"><IMG src="http://www.gisempire.com/bbs/Skins/Default/topicface/face1.gif"> <B></B><BR>
<P>大侠能不能把生成等值线的代码 共享或发给我啊！</P>
<P>我现在在用vb+arcengine做等值线的功能 </P>
<P>遇到一些困难</P>
<P>谢谢先</P>
<P>generalgz@yahoo.com.cn</P></TD></TR></TABLE>

<P>呵呵，太好了，我也正在做等值线的生成，不过总实现不了。</P>
<P>大侠，帮帮忙，把代码传我份。</P>
<P>谢谢了</P>
<P>xuwenxiang_2004@163.com</P>

正在研究这个问题，谢谢大家分享了

要引用什么啊？？或者是要用什么部件啊？？新手请教！！谢谢