谢谢分享学习一下
本帖最后由 snowa* 于 2023-8-2 11:24 编辑
支持楼主，论坛就需要这样分享技术的朋友。
大家一起交流促进，
比起那些加密后卖后处理的强多了。
发现一个BUG
初始移动不应该加判断条件
应该无条件指定 mom_group_name 为0
否则正常程序组或者单个程序会出错
本帖最后由 暮光追不者 于 2023-8-2 14:09 编辑
12楼的网友反馈单条输出会报警，而且不支持分组编程的，所以修改了一下代码。后续还有问题可以回复。
2023-8-2
#=============================================================
proc PB_CMD__check_block_stop { } {
#=============================================================
#输出条件
global mom_group_name
if {} {
return 1
} else {
return 0
}
}#=============================================================
proc PB_CMD_M001 { } {
#=============================================================
#放初始移动
global mom_group_name
if {} {
set mom_group_name 0
if {} {
set mom_group_name 0
}
}
}#=============================================================
proc PB_CMD_M002 { } {
#=============================================================
#放第一次移动
global mom_group_name
if {} {
MOM_output_literal "M05"
MOM_output_literal "M09"
PB_auto_tool_change ;#自动换刀块
set mom_group_name 0
}
}
网友反馈单条输出会报警，而且不支持分组编程的，所以修改了一下代码，新代码在13楼。
本帖最后由 snowa* 于 2023-8-2 22:24 编辑
我在楼主基础上改了一下
#放在换刀M6之前
global mom_group_name
if { && } {
MOM_output_literal "G91 G28 Y0.0"
MOM_output_literal "M00"
unset mom_group_name
} else {
MOM_output_literal "M01"
}
#放第一次移动
global mom_group_name
if {! } {
set mom_group_name 0
}
if { || } {
PB_auto_tool_change ;#自动换刀块
}
加M00可以强制换刀加输出M00。加M01可以强制换刀加输出M01
一举解决了我暂停换压板和同一把刀强制换刀2个问题
暮光追不者 发表于 2023-8-2 13:56
12楼的网友反馈单条输出会报警，而且不支持分组编程的，所以修改了一下代码。后续还有问题可以回复。
20 ...
我用2212版本测试你编好的程式M00是正常的，我新编的程式一个M00都不出了
mfklngeyc 发表于 2023-8-4 13:16
我用2212版本测试你编好的程式M00是正常的，我新编的程式一个M00都不出了
这个就不太清楚，可能版本不一样，程序组名称“$mom_group_name”这个变量也变了。
开始事件不香了吗？{:tongue:}
大佬，这种模式的后处理出来里面没有M00
xie76646687* 发表于 2023-8-5 18:42
大佬，这种模式的后处理出来里面没有M00
你把MOO塞到A2-copy里面就好了