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

暮光追不者

后处理用含有M00的工序名自动判断输出M00实现换压，或者强制换刀，或者实现别的功能。
虽然方法有挺多，个人感觉这种方法比较一目了然。
送上代码跟方法。






下面是代码：

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

复制代码

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

复制代码

1. #=============================================================
   
2. proc PB_CMD_M002 { } {
   
3. #=============================================================
   
4. #放第一次移动
   
5. global mom_group_name mom_tool_number mom_next_tool_number
   
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. }

复制代码

测试用的后处理
测试后处理.zip (143.95 KB, 下载次数: 150)

2023-8-1 01:23 上传

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

暮光追不者

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, 下载次数: 137)

2023-8-2 14:09 上传

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

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

谢谢大佬回复666666

mfklngeyc

proc PB_CMD__check_block_stop 放那个位置

雾色囚

学到了

enricyx

感谢分享。。。。。。。。。互相学习。。。。。。。

gongxixi

这个方法好，比较清晰明显

gsphzc

感谢分享

暮光追不者

这个是输出条件，看第一张图那个G91 G28 Y0.和M00，点进去右键——添加输出条件就行了。

why6666133

放法不错

dlc317

666，大佬真6