关于转速自己乱跑通过后处理提醒的设想

且行且珍惜、

从10.0开始转速就会莫名其妙乱跑，貌似也没有什么好的办法通过设置解决，那么我们能不能通过后处理来提示呢？就像忘记设置转速为0提示类似。原理就是乱跑的转速一般都是随机的，一般都含有小数，例如4239，5423这种转速，如果我们通过一个判断，当转速不是10的倍数，就弹出提示。会不会有效阻止一部分出错呢？那么问题来了，10的倍数这个代码函数该怎么写？或者如何判断这个数是否为整数？希望可以有大神指点一二。现在需要一个判断数值是10的倍数的代码，或者判断数值为整数的代码。如果回头能完成这个提示代码，必定分享出来回馈论坛。

wencfeng

global mom_spindle_speed
# 搜寻 主轴转速  假设主轴转速为1234
set a [expr round($mom_spindle_speed/10)*10 - $mom_spindle_speed]
# 设定中间变量 a  =1230-1234=-4
if { $a != 0 } {

MOM_abort " 警告!!!主轴转速计算错误，请重新设置转速 "
}

见过

global mom_spindle_speed
global user_sp
set user_sp [expr floor($mom_spindle_speed / 100) ]
if { [expr $mom_spindle_speed / 100 - $user_sp] > 0 } {
        set user_sp floor[[expr $mom_spindle_speed / 100 ]]
}

why6666133

转速变是因为你更换了刀具

且行且珍惜、

why6666133 发表于 2022-5-23 20:37
转速变是因为你更换了刀具

复制上面程序下来 然后更换了刀具和修改了F值 S就会变 原因已经找到了 可是没有办法解决他 所以想通过后处理来防范下

且行且珍惜、

见过 发表于 2022-5-23 22:05
global mom_spindle_speed
global user_sp
set user_sp [expr floor($mom_spindle_speed / 100) ]

global mom_spindle_speed
global mom_operation_name
global user_sp
set user_sp [expr floor($mom_spindle_speed / 100) ]
if { [expr $mom_spindle_speed / 100 - $user_sp] > 0 } {
        set user_sp floor[[expr $mom_spindle_speed / 100 ]]


  MOM_abort "  \n\n\n温馨提示您：工序:《$mom_operation_name》转速异常，请重新设定!!! \n\n\n "

  }
    }
添加进去发现不行 会报错 不知道是不是我哪里弄错了

liweixu51

我试了一下，这样可以
global mom_spindle_speed
global user_sp mom_operation_name
set user_sp [expr floor($mom_spindle_speed / 10) ]
if { [expr $mom_spindle_speed / 10 - $user_sp] > 0 } {
MOM_abort "  \n\n\n温馨提示您：工序: $mom_operation_name 转速异常，请重新设定!!! \n\n\n "
}

1063356816

看看，学习学习

且行且珍惜、

感谢各位指导帮助，现在基本完成了预期目的 提来奉上完整代码
#=============================================================
proc PB_CMD_s123 { } {
#=============================================================

global mom_spindle_speed
global mom_operation_name
global mom_spindle_rpm
global user_sp
set user_sp [expr floor($mom_spindle_speed / 50) ]
if { [expr $mom_spindle_speed / 50] - $user_sp  > 0 } {
       # set user_sp floor[[expr $mom_spindle_speed / 10 ]]


set errmes "\n\n温馨提示您： 《$mom_operation_name》 转速S = [format "%.0f" $mom_spindle_rpm]  转速异常  请检查！！！\n\n"
     MOM_abort "$errmes"

  }
    }
   
   

wencfeng

global mom_spindle_speed # 搜寻 主轴转速  假设主轴转速为1234 set a [expr round($mom_spindle_speed/10)*10 - $mom_spindle_speed] # 设定中间变量 a  =1230-1234=-4 if { $a != 0 } {  MOM_abort " 警告!!!主轴转速计算错误，请重新设置转速 " }