|
|
发表于 2025-5-13 14:41:04
|
显示全部楼层
proc PB_CMD__check_block_G40 { } {
#=============================================================
# 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
}
}
兄弟 可以致指点吗 有酬谢 这段代码加了不起作用 |
|
