This removes the last hit from the hit buffer as if you had pressed ALT and - (minus) on the keyboard in PC-DMIS.
Visual Basic |
---|
Public Sub DeletePoint() |
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 |