global text bd
global text dz
global text cc
set text [ MOM_display_message 选择系统 I "发那科" "三菱" "终止后处理" ]
switch $text {
1 { set dz dz }
2 { set dz zd }
3 { MOM_abort }
}
set text [ MOM_display_message 是否开启备刀 I "是 有备刀" "否 钻攻机" "终止后处理" ]
switch $text {
1 { set bd bd }
2 { set bd db }
3 { MOM_abort }
}
set text [ MOM_display_message 冷却液方式 I "开水 M08" "关 钻攻机" "开气 M07" ]
switch $text {
1 { set cc 8 }
2 { MOM_display_address M_coolant }
3 { set cc 7 }
}