Newport XPS-Q8 - Page 34

XPS-Q8 Tcl Manual
DisplayErrorAndClose $socketID $code
"GroupMoveAbsolute" $telnetOut
return
}
# Move axis 2
set code [catch "GroupMoveAbsolute $socketID
$axis2 -1"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code
"GroupMoveAbsolute" $telnetOut
return
}
} else {
after 100
}
after 1000
}
# Wait 1 second and close socket
after 1000
puts $telnetOut "End of program"
# Force transfer to channel’s output buffer
flush $telnetOut
TCP_CloseSocket $socketID
}
This is what gets displayed on the telnet window. See Section 4, Principle of a Tcl
script redirection to a telnet session for details about telnet connections:
EDH0307En1041 — 10/17
28