521abb1
路人甲
路人甲
  • 注册日期2007-07-13
  • 发帖数7
  • QQ
  • 铜币151枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1691回复:1

请大家帮忙看看我的代码

楼主#
更多 发布于:2009-06-05 08:48
<P><U><FONT color=#810081>该程序要实现的功能是:</FONT></U></P>
<P><U><FONT color=#810081>子任务1、访问pp要素类(rain.mdb/pp)并将其添加到当前地图(Map)中</FONT></U></P>
<P><U><FONT color=#810081>子任务2、对pp里面的属性字段"p19791719"(及IDW插值里面的“Z”值)进行</FONT></U></P>
<P><U><FONT color=#810081>IDW插值</FONT></U></P>
<P><U><FONT color=#810081>目前我已经实现了子任务1,代码如下:</FONT></U></P>
<P><U><FONT color=#810081>    Dim pWorkspaceFactory As IWorkspaceFactory<BR>    'Dim pWS As IWorkspace<BR>    Dim pFeatureWorkspace As IFeatureWorkspace<BR>    Dim pFeatureClass As IFeatureClass<BR>    Set pWorkspaceFactory = New AccessWorkspaceFactory<BR>    'Set pWS = pWorkspaceFactory.OpenFromFile("D:\temp\rain.mdb", 0)<BR>    Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile</FONT></U></P>
<P><U><FONT color=#810081>("D:\temp\rain.mdb", 0)<BR>    Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("pp")<BR>   'Set pFeatureWorkspace = pFeatureWorkspace.OpenFeatureClass("pp")<BR>   Dim pApp As IApplication<BR>   Dim pMxDoc As IMxDocument<BR>   Dim pFL As IFeatureLayer<BR>   Set pApp = Application<BR>   Set pMxDoc = pApp.Document<BR>   Set pFL = New FeatureLayer<BR>   Set pFL.FeatureClass = pFeatureClass<BR>   pFL.Name = pFeatureClass.AliasName<BR>   pMxDoc.FocusMap.AddLayer pFL</FONT></U></P>
<P><U><FONT color=#810081>对于子任务2,根据例子,找到如下代码(我未作任何编辑):<BR>' Create the RasterInterpolationOp object<BR>Dim pInterpolationOp As IInterpolationOp<BR>Set pInterpolationOp = New RasterInterpolationOp<BR>' Create the input point object<BR>Dim pInputDataset As IGeoDataset<BR>' Calls function to open the point dataset from disk<BR>Set pInputDataset = OpenFeatureDataset("D:\SpatialData", </FONT></U></P>
<P><U><FONT color=#810081>"inputpoints")<BR>' Define the search radius<BR>Dim pRadius As IRasterRadius<BR>Set pRadius = New RasterRadius<BR>pRadius.SetVariable 12<BR>' Create the output dataset object<BR>Dim pOutputDataset As IGeoDataset<BR>' Calls the method<BR>Set pOutputDataset = pInterpolationOp.IDW(pInputDataset, 3, pRadius)</FONT></U></P>
<P><U><FONT color=#810081>但是现在的问题是子任务1用的是pFeatureClass,而子任务2需要</FONT></U></P>
<P><U><FONT color=#810081>OpenFeatureDataset,请问这两个怎么联系呀?<BR>能完成IDW插值的代码应该怎么写呀?谢谢了</FONT></U></P>
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2009-06-12 10:31
<P>看看这个帖子</P>
<P><a href="http://www.gisempire.com/bbs/Dispbbs.asp?boardid=62;ID=68770" target="_blank" >http://www.gisempire.com/bbs/Dispbbs.asp?boardid=62;ID=68770</A></P>
<P>在论坛搜索下,有很多相关帖子</P>
GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
游客

返回顶部