PressDone Method
Description
This acts as if you had pressed the DONE button on the jog box.
Syntax
| Visual Basic |
|---|
Public Sub PressDone() |
Example
Private Sub Command5PressDone()
' This subroutine presses the DONE button
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.PressDone
End Sub
See Also