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.

Example (Visual Basic)

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