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