Newport XPS-Q8 - Page 49

XPS-Q8 Tcl Manual
set code [catch "GroupInitialize $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupInitialize"
$telnetOut
return
}
# Home group
set code [catch "GroupHomeSearch $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupHomeSearch"
$telnetOut
return
}
# Enable jog mode (group must be ready)
set code [catch "GroupJogModeEnable $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogModeEnable"
$telnetOut
return
}
# Set jog parameters to move a positioner => constant velocity is
not null
set code [catch "GroupJogParametersSet $socketID $Positioner
$Velocity1 $Acceleration"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
return
}
# Wait 3 seconds
after 3000
# Set jog parameters to move the positioner in the reverse sense
# => constant velocity is not null
set code [catch "GroupJogParametersSet $socketID $Positioner
$Velocity2 $Acceleration"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
return
}
# Wait 3 seconds
after 3000
# Set jog parameters to stop a positioner => constant velocity is
null
set code [catch "GroupJogParametersSet $socketID $Positioner 0
$Acceleration"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
EDH0307En1041 — 10/17
43