NIM066487 for ArcGIS Engine

Número de ID del error	NIM066487
Enviado	March 24, 2011
Última modificación	June 5, 2024
Relacionado con	ArcGIS Engine
Versión encontrada	10.0
Lenguaje del programa	VBA
Sistema operativo	Windows OS
Versión de sistema operativo	XP
Estado	Will Not Be Addressed

Información adicional

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.

Solución alternativa

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