NIM064998 for ArcGIS for Desktop

Bug-ID-Nummer	NIM064998
Eingereicht	February 11, 2011
Zuletzt geändert	June 5, 2024
Gilt für	ArcGIS for Desktop
Gefunden in Version	10.0
Betriebssystem	Windows OS
Betriebssystemversion	XP
Status	Will Not Be Addressed

Zusätzliche Informationen

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.

Workaround

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