31 lines
648 B
Tcl
31 lines
648 B
Tcl
proc move_away_from_switch {axis} {
|
|
puts "NOTE Move slit forward 10mm if it is against the reverse limit switch
|
|
IF ((_TS${axis} & 4) = 0)
|
|
SH${axis}
|
|
PR${axis}=200000
|
|
BG${axis}
|
|
ENDIF"
|
|
}
|
|
|
|
puts "#HOME"
|
|
foreach {axis} {E F G H} {
|
|
move_away_from_switch $axis
|
|
}
|
|
puts "AM"
|
|
puts "NOTE Drive all slits into reverse limit switch"
|
|
puts "SH
|
|
JG ,,,,-25000,-25000,-25000,-25000
|
|
BGEFGH
|
|
AM"
|
|
puts "NOTE Move away from switches by 2mm and drive back slowly"
|
|
puts "PR ,,,,40000,40000,40000,40000
|
|
JG ,,,,-5000,-5000,-5000,-5000
|
|
BGEFGH
|
|
AM"
|
|
puts "NOTE Move forward from switch by 2mm and set zero"
|
|
puts "PR ,,,,40000,40000,40000,40000
|
|
BGEFGH
|
|
AM
|
|
DP ,,,,0,0,0,0"
|
|
puts "EN"
|