XPS-Q8
Tcl Manual
DisplayErrorAndClose $socketID $code "GroupKill" $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
}
# Configure gathering parameters
set
code [
catch
"
GatheringExternalConfigurationSet
$socketID $Type1
$Type2"]
if
{$code !=
0
} {
DisplayErrorAndClose
$socketID $code "GatheringExternalConfigurationSet"
$telnetOut
return
}
# Add an event
set
code [
catch
"
EventAdd
$socketID $Positioner $Event
0
$Action
$NbPoints $Div
0
"]
if
{$code !=
0
} {
DisplayErrorAndClose
$socketID $code "EventAdd" $telnetOut
return
}
# Push on TRIG IN button
…
puts
$telnetOut "External gathering"
# Force transfer to channel’s output buffer
flush
$telnetOut
# Wait end of external gathering
while
{$Current < $NbPoints} {
# Get current acquired point number
set
code [
catch
"
GatheringExternalCurrentNumberGet
$socketID
Current Max"]
if
{$code !=
0
} {
DisplayErrorAndClose
$socketID $code
"GatheringExternalCurrentNumberGet" $telnetOut
return
}
else
{
puts
$telnetOut "current number: $Current"
# Force transfer to channel’s output buffer
flush
$telnetOut
EDH0307En1041 — 10/17
35
