海德汉系统，LBL序号的变量

CAOWEI19860

求指导，写一段海德汉LBL序号，每换刀一次 LBL递增1 的变量。

Frank_yangkee

if { $mom_tool_number != $prev_tool_number } {
     set prev_tool_number $mom_tool_number
     set seq_number [expr ($seq_number + 1)]
     }