关于转速自己乱跑通过后处理提醒的设想
从10.0开始转速就会莫名其妙乱跑,貌似也没有什么好的办法通过设置解决,那么我们能不能通过后处理来提示呢?就像忘记设置转速为0提示类似。原理就是乱跑的转速一般都是随机的,一般都含有小数,例如4239,5423这种转速,如果我们通过一个判断,当转速不是10的倍数,就弹出提示。会不会有效阻止一部分出错呢?那么问题来了,10的倍数这个代码函数该怎么写?或者如何判断这个数是否为整数?希望可以有大神指点一二。现在需要一个判断数值是10的倍数的代码,或者判断数值为整数的代码。如果回头能完成这个提示代码,必定分享出来回馈论坛。 global mom_spindle_speed# 搜寻 主轴转速假设主轴转速为1234
set a
# 设定中间变量 a=1230-1234=-4
if { $a != 0 } {
MOM_abort " 警告!!!主轴转速计算错误,请重新设置转速 "
} global mom_spindle_speed
global user_sp
set user_sp
if { > 0 } {
set user_sp floor[]
} 转速变是因为你更换了刀具 why6666133 发表于 2022-5-23 20:37
转速变是因为你更换了刀具
复制上面程序下来 然后更换了刀具和修改了F值 S就会变 原因已经找到了 可是没有办法解决他 所以想通过后处理来防范下 见过 发表于 2022-5-23 22:05
global mom_spindle_speed
global user_sp
set user_sp
global mom_spindle_speed
global mom_operation_name
global user_sp
set user_sp
if { > 0 } {
set user_sp floor[]
MOM_abort "\n\n\n温馨提示您:工序:《$mom_operation_name》转速异常,请重新设定!!! \n\n\n "
}
}
添加进去发现不行 会报错 不知道是不是我哪里弄错了
我试了一下,这样可以
global mom_spindle_speed
global user_sp mom_operation_name
set user_sp
if { > 0 } {
MOM_abort "\n\n\n温馨提示您:工序: $mom_operation_name 转速异常,请重新设定!!! \n\n\n "
} 看看,学习学习
感谢各位指导帮助,现在基本完成了预期目的 提来奉上完整代码
#=============================================================
proc PB_CMD_s123 { } {
#=============================================================
global mom_spindle_speed
global mom_operation_name
global mom_spindle_rpm
global user_sp
set user_sp
if { - $user_sp> 0 } {
# set user_sp floor[]
set errmes "\n\n温馨提示您: 《$mom_operation_name》 转速S = 转速异常请检查!!!\n\n"
MOM_abort "$errmes"
}
}
global mom_spindle_speed # 搜寻 主轴转速假设主轴转速为1234 set a # 设定中间变量 a=1230-1234=-4 if { $a != 0 } {MOM_abort " 警告!!!主轴转速计算错误,请重新设置转速 " }
页:
[1]
2