Sample Automation Script 2

Sample Automation Script 2 - Assign an Operator Name to a Variable

The following script receives an operator name from the user and then inserts an COMMENT/OPER command into the Edit window for the currently open measurement routine, displaying the name of the operator.

PC-DMIS must be running with an open measurement routine in the background.

Example Title	Copy Code
Sub Main 'Get operator Name And assign it To variable: N$. N$ = InputBox$("Please enter your name:", "Operator", "", 200, 175) 'The following section adds a comment cmd to the measurement routine Dim App As Object 'Get the pointer to the PC-DMIS application Set App = CreateObject("PCDLRN.Application") Dim Part As Object 'Get the pointer to the current measurement routine Set Part = App.ActivePartProgram Dim Cmds As Object 'Get the pointer to the set of commands In the measurement routine Set Cmds = Part.Commands Dim Cmd As Object 'Add a COMMENT command Set Cmd = Cmds.Add(SET_COMMENT, True) 'Set the comment's type to REPT retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0) 'Put the string held in variable N$ into the comment's text retvaltext = Cmd.PutText(N$, COMMENT_FIELD, 1) 'Redraws the COMMENT command so that the applied changes are applied to the measurement routine Cmd.ReDraw End Sub

Example Title

Copy Code

Sub Main
'Get operator Name And assign it To variable: N$.
N$ = InputBox$("Please enter your name:", "Operator", "", 200, 175)
'The following section adds a comment cmd to the measurement routine
Dim App As Object
'Get the pointer to the PC-DMIS application
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
'Get the pointer to the current measurement routine
Set Part = App.ActivePartProgram
Dim Cmds As Object
'Get the pointer to the set of commands In the measurement routine
Set Cmds = Part.Commands
Dim Cmd As Object
'Add a COMMENT command
Set Cmd = Cmds.Add(SET_COMMENT, True)
'Set the comment's type to REPT
retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
'Put the string held in variable N$ into the comment's text
retvaltext = Cmd.PutText(N$, COMMENT_FIELD, 1)
'Redraws the COMMENT command so that the applied changes are applied to the measurement routine
Cmd.ReDraw
End Sub