NIM066487 for ArcGIS Engine

Número de ID do Erro	NIM066487
Enviado	March 24, 2011
Última Modificação	June 5, 2024
Aplica-se à	ArcGIS Engine
Versão encontrada	10.0
Idioma do programa	VBA
Sistema Operacional	Windows OS
Versão do Sistema Operacional	XP
Status	Will Not Be Addressed

Informações Adicionais

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.

Solução Provisória

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