大师看看这代码输出开头刀具信息
大师看看这代码输出开头刀具信息只输出了这种格式，但是没有输出刀具的信息 是啥情况 代码如下，请大师修改
LIB_GE_command_buffer_edit_append MOM_start_of_program_LIB PROGRAMSTART {
global mom_cutter_info tool_name_list
array set tool_check {}
set duplicates ""
set tool_name_list
MOM_ask_cutter_info tool_name_list
foreach tool_name $tool_name_list {
set tn $mom_cutter_info($tool_name,tool_number)
if {} {
lappend duplicates "T$tn"
}
set tool_check($tn) 1
set td ? $mom_cutter_info($tool_name,diameter) : 0}]
set tr ? $mom_cutter_info($tool_name,corner_radius) : 0}]
set fl ? $mom_cutter_info($tool_name,flute_length) : 0}]
set tl ? $mom_cutter_info($tool_name,total_length) : 0}]
LIB_GE_message "T${tn}=$tool_name\
D=\
R=\
FL=\
TL="
}
if { > 0} {
LIB_GE_abort "DUPLICATE TOOL NUMBERS: "
}
} _CUSTOM_TOOL_LIST
页:
[1]