|
#=============================================================
# This custom command should return
# 1 : Output BLOCK
# 0 : No output
global mom_parent_group_name g41d
global mom_group_name
global mom_operation_name
if {$g41d == 1} {
if {[info exists mom_group_name]} {
MOM_output_to_listing_device "**************************************************************
操作提示您 : 该工序($mom_parent_group_name--->$mom_group_name--->$mom_operation_name)有半径补偿。
**************************************************************"
set msg [MOM_display_message 工序:($mom_parent_group_name--->$mom_group_name--->$mom_operation_name)有半径补偿。 后处理消息: I 继续后处理 中止后处理]
switch $msg {
1 {
set offset_flag 1
}
2 {
MOM_abort 中止
}
}
} elseif {[info exists mom_operation_name]} {
MOM_output_to_listing_device "**************************************************************
操作提示您 : 该工序($mom_operation_name)有半径补偿。
**************************************************************"
set msg [MOM_display_message 工序:($mom_operation_name)有半径补偿。 后处理消息: I 继续后处理 中止后处理]
switch $msg {
1 {
set offset_flag 1
}
2 {
MOM_abort 中止
}
}
}
return 1
} else {
return 0
}
}
|
|