Newport XPS-Q8 - Page 44

XPS-Q8 Tcl Manual
DisplayErrorAndClose $socketID $code "GroupKill"
return
}
# Initialize group
set code [catch "GroupInitialize $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupInitialize"
return
}
# Home group
set code [catch "GroupHomeSearch $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupHomeSearch"
$telnetOut
return
}
# Move positioner to start position
set code [catch "GroupMoveAbsolute $socketID $Group
$StartPosition"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupMoveAbsolute"
$telnetOut
return
}
# Set position compare parameters
set code [catch "PositionerPositionCompareSet $socketID $Positioner
$MinPos $MaxPos $StepPos"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"PositionerPositionCompareSet" $telnetOut
return
}
# Enable position compare mode
set code [catch "PositionerPositionCompareEnable $socketID
$Positioner"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"PositionerPositionCompareEnable" $telnetOut
return
}
# Move positioner
set code [catch "GroupMoveRelative $socketID $Group $Displacement"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupMoveRelative"
$telnetOut
return
}
# Disable position compare mode
set code [catch "PositionerPositionCompareDisable $socketID
$Positioner"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"PositionerPositionCompareDisable" $telnetOut
return
EDH0307En1041 — 10/17
38