HAAS后处理中关于攻丝的TCL脚本问题

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。            比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： G98 G84 X0 Y0 Z-3.0 R3.0 F50.0 ' n6 X5 u& B& c5 e( nG98 G84 X0 Y0 Z-6.0 R3.0 F50.0 G98 G84 X0 Y0 Z-9.0 R3.0 F50.0 " E& E5 G. O5 ^% q; Y/ D6 v1 dG98 G84 X0 Y0 Z-12.0 R3.0 F50.0 G98 G84 X0 Y0 Z-15.0 R3.0 F50.0 6 l; I+ _. _9 K6 }' J1 e为实现这一目标，我在攻丝循环插入如下TCL脚本 & i- P& g$ |  J. w' ?. X& q7 P) rglobal mom_cycle_feed_to_pos(0) . y  _9 [( f; S9 e' b  N" M: z. X8 U8 x       mom_cycle_feed_to_pos(1)        mom_cycle_feed_to_pos(2) 1 ]; u: C# @8 \+ B/ j       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)        mom_cycle_cam        feed - o. S; g  w' N) Pset x $mom_cycle_feed_to_pos(0) set y $mom_cycle_feed_to_pos(1) set z $mom_cycle_feed_to_pos(2) set r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) set q $mom_cycle_cam   i8 o7 Z6 F, F5 ~. tset f $feed if {$q > 0} { " n" u5 N& w7 K  g* Lset i [expr round(($r-$z)/$q)] % g$ F( z( B0 w' P' }  q7 [set j 1 while {$j <= $i} {      set z1 [expr $r- $j*$q] ' F3 h% q2 B- G     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f" & _5 a, B# {. Y% j      incr j 1       }       } 结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) ) d2 o0 I/ c4 r7 F0 }# Q8 Z呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！

# l/ X& V0 L$ R' ]- U2 h

lopo

明显用错变量了