分享个代码 S=0时候自动设置3000 S大于9000时候提示可选择

且行且珍惜、

给大家分享个代码都是在论坛学习才成果其实也就是把各位大神的一些代码自己试着合并了一下效果还可以、

#=============================================================
proc PB_CMD_s0_abort { } {
#=============================================================
#导入本块到proc PB_auto_tool_change里实现报警提示

global mom_spindle_speed
global mom_operation_name
if { $mom_spindle_speed == 0} {

MOM_display_message "由于工序:《$mom_operation_name》转速为0，临时设置为S3000。如不合适请自行修改。" "严重警告 仔细检查程序了？S这么重要的参数都看不见？"
set mom_spindle_speed "3000"

}

if { $mom_spindle_speed > 9000} {

  set msg [MOM_display_message 工序:《$mom_operation_name》转速大于9000，请注意！！！ 转速过高提醒！确认开启飞行模式吗？？ I 马上起飞  中止后处理]
    switch $msg {
        1 {
            set offset_flag 1
        }
        2 {
            MOM_abort 中止
        }
    }
}
  }


同时在这里求助一个代码
求一个tcl代码，意思是一个程序中有t=0 且有t≠0时，弹出报警。 最好同时指出t=0的工序名称 。单独t等于0不报警， t不等于0也不报警， 必须满足一个t等于0且有别的工序t不等于0才报警。跪谢！

且行且珍惜、

global mom_tool_number ZMLN
global mom_next_tool_number  

if { $mom_tool_number 0 !=$mom_next_tool_number
} {
set ZMLN 0
#MOM_output_literal " T00000000000000000000"
MOM_abort "  \n\n\n T=0 \n\n  提示您：\n\n 请设定刀具号 \n\n\n "

}



}

来大神给我改改还是根本就是写错了不能用啊

andy1414

這個S0還是終止後處理比較安全，強制S0設置成3000，還是危險。

andy1414

T跟H最好都需相同，養成習慣可以避免撞機。
沒T號終止後處理，提示操作程序。

車間還是要要求一下作業標準，這樣編程、操機才不會打架。

且行且珍惜、

andy1414 发表于 2020-2-9 21:13
這個S0還是終止後處理比較安全，強制S0設置成3000，還是危險。

S自动变3000的时候会给你一个弹窗提示 你需要点下确定才能生成 如果感觉3000不合适就可以自己重新去改 如果懒得改3000也可以用 就凑合用

且行且珍惜、

andy1414 发表于 2020-2-9 21:18
T跟H最好都需相同，養成習慣可以避免撞機。
沒T號終止後處理，提示操作程序。

我做了个换刀和不换刀一体的后处理 当T=0的时候正常输出程序 只不过M05 M09 M01 已经M6T0这些不会输出 适合做单刀的时候不用刀库用 当T>0的时候 就正常输出该有的全有 就可以用刀库了。因此我需要一个代码辅助一下报警 就是当一个连刀的刀库程序里 有一个程序忘记了设置是T0 会报警 这只是个辅助作用 其实 程序头有刀具列表 正常草鸡需要根据程序头的列表上刀具的 看见了T0自然会发现有问题 并不会发生什么危险 你说那个T和H相同的报警是有的

andy1414

且行且珍惜、 发表于 2020-2-9 21:46
我做了个换刀和不换刀一体的后处理 当T=0的时候正常输出程序 只不过M05 M09 M01 已经M6T0这些不会输出 适 ...

你的後處理功力不錯喔!
我們都是有刀庫的，機台讀到與主軸上相同刀號會自動跳過，所以都是輸出M6Tx，

ug1029

且行且珍惜、 发表于 2020-2-9 21:46
我做了个换刀和不换刀一体的后处理 当T=0的时候正常输出程序 只不过M05 M09 M01 已经M6T0这些不会输出 适 ...

谢谢分享！谢谢分享！

liuxuehui*

谢谢分享！谢谢分享！