默认头像
路人甲
路人甲
  • 注册日期2004-11-12
  • 发帖数18
  • QQ
  • 铜币203枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1476回复:1

大家来看看,ArcEngine开发,我这两个函数怎么老出错。

楼主#
更多 发布于:2007-07-23 15:27

功能:在一个要素类中查找与直线pLine相交的要素

Public Function findCrossPointInFeatureClass(ByVal pFeatureLayer As IFeatureLayer, ByVal pLine As ILine) As Integer
       Dim pGeo as IGeometry
       pGeo=pLine

       Dim pFilter As ISpatialFilter
       Dim pFeatureSelection As IFeatureSelection

       pFeatureSelection = pFeatureLayer

       pFilter = New SpatialFilter '过滤算子
       With pFilter
           .Geometry = pGeo
           .SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects
       End With

       pFeatureSelection.SelectFeatures(pFilter, esriSelectionResultEnum.esriSelectionResultNew, False)'在这个地方出错
   End Function

Public Function findCrossPointInFeatureClass(ByVal pFeatureClass As IFeatureClass, ByVal pLine As ILine) As Integer
       Dim pGeo as IGeometry
       pGeo=pLine

       Dim pFilter As ISpatialFilter
       pFilter = New SpatialFilter '过滤算子
       With pFilter
           .Geometry = pGeo
           .SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects
       End With

       pFeatureSelection.SelectFeatures(pFilter, esriSelectionResultEnum.esriSelectionResultNew, False)

       Dim pFeatureCursor As IFeatureCursor
       Dim count As Integer = 0
       Dim pFeature As IFeature

       pFeatureCursor = pFeatureClass.Search(pFilter, False) '在这个地方出错

   End Function

喜欢0 评分0
默认头像
管理员
管理员
  • 注册日期2003-07-25
  • 发帖数5917
  • QQ14265545
  • 铜币29669枚
  • 威望217点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • GIS帝国铁杆
1楼#
发布于:2007-07-23 23:06
esriSpatialRelEnum下面还有几种不同的选择你可以尝试
没钱又丑,农村户口。头可断,发型一定不能乱。 邮箱:gisempire@qq.com
举报 回复(0) 喜欢(0)     评分
默认头像

返回顶部