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

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。 0 h+ F# h. L, U! p% l6 x5 C$ K           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： G98 G84 X0 Y0 Z-3.0 R3.0 F50.0 G98 G84 X0 Y0 Z-6.0 R3.0 F50.0 G98 G84 X0 Y0 Z-9.0 R3.0 F50.0 , C- O+ O, F- u9 B# eG98 G84 X0 Y0 Z-12.0 R3.0 F50.0 G98 G84 X0 Y0 Z-15.0 R3.0 F50.0 为实现这一目标，我在攻丝循环插入如下TCL脚本 global mom_cycle_feed_to_pos(0) 4 \- t' Q  h5 w: c       mom_cycle_feed_to_pos(1)        mom_cycle_feed_to_pos(2) , d3 F6 m0 `% y# {       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)        mom_cycle_cam ' w9 g' b2 `" }3 G. U       feed set x $mom_cycle_feed_to_pos(0) 3 f* [- N' O6 K. k8 T# rset y $mom_cycle_feed_to_pos(1) set z $mom_cycle_feed_to_pos(2) 5 r! `' |; k+ ]. R! d  bset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) + \1 b: V; Q; D( {set q $mom_cycle_cam . u& g& T) E4 M7 eset f $feed / v; d# F% B6 B6 V6 yif {$q > 0} { ; z( f4 E7 f5 iset i [expr round(($r-$z)/$q)] set j 1 while {$j <= $i} {      set z1 [expr $r- $j*$q]      mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"       incr j 1 , m4 J# z+ o1 I* }      }       } 7 Q7 ~/ B/ g" y' f9 H+ h/ W 1 x9 I% F" O' B0 g: ^7 G1 e7 n+ l结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) 1 s% d5 p! ?5 E: D8 }呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！ ; |- c& K# W# B3 g  X" a0 d

lopo

明显用错变量了