UnselectAll Method
Description
This deselects any selected commands or text in the Edit window.
Syntax
Visual Basic |
---|
Public Sub UnselectAll() |
Example
This example selects a block of commands in the Edit window from PNT2 through PNT4, copies those commands to the the clipload, and then deselects the commands.
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 Ew.Visible = True Dim StartCmd As Object Set StartCmd = Cmds.Item("PNT2") Dim EndCmd As Object Set EndCmd = Cmds.Item("PNT4") MsgBox StartCmd.ID MsgBox EndCmd.ID Ew.selectCommands StartCmd,EndCmd Ew.CopySelectedToClipBoard Ew.UnselectAll End Sub
See Also