Newport XPS-Q8 - Page 41

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