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

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。 : n- u' g8 J, S, \7 c2 o7 D           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： G98 G84 X0 Y0 Z-3.0 R3.0 F50.0 : V/ z  Z6 b/ T6 J9 W8 c5 E: OG98 G84 X0 Y0 Z-6.0 R3.0 F50.0 + q5 N6 Q! x% I8 HG98 G84 X0 Y0 Z-9.0 R3.0 F50.0 2 z' k, d) ^7 b0 W' c' OG98 G84 X0 Y0 Z-12.0 R3.0 F50.0 G98 G84 X0 Y0 Z-15.0 R3.0 F50.0 - G& D' F' j* P$ p1 e 9 i0 ]4 z% |0 d  P6 ~为实现这一目标，我在攻丝循环插入如下TCL脚本 0 {6 ^4 ?& q+ R" E7 j- N global mom_cycle_feed_to_pos(0) 1 N8 c7 @  ^; F8 ^6 Y4 F( T  y       mom_cycle_feed_to_pos(1) / |8 H' b" Z/ X; K       mom_cycle_feed_to_pos(2)        mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)        mom_cycle_cam . [* w6 U' K' c% W       feed set x $mom_cycle_feed_to_pos(0) ) s# b  [- l* n3 U- _set y $mom_cycle_feed_to_pos(1) set z $mom_cycle_feed_to_pos(2) & I0 Z& v% f3 o2 O+ L7 V6 Y1 Dset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) 3 `0 ]+ W6 A" @! b( o; Eset q $mom_cycle_cam ! j+ S  P$ H5 {8 aset f $feed 0 x3 V) W1 a4 R* V$ n1 K, S* {if {$q > 0} { set i [expr round(($r-$z)/$q)] set j 1 while {$j <= $i} {      set z1 [expr $r- $j*$q] . E; G8 Q  X3 v. D     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f" + j! i  _; N* ~6 |& \. G, f      incr j 1 % K1 G! _/ C. }$ L      }       } 6 Q; X% p5 X. i. q2 e 结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) 呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！

lopo

明显用错变量了