哪位大哥有刀号自动排序软件

摘星手3

哪位大哥有刀具号自动排序软件，求一份

qwerty2022

有个小工具  发给你试试

18349372449

我也想知道，最好有自动编程的。
我坐着玩就好了

天使*

I=1    1是起始刀号，复制以下代码，保存为GRS文件，编译成GRX文件。

STRING/STR(100)
ENTITY/OUT
NUMBER/TLDAT(18)
I=1
&MODULE=&MACH
INEXTN/&TOOLS
NEXT1:
STR=NEXTN/IFEND,END:
OUT=&TLNAME(STR)
OBTAIN/OUT,TLDAT(1),
IF/TLDAT(1)==1,JUMP/MILL:
IF/TLDAT(1)==2,JUMP/DRILL:
IF/TLDAT(1)==8,JUMP/T_CUTTER:

MILL:
OBTAIN/OUT,TLDAT
TOOL/STR,MILL,TLDAT(2),TLDAT(3),TLDAT(4),TLDAT(5),TLDAT(6),$
FLUTLN,TLDAT(7),FLUTNM,TLDAT(8),ZOFF,TLDAT(9),CUTCOM,TLDAT(10),$
ADJUST,TLDAT(11),CLW,TOOLNM,I,IFERR,ERR:
I=I+1
JUMP/L1:


DRILL:
OBTAIN/OUT,TLDAT
TOOL/STR,DRILL,TLDAT(2),TLDAT(3),TLDAT(4),TLDAT(5),$
FLUTLN,TLDAT(6),FLUTNM,TLDAT(7),XOFF,$
TLDAT(8),ZOFF,TLDAT(9),ADJUST,TLDAT(10),CLW,TOOLNM,I,IFERR,ERR:
I=I+1
JUMP/L1:


T_CUTTER:
OBTAIN/OUT,TLDAT
TOOL/STR,TCUTTER,TLDAT(2),TLDAT(3),TLDAT(4),$
TLDAT(5),TLDAT(6),TLDAT(7),$
FLUTNM,TLDAT(8),ZOFF,TLDAT(10),CUTCOM,TLDAT(12),$
ADJUST,TLDAT(11),CLW,TOOLNM,I,IFERR,ERR:
I=I+1
JUMP/L1:


L1:
JUMP/NEXT1:
ERR:
END:
HALT

ccy11

qwerty2022 发表于 2022-8-16 15:33
这是附件

可以分享一下吗

15053538221

qwerty2022 发表于 2022-8-16 15:33
这是附件

怎么使用大哥？

qwerty2022

这是附件

309494778

哪位大哥有刀具号自动排序软件，求一份