This method copies the selected command or commands from the Edit window to the Clipboard.
Visual Basic |
---|
Public Sub CopySelectedToClipboard() |
This example locates the last command, makes a copy of it and then pastes it at the end of the Edit window.
Example (Visual Basic) | Copy Code |
---|---|
Sub Main Dim App As Object Set App = CreateObject ("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim Ew As Object Set Ew = Part.EditWindow Dim Cmds As Object Set Cmds = Part.Commands Cmds.SetCurrentCommand Cmds.LastCommand Ew.CommandMode Ew.SelectCommand Ew.CopySelectedToClipboard Cmds.InsertionPointAfter Cmds.LastCommand Ew.PasteFromClipboard Ew.UnselectAll End Sub |