做了一个另类的输出刀补的方式（TCL分享给大家交流交流）

次代のせがい

大部分都是在机床控制里面添加：MOM_force once D
但我这边用了另一种方法来实现输出刀补，如以下内容：
TCL文件内容:
global mom_sys_cutcom_code
global mom_cutcom_status
global mom_operation_name
global cn1
global gn1




if { [info exists mom_cutcom_status] } {

if {[string match "LEFT" $mom_cutcom_status] ||[string match "RIGHT" $mom_cutcom_status]  } {

if {[string match "LEFT" $gn1] ||[string match "RIGHT" $gn1]  } { set cn1 1} else {

set gn1 $mom_cutcom_status
set cn1 0
}
}

if {[string match "OFF" $mom_cutcom_status]  } {

set cn1 1
set gn1 $mom_cutcom_status

}





}


if { $cn1 == 0 } {

MOM_force once D

}

张思颖

这个必须赞

wencfeng

什么意思  没有搞明白  还有就是我添加进去后处理报警

次代のせがい

wencfeng 发表于 2022-8-31 20:07
什么意思  没有搞明白  还有就是我添加进去后处理报警

需要在后处理开头给cn1和gn1赋值才不会报警，这是基本操作。

次代のせがい

关于报警部分是因为开头要在程序起始序列加入命令：
global bn1
global bn2
global cn1
global gn1
global gn2
global an1
global an2


set bn1 0
set bn2 0
set cn1 0
set gn1 0
set gn2 0

雁南一撇

次代のせがい 发表于 2022-9-1 08:37
关于报警部分是因为开头要在程序起始序列加入命令：
global bn1
global bn2

这是高手！向高手致敬

hfwtj

向高手学习，谢谢分享。

张思颖

这个要赞