This method pastes any PC-DMIS commands stored on the Clipboard into the Edit window at the current insertion point. You should first copy the commands using CopySelectedToClipboard.
| Visual Basic |
|---|
Public Sub PasteFromClipboard() |
This example selects the current command, copies it to the Clipboard, sets the insertion point at the end of the measurement routine and then pastes the copied command.
| 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 Dim Cmd As Object Set Cmd = Commands.Item("PNT1"); Cmds.SetCurrentCommand(cmd); Ew.CommandMode Ew.SelectCommand Ew.CopySelectedToClipboard Cmds.InsertionPointAfter(Cmds.LastCommand) Ew.PasteFromClipboard End Sub | |