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

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。            比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： G98 G84 X0 Y0 Z-3.0 R3.0 F50.0 / `, W' v4 }. F: I7 sG98 G84 X0 Y0 Z-6.0 R3.0 F50.0 ! I4 h( a( C: @& WG98 G84 X0 Y0 Z-9.0 R3.0 F50.0 " `* |; |4 u7 v0 FG98 G84 X0 Y0 Z-12.0 R3.0 F50.0 ( z3 M3 M$ H4 q  s" R- }2 UG98 G84 X0 Y0 Z-15.0 R3.0 F50.0 为实现这一目标，我在攻丝循环插入如下TCL脚本 2 f/ F% Q! q" G global mom_cycle_feed_to_pos(0) + ^% y: b5 H$ P' {  E" Z6 ]       mom_cycle_feed_to_pos(1) 6 ~7 {' t1 B7 h' ]& s& H       mom_cycle_feed_to_pos(2) * Z8 H: G; R% K. P/ s- r       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) & [" c' E% H* e9 T. V' C+ _       mom_cycle_cam        feed * w: R4 `% y* K, Uset x $mom_cycle_feed_to_pos(0) 5 k, E' W0 ?4 P: B% z- qset y $mom_cycle_feed_to_pos(1) 9 [7 Z5 s* g" n$ dset z $mom_cycle_feed_to_pos(2) % k+ c/ b% e; dset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) / x' C2 q* K; Y- I8 Y) D1 Aset q $mom_cycle_cam # r4 u  M$ S$ Y# bset f $feed " e( M  Q6 j' P. d2 q3 ~if {$q > 0} { 8 k# K' Y/ {; I/ u6 T- cset i [expr round(($r-$z)/$q)] set j 1 : d2 `0 a) @. H3 N! Qwhile {$j <= $i} {      set z1 [expr $r- $j*$q]      mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"       incr j 1       }       } 结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) 4 L4 {! |4 |& A呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！ + }6 j8 x3 t$ v3 p

  X# N" W& _7 X+ r" v9 O2 m

lopo

明显用错变量了