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.
| 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 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 | |