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

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。            比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： ; C. d/ ~6 Q5 OG98 G84 X0 Y0 Z-3.0 R3.0 F50.0 1 Y" H7 u% s( Z& BG98 G84 X0 Y0 Z-6.0 R3.0 F50.0 G98 G84 X0 Y0 Z-9.0 R3.0 F50.0 G98 G84 X0 Y0 Z-12.0 R3.0 F50.0 0 V# X" T) J8 z& s4 |; |' g0 rG98 G84 X0 Y0 Z-15.0 R3.0 F50.0 # g1 Y9 J; O0 }& ?7 R 为实现这一目标，我在攻丝循环插入如下TCL脚本 6 {- [5 Z+ Z0 ~; K' j, W$ Y 9 V- {1 M0 v) d7 Q6 o, z2 ~global mom_cycle_feed_to_pos(0)        mom_cycle_feed_to_pos(1) % t' }0 n( u: S" [% C0 {8 }       mom_cycle_feed_to_pos(2) 1 I# r  x/ m. X2 n5 z+ B( p+ R       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) * m3 k9 E" h, L, y" Q: A# s, I: q/ F       mom_cycle_cam        feed " u" q% G. O6 Z0 d+ `set 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 3 P; |$ P1 m) r3 K6 ]3 Vset f $feed if {$q > 0} {   \; f! R. T. f) S, ?8 A. {set i [expr round(($r-$z)/$q)] set j 1 # y6 L3 |! }2 a8 n/ o8 U. r$ xwhile {$j <= $i} {      set z1 [expr $r- $j*$q] & s8 ]' Y6 A% W5 ?$ g1 H1 [     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"       incr j 1       } 7 z' ?- `! b' `" D      } 结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) 呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！ # O6 d1 Y/ |- d# P2 I/ t8 X' {

lopo

明显用错变量了