NIM066487 for ArcGIS Engine

漏洞 ID 编号	NIM066487
已提交	March 24, 2011
上次修改时间	June 5, 2024
适用范围	ArcGIS Engine
找到的版本	10.0
编程语言	VBA
操作系统	Windows OS
操作系统版本	XP
状态	Will Not Be Addressed

附加信息

We apologize that we were unable to address this issue within the current product support cycle. If the issue continues to affect your work in a supported release, please contact Technical Support.

解决办法

IMap.ClipGeometry preceded by IMapClipOptions::esriMapClipType.esriMapClipMapExtent at ArcGIS 10Sample code:Dim mxDoc As IMxDocument = m_application.Document Dim pMap As IMap = mxDoc.FocusMap Dim cliplayer As IFeatureLayer = pMap.Layer(0) 'get the features in the clipLayer to construct a geometry to be assigned to the IMap.ClipGeometry Dim pFeatCursor As IFeatureCursor = cliplayer.Search(Nothing, False) Dim feature As IFeature = pFeatCursor.NextFeature 'loop through the features to construct a geometry to be assigned ti the IMap:ClipGeometry Dim counter As Integer = 0 Dim topoOperator As ITopologicalOperator Dim unionGeometry As IGeometry = Nothing While (feature) IsNot Nothing Dim geometry As ESRI.ArcGIS.Geometry.IGeometry = feature.Shape If (counter = 0) Then topoOperator = feature.ShapeCopy counter = counter + 1 Else unionGeometry = topoOperator.Union(feature.ShapeCopy) topoOperator = CType(unionGeometry, ITopologicalOperator) End If