|
MOM_force once S M_spindle X Y Z fourth_axis fifth_axis F MM1 MM2
global clamp1 clamp2
set clamp1 11
set clamp2 67
global clamp1 clamp2 mom_out_angle_pos mom_prev_out_angle_pos
#MOM_output_literal "mom_out_angle_pos(0):$mom_out_angle_pos(0)"
#MOM_output_literal "mom_prev_out_angle_pos(0):$mom_prev_out_angle_pos(0)"
if { [info exists mom_prev_out_angle_pos(0)] } {
if { [string match "$mom_out_angle_pos(0)" $mom_prev_out_angle_pos(0)] } {
set clamp1 10
#MOM_force once user_clamp
} else {
set clamp1 11
}
if { [string match "$mom_out_angle_pos(1)" $mom_prev_out_angle_pos(1)] } {
set clamp2 66
#MOM_force once user_clamp
} else {
set clamp2 67
}
}
|
|