NIM006824 for No Product Found

漏洞 ID 编号	NIM006824
已提交	February 13, 2007
上次修改时间	June 5, 2024
适用范围	No Product Found
找到的版本	9.2
编程语言	VBA
状态	Non-Reproducible

附加信息

No Public Explanation

解决办法

Using a spatial filter to perform the intersect works successfullySample workaround code provided to client:----------------------------------------------------------------------------Sub SpatialSelection()Dim pMxApp As IMxApplicationDim pMxDoc As IMxDocumentDim pMap As IMapDim pTargetLayer As IFeatureLayerDim pSelectingLayer As IFeatureLayerDim pFeatureClass As IFeatureClassDim pEnvelope As IEnvelopeDim pFeatureSelection As IFeatureSelectionDim pSpatialFilter As ISpatialFilterSet pMxApp = ApplicationSet pMxDoc = Application.DocumentSet pMap = pMxDoc.FocusMapSet pTargetLayer = pMap.Layer(0) 'Centerline_ExportSet pSelectingLayer = pMap.Layer(1) 'FireBoxArea_ExportSet pFeatureClass = pTargetLayer.FeatureClassSet pEnvelope = pSelectingLayer.AreaOfInterestSet pFeatureSelection = pTargetLayerSet pSpatialFilter = New SpatialFilterWith pSpatialFilterSet .Geometry = pEnvelope.GeometryField = pFeatureClass.ShapeFieldName.SpatialRel = esriSpatialRelIntersects.WhereClause = "SEGMENTID = '0151913' OR SEGMENTID = '0158895'"End WithpFeatureSelection.SelectFeatures pSpatialFilter, esriSelectionResultNew, FalsepMxDoc.ActiveView.PartialRefresh esriViewGeoSelection, Nothing, NothingEnd Sub