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

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。 - a9 y+ `, r, g, ?           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： 8 _' A1 a& O9 M# b, |# L7 y- PG98 G84 X0 Y0 Z-3.0 R3.0 F50.0 G98 G84 X0 Y0 Z-6.0 R3.0 F50.0 2 C( \6 i# E% pG98 G84 X0 Y0 Z-9.0 R3.0 F50.0 G98 G84 X0 Y0 Z-12.0 R3.0 F50.0 G98 G84 X0 Y0 Z-15.0 R3.0 F50.0   d- y- e6 [4 s- | 4 p) I0 t6 ^) {2 ^0 Y为实现这一目标，我在攻丝循环插入如下TCL脚本 # J# \" p* X! Rglobal mom_cycle_feed_to_pos(0)        mom_cycle_feed_to_pos(1) 1 L' Y; |5 m7 @% L3 z       mom_cycle_feed_to_pos(2) ' \& J  E5 i1 J7 G7 K8 W/ T" Q       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) & J* j: U. b: I* F' J& U- b/ f( _' X       mom_cycle_cam ) j& h' h& U# L4 b6 g       feed " k  d0 z1 e) v" h& }set x $mom_cycle_feed_to_pos(0) 8 p: K% e2 V1 Y! `: r; Pset y $mom_cycle_feed_to_pos(1) set z $mom_cycle_feed_to_pos(2) * i, \$ S5 r( E! P; Nset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) 7 q; r# ?: ?" ~1 t& x+ t  q) Fset q $mom_cycle_cam set f $feed , H: D- R# ?  R7 w, U" xif {$q > 0} { set i [expr round(($r-$z)/$q)] set j 1 8 b  M; b" T. gwhile {$j <= $i} { 7 U" _/ `& D" ^) Y6 F4 t) t3 \! t6 H     set z1 [expr $r- $j*$q] - z9 E7 d+ g. A+ |6 C     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f" ) l8 s! B- @; m+ r) s( ^6 \0 C      incr j 1       }       } * t5 X7 F$ b' _4 V4 J" _. N8 ~2 W5 ?结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) ; S! i" ?- I# u5 G呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！

lopo

明显用错变量了