次代のせがい 发表于 2022-8-31 18:09:43

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

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




if { } {

if { ||} {

if { ||} { set cn1 1} else {

set gn1 $mom_cutcom_status
set cn1 0
}
}

if {} {

set cn1 1
set gn1 $mom_cutcom_status

}





}


if { $cn1 == 0 } {

MOM_force once D

}




张思颖 发表于 2022-8-31 19:44:23

这个必须赞

wencfeng 发表于 2022-8-31 20:07:57

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

次代のせがい 发表于 2022-9-1 08:32:17

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

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

次代のせがい 发表于 2022-9-1 08:37:29

关于报警部分是因为开头要在程序起始序列加入命令：
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 16:01:39

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


这是高手！向高手致敬

hfwtj 发表于 2022-9-2 10:54:04

向高手学习，谢谢分享。

张思颖 发表于 2022-9-19 09:28:39

这个要赞
页: [1]
查看完整版本: 做了一个另类的输出刀补的方式（TCL分享给大家交流交流）