|
借花献佛
#=============================================================
proc PB_CMD_F250_abort { } {
#=============================================================
#F250 报警 该定制命令放在---刀轨开始
global feed
global mom_operation_name
global mom_tool_name
if {$feed == 250} {
set mdm [MOM_display_message 操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】进给F250.可能为软件默认值,是否继续后处理? 警告 W 继续 中止]
}
if {[info exists mdm] && $mdm == 2} {
MOM_abort "\n\n操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】进给 为 软件默认 F250. , 请修改后再后处理!\n\n"
}
}
#=============================================================
proc PB_CMD_S0_abort { } {
#=============================================================
#S0 报警
#该定制命令放在---刀轨开始
global mom_spindle_speed
global mom_operation_name
global mom_tool_name
if { $mom_spindle_speed == 0 } {
MOM_output_to_listing_device "**************************************************************
操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】的主轴转数为S0,请修改后再后处理!
**************************************************************"
MOM_display_message 操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】的主轴转数为S0,请修改后再后处理!
set errmes "\n\n【刀具:$mom_tool_name】在操作【$mom_operation_name】的主轴转数为S0,请修改后再后处理! \n\n"
MOM_abort "$errmes"
}
}
#=============================================================
proc PB_CMD_S1061_abort { } {
#=============================================================
#S1061 报警
#该定制命令放在---刀轨开始
global mom_spindle_speed
global mom_operation_name
global mom_tool_name
if { $mom_spindle_speed == 1061 } {
MOM_output_to_listing_device "**************************************************************
操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】的主轴转数为软件默认S1061,请修改后再后处理!
**************************************************************"
MOM_display_message 操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】的主轴转数为软件默认S1061,请修改后再后处理!
set errmes "\n\n 【刀具:$mom_tool_name】在操作【$mom_operation_name】的主轴转数为软件默认S1061,请修改后再后处理! \n\n"
MOM_abort "$errmes"
}
}
#=============================================================
proc PB_CMD_T0_abort { } {
#=============================================================
#T0 报警
#该定制命令放在---刀轨开始
global mom_tool_number
global mom_operation_name
global mom_tool_name
if { $mom_tool_number == 0 } {
MOM_output_to_listing_device "**************************************************************
操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】的刀号是T0,请修改后再后处理!
**************************************************************"
MOM_display_message 操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】的刀号是T0,请修改后再后处理!
set errmes "\n\n 【刀具:$mom_tool_name】在操作【$mom_operation_name】的刀号是T0,请修改后再后处理! \n\n"
MOM_abort "$errmes"
}
}
#=============================================================
proc PB_CMD_T_H_abort { } {
#=============================================================
#刀具号T与刀具补偿号H不一致 报警
#该定制命令放在---刀轨开始
global mom_spindle_speed
global mom_tool_adjust_register
global mom_tool_number
global mom_operation_name
global mom_tool_name
if { $mom_tool_number != "$mom_tool_adjust_register" } {
set mdm [MOM_display_message 操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】刀具号T与刀具补偿号H不一致,继续请【确定】! 警告 W 确定 取消]
}
if {[info exists mdm] && $mdm == 2} {
MOM_abort "\n\n操作提示您:【刀具:$mom_tool_name】在操作【$mom_operation_name】刀具号与刀具补偿号H不一致,请修改后再后处理!\n\n"
}
}
|
|