NIM064998 for ArcGIS for Desktop

不具合 ID 番号	NIM064998
送信されました	February 11, 2011
最終更新日	June 5, 2024
適用対象	ArcGIS for Desktop
見つかったバージョン	10.0
オペレーティングシステム	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.

対処法

Use UID object to access to the existing paste dialog. This approach does not really use ArcObject to create a Paste dialog, but call the existing paste tool from the tool bar. Using following code we can get the name of feature layer in which the features are copied while editing.Public Sub CopyPaste ()Dim pEditor As IEditorDim pID As New UIDDim bInOperation As Boolean'On Error GoTo ErrorHandler'Get a reference to the editor extensionpID = "esriEditor.Editor"Set pEditor = Application.FindExtensionByCLSID(pID)'Create an edit operation enabling undo for the operationpEditor.StartOperationbInOperation = True'Make sure something has been selectedIf pEditor.SelectionCount = 0 Then Exit SubApplication.Document.CommandBars.Find(arcid.Edit_Copy).ExecuteApplication.Document.CommandBars.Find(arcid.Edit_Paste).ExecuteFindLayerName'Stop the Edit OperationpEditor.StopOperation "Move Selection"bInOperation = FalseEnd Sub Public Sub FindLayerName() Dim pApp As IApplication Dim LayerName As String Dim SubType As Long Dim pID As New UID pID = "esriEditor.Editor" Set pApp = Application Set m_pEditor = pApp.FindExtensionByCLSID(pID) Dim pMap As IMap Dim pDoc As IMxDocument Dim pSel As ISelection Dim pEnumFeature As IEnumFeature Dim pFeat As IFeature Set pDoc = Application.Document Set pMap = pDoc.FocusMap Set pEnumFeature = pMap.FeatureSelection Set pFeat = pEnumFeature.Next Debug.Print pFeat.Class.AliasName End Sub