Paste Example
Sub Example_Paste()
' This example pastes the second surface in the collection to
' the first surface in the collection
Dim surf As AeccSurface
Dim surfs As AeccSurfaces
Set surfs = AeccApplication.ActiveProject.Surfaces
' Get the name of the second surface in the collection
Set surf = surfs.Item(1)
Dim surfName As String
surfName = surf.Name
' Set the current surface to the first surface in the collection
Set surf = surfs.Item(0)
surfs.CurrentSurface = surf.Name
' Paste the two surfaces
surf.Paste surfName
MsgBox "The current surface name is: " & surfs.CurrentSurface & vbCrLf & _
"The pasted surface name is: " & surfName, vbInformation, "Paste Example"
End Sub