oyh3100610 发表于 2020-7-18 11:48
大师傅，再请问一下，我想在这后处理上每一个调用子程序前输出这个程序的刀具名称需要怎么做呢？如图所示， ...
参考我是如何输出组名的，原理相同，先收集刀具名，再输出
destiny0515 发表于 2020-7-18 16:50
参考我是如何输出组名的，原理相同，先收集刀具名，再输出
我参考您的代码修改了，可不是报警就是输出错误，应该还是有些细节问题没注意到，能否再帮忙麻烦您写一篇关于输出刀具名称的文章呢？
destiny0515 发表于 2020-7-18 16:50
参考我是如何输出组名的，原理相同，先收集刀具名，再输出
再请教您一个问题，获取到刀具列表后，现在我输出刀具名称的时候怎样才能依次输出刀具名称呢？比如第一个M98的前一段只输出第一个刀具名称，第二个就只输出第二个组内刀具名称？ TCL代码应该怎么写呢？
oyh3100610 发表于 2020-7-21 14:31
再请教您一个问题，获取到刀具列表后，现在我输出刀具名称的时候怎样才能依次输出刀具名称呢？比如第一个 ...
使用tcl命令 foreach
语法如下：
foreach varName list body
将list中的值依次分配给varName，并执行一次body
祝你成功！
destiny0515 发表于 2020-7-21 14:40
使用tcl命令 foreach
语法如下：
您好，还要麻烦您一下，现在还有一点点小问题了，我遍历刀具列表依次输出，可是最后一个程序组内的刀具又读不出来，代码与结果如下图所示，在此麻烦您了。
oyh3100610 发表于 2020-7-21 17:16
您好，还要麻烦您一下，现在还有一点点小问题了，我遍历刀具列表依次输出，可是最后一个程序组内的刀具又 ...
问题在于收集刀具信息的过程
输出NC位于组事件的结束
检查此时的信息是否收集完整
destiny0515 发表于 2020-7-21 17:31
问题在于收集刀具信息的过程
输出NC位于组事件的结束
哈哈哈，我用了一个笨方法解决了这个问题，我想到我之前直接读刀具名称总是读的最后一个，所以我加了一个判断，当执行到最后一个的时候就直接输出刀具名称的变量了。 感谢您的指导！！！
本帖最后由 Bridge_︻︻︻︻ 于 2020-7-22 07:54 编辑
谢谢，这个真好，但主程序能不能像如下方式实现，核心就是主程序光输出换刀指令+坐标系（G54)+子程序号，而子程序不输出换刀指令，也不输出坐标系G54等？
主程序：T1M6 子程序：
G54 G0G90X0Y0M3S2000
M98P0001 G0G43Z100.H01M8
感谢蜗牛哥分享
Bridge_︻︻︻︻ 发表于 2020-7-22 07:45
谢谢，这个真好，但主程序能不能像如下方式实现，核心就是主程序光输出换刀指令+坐标系（G54)+子程序号，而 ...
你说的方式是能够实现的
需要在现有的框架下，做一些调整
我将会在新帖中分享这个思路，到时我们再做讨论