NIM001573 for No Product Found

不具合 ID 番号	NIM001573
送信されました	March 15, 2006
最終更新日	April 2, 2025
適用対象	No Product Found
見つかったバージョン	9.1
ステータス	Will Not Be Addressed

参考情報

No Public Explanation

対処法

- Right clicking the layer > Selection > Zoom to Selected still works properly.- If I export the txt to DBF and make the event layer based on the DBF, everything works fine.- If I export the txt events to a shp, everything works fine.- Calling my own "Zoom to selected" script works:Private Sub UIButtonControl1_Click()Dim pMap As IMapDim pActiveView As IActiveViewDim pMxDoc As IMxDocumentDim pTopo As ITopologicalOperatorDim pFeat As IFeatureDim pEnumFeature As IEnumFeatureDim pEnv As IEnvelopeDim pPolygon As IPolygonSet pMxDoc = ThisDocumentSet pMap = pMxDoc.FocusMapSet pActiveView = pMap' Create a new polygonSet pPolygon = New Polygon' Get the SelectionSet pEnumFeature = pMap.FeatureSelectionpEnumFeature.ResetSet pFeat = pEnumFeature.Next' Loop through the selected featuresDo While (Not pFeat Is Nothing) ' Make a copy of its geometry and get a ' handle to it in the form of an ITopologicalOperator Set pTopo = pFeat.ShapeCopy ' Union the shape with what you already have Set pPolygon = pTopo.Union(pPolygon) ' Go to the next feature Set pFeat = pEnumFeature.NextLoop' Get the envelope of the unioned resultSet pEnv = pPolygon.Envelope' Put it into the extent of the ActiveViewpActiveView.Extent = pEnv' Refresh the displaypActiveView.RefreshEnd Sub