DeletePoint Method

Description

This removes the last hit from the hit buffer as if you had pressed ALT and - (minus) on the keyboard in PC-DMIS.

Syntax

Visual Basic
Public Sub DeletePoint()

Example

Delete Last Hit from Hit Buffer	Copy Code
Private Sub commandDeletePoint() Dim App As PCDLRN.Application Set App = CreateObject("PCDLRN.Application") Dim Part As PCDLRN.PartProgram Set Part = App.ActivePartProgram Dim Machine As PCDLRN.Machine Set Machine = Part.ActiveMachine Machine.DeletePoint End Sub

Delete Last Hit from Hit Buffer

Copy Code

Private Sub commandDeletePoint()
Dim App As PCDLRN.Application
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As PCDLRN.PartProgram
  Set Part = App.ActivePartProgram
  Dim Machine As PCDLRN.Machine
  Set Machine = Part.ActiveMachine
  Machine.DeletePoint
End Sub