TCL文件中加入刀具信息处理程序出现报警?

在TCL文件中加入以下刀具信息处理程序出现报警"翻译程序回归错误"
怎样解决?
   proc MOM_start_of_path {} {

global mom_tool_name
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length mom_tool_length

MOM_set_seq_off
MOM_output_literal "(ToolName=$mom_tool_name\
D=[format "%.2f" $mom_tool_diameter]\
R=[format "%.2f" $mom_tool_corner1_radius]\
F=[format "%.2f" $mom_tool_flute_length]\
L=[format "%.2f" $mom_tool_length])"
MOM_set_seq_on
}

呵呵，我看不出来有什么问题
不好意思

下面是我现在用的，没什么问题，给你参考一下，我找不到，你自己找找：
#=============================================================
proc MOM_start_of_path { } {
#=============================================================
  global mom_sys_in_operation
   set mom_sys_in_operation 1

  global first_linear_move ; set first_linear_move 0
   TOOL_SET MOM_start_of_path

   if [llength [info commands PB_CMD_kin_start_of_path] ] {
      PB_CMD_kin_start_of_path
   }
  
global mom_tool_name
global mom_date
global mom_tool_number
global mom_tool_length
MOM_set_seq_off
global mom_tool_name
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
MOM_set_seq_off
global mom_output_file_basename
global mom_logname
global mom_date
MOM_output_literal "(TOOL name = $mom_tool_name, NC name = $mom_output_file_basename)"
MOM_output_literal "(MCUTOOL T$mom_tool_number\
        D[format "%.2f" $mom_tool_diameter]\
        R[format "%.2f" $mom_tool_corner1_radius]\
        F[format "%.2f" $mom_tool_flute_length])"
MOM_output_literal "(Date: $mom_date)"
MOM_output_literal "(FM:chenxiong）"
MOM_output_literal "(TEL: 13537022829）"




PB_CMD_start_of_operation_force_addresses
}

谢谢16131288同志,加入你的可用,按你的格式加入我的还是报警!

加这种信息时最好一点一点加，然后POST来验证，就能知道哪儿有问题了，global mom_tool_name
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length mom_tool_length
我记得是分开写的

原帖由 ssfjyv 于 2006-2-12 01:41 发表
谢谢16131288同志,加入你的可用,按你的格式加入我的还是报警!

既然加入我的可用，那就按照我的用就是了
有些时候你越想搞懂越搞不懂，先用着
说不定哪天你就会豁然开朗的~~~

可以把你的*.tcl上传吗？
我猜你的语法不对。