Newport XPS-Q8 - Page 58

XPS-Q8 Tcl Manual
# Kill group
set code [catch "GroupKill $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupKill"
return
}
# Enable backlach compensation
#################################################################
# CAUTION : #
# Group must be “not initialized” and Backlash>0 in the #
# “stages.ini” file #
#################################################################
set code [catch "PositionerBacklashEnable $socketID $Positioner"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"PositionerBacklashEnable" $telnetOut
return
}
# Initialize group
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
}
# Modify Backlash value
# Caution : Backlash > 0 in the file “stages.ini”
set code [catch "PositionerBacklashSet $socketID $Positioner
$BacklashValue"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "PositionerBacklashSet"
$telnetOut
return
}
# Move group in positive direction
set code [catch "GroupMoveRelative $socketID $Group $Displacement"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupMoveRelative"
$telnetOut
return
}
# Move group in negative direction
set code [catch "GroupMoveRelative $socketID $Group -
$Displacement”]
if {$code != 0} {
EDH0307En1041 — 10/17
52