Newport XPS-Q8 - Page 51

XPS-Q8 Tcl Manual
set C "XY.X.SetpointVelocity"
set D "XY.X.SetpointAcceleration"
set Event "Immediate"
set Action "GatheringRun"
set Num 0
# Open TCP socket
set code [catch "OpenConnection $TimeOut socketID"]
if {$code != 0} {
puts $telnetOut "OpenConnection failed => $code"
# Force transfer to channel’s output buffer
flush $telnetOut
} else {
# Kill group
set code [catch "GroupKill $socketID $Moteur"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code " $telnetOut
return
}
# Initialize group
set code [catch "GroupInitialize $socketID $Moteur"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupInitialize"
$telnetOut
return
}
# Home group
set code [catch "GroupHomeSearch $socketID $Moteur"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupHomeSearch"
$telnetOut
return
}
# Set gathering parameters
set code [catch "GatheringConfigurationSet $socketID $A $B $C $D"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"GatheringConfigurationSet" $telnetOut
return
}
# Get gathering parameters
set code [catch "GatheringConfigurationGet $socketID J"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"GatheringConfigurationGet" $telnetOut
return
} else {
puts $telnetOut "Data types to be gathered: $J"
# Force transfer to channel’s output buffer
flush $telnetOut
}
EDH0307En1041 — 10/17
45