Send Topic Feedback | See Object Hierarchy Chart
PC-DMIS 2022.2 Object Library
PCDLRN ActiveX DLL > EditWindow Object : UnselectAll Method
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