NIM064998 for ArcGIS for Desktop

Número de ID del error	NIM064998
Enviado	February 11, 2011
Última modificación	June 5, 2024
Relacionado con	ArcGIS for Desktop
Versión encontrada	10.0
Sistema operativo	Windows OS
Versión de sistema operativo	XP
Estado	Will Not Be Addressed

Información adicional

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.

Solución alternativa

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