InsertMovePoint Method
Description
This inserts a move point as if you had pressed the Print button on your jog box or pressed CTRL + M keys in PC-DMIS.
Syntax
| Visual Basic |
|---|
Public Sub InsertMovePoint() |
Example
Private Sub CommandInsertMovePoint()
' This subroutine inserts a move point.
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.InsertMovePoint
End Sub
' This subroutine inserts a move point.
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.InsertMovePoint
End Sub
See Also