Newport XPS-Q8 - Page 54

XPS-Q8 Tcl Manual
# Set jog parameters to stop the positioners => constant
# velocities are null
set code [catch "GroupJogParametersSet $socketID $Moteur 0 50 0
50"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"GroupJogParametersSet"$telnetOut
return
}
puts $telnetOut " X and Y positioners stopped"
flush $telnetOut
puts $telnetOut " X and Y positioner speed = 0 / Acceleration = 50"
flush $telnetOut
# Wait 500 milliseconds
after 500
# Disable jog mode
set code [catch "GroupJogModeDisable $socketID $Moteur"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogModeDisable"
$telnetOut
return
}
# Stop gathering and save data
set code [catch "GatheringStopAndSave $socketID"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GatheringStopAndSave"
$telnetOut
return
}
# Close socket
puts $telnetOut "End of program"
flush $telnetOut
TCP_CloseSocket $socketID
}
This is what gets displayed on a Telnet window for the above example. For details
about Telnet connections, see Section 4, Principle of a Tcl script redirection to a telnet
session.
EDH0307En1041 — 10/17
48