Newport XPS-Q8 - Page 52

XPS-Q8 Tcl Manual
# Get gathering current acquired point number
set code [catch "GatheringCurrentNumberGet $socketID Num Max"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"GatheringCurrentNumberGet" $telnetOut
return
} else {
puts $telnetOut "Maximum possible number of acquisition
per type of data: $Max"
# Force transfer to channel’s output buffer
flush $telnetOut
}
# Add an event
set code [catch "EventAdd $socketID $Mot $Event 0 $Action 20000 10
0"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "EventAdd" $telnetOut
return
}
# Enable jog mode
set code [catch "GroupJogModeEnable $socketID $Moteur"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogModeEnable"
$telnetOut
return
}
# Wait 2 seconds
after 2000
puts $telnetOut "Jog moves and data acquisition"
# Force transfer to channel’s output buffer
flush $telnetOut
# Set jog parameters to move both positioners in the positive
# direction
set code [catch "GroupJogParametersSet $socketID $Moteur 5 50 5
50"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
return
}
puts $telnetOut " X and Y positioners going in positive
direction during 500 msec"
flush $telnetOut
puts $telnetOut " X and Y positioners speed = 5 / Acceleration =
50"
flush $telnetOut
# Wait 500 milliseconds
after 500
# Set jog parameters to move both positioners,
# the first in the positive direction, the second in the
# negative
EDH0307En1041 — 10/17
46