后处理利用工序名的方式输出M00和强制换刀。

tangdongdong12

谢谢分享  学习一下

snowa*

支持楼主，论坛就需要这样分享技术的朋友。
大家一起交流促进，
比起那些加密后卖后处理的强多了。


发现一个BUG
初始移动不应该加判断条件
应该无条件指定 mom_group_name 为0
否则正常程序组或者单个程序会出错

暮光追不者

12楼的网友反馈单条输出会报警，而且不支持分组编程的，所以修改了一下代码。后续还有问题可以回复。

2023-8-2

1. #=============================================================
   
2. proc PB_CMD__check_block_stop { } {
   
3. #=============================================================
   
4. #输出条件
   
5. global mom_group_name
   
6. if {[string match {*M00*} $mom_group_name]} {
   
7. return 1
   
8. } else {
   
9. return 0
   
10. }
    
11. }

复制代码

1. #=============================================================
   
2. proc PB_CMD_M001 { } {
   
3. #=============================================================
   
4. #放初始移动
   
5. global mom_group_name
   
6. if {[info exists mom_group_name]} {
   
7. set mom_group_name 0
   
8. if {[string match {*M00*} $mom_group_name]} {
   
9. set mom_group_name 0
   
10. }
    
11. }
    
12. }

复制代码

1. #=============================================================
   
2. proc PB_CMD_M002 { } {
   
3. #=============================================================
   
4. #放第一次移动
   
5. global mom_group_name
   
6. if {[string match {*M00*} $mom_group_name]} {
   
7. MOM_output_literal "M05"
   
8. MOM_output_literal "M09"
   
9. PB_auto_tool_change            ;#自动换刀块
   
10. set mom_group_name 0
    
11. }
    
12. }

复制代码

2023-8-2测试后处理.zip (147.91 KB, 下载次数: 138)

2023-8-2 14:09 上传

点击文件名下载附件
下载积分: G币 -1

暮光追不者

网友反馈单条输出会报警，而且不支持分组编程的，所以修改了一下代码，新代码在13楼。

snowa*

我在楼主基础上改了一下

#放在换刀M6之前
global mom_group_name
if {[info exists mom_group_name] && [string match {*M00*} $mom_group_name]} {
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 {![info exists mom_group_name ] } {
set mom_group_name 0
}
if {[string match {*M00*} $mom_group_name] || [string match {*M01*} $mom_group_name] } {
PB_auto_tool_change            ;#自动换刀块
}

加M00可以强制换刀加输出M00。加M01可以强制换刀加输出M01
一举解决了我暂停换压板和同一把刀强制换刀2个问题

mfklngeyc

暮光追不者 发表于 2023-8-2 13:56
12楼的网友反馈单条输出会报警，而且不支持分组编程的，所以修改了一下代码。后续还有问题可以回复。

20 ...

我用2212版本测试你编好的程式M00是正常的，我新编的程式一个M00都不出了

暮光追不者

mfklngeyc 发表于 2023-8-4 13:16
我用2212版本测试你编好的程式M00是正常的，我新编的程式一个M00都不出了

这个就不太清楚，可能版本不一样，程序组名称“$mom_group_name”这个变量也变了。

870429034

开始事件不香了吗？

xie76646687*

大佬，这种模式的后处理出来里面没有M00

snowa*

xie76646687* 发表于 2023-8-5 18:42
大佬，这种模式的后处理出来里面没有M00

你把MOO塞到A2-copy里面就好了