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

龙血战士

最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。 $ V$ a' C) H" Y4 L% I           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要ug输出关键部分程序如下： 1 E$ g; i1 h5 Q) j& s/ p8 }4 KG98 G84 X0 Y0 Z-3.0 R3.0 F50.0 4 ~0 \$ U& _5 W/ k* v) n( v) NG98 G84 X0 Y0 Z-6.0 R3.0 F50.0 - z  |1 o( A% O5 o2 qG98 G84 X0 Y0 Z-9.0 R3.0 F50.0 $ D, O" j& T: A  [$ q& L! ]G98 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) : T8 E! U# l) R       mom_cycle_feed_to_pos(1) / B# q: B$ m: k! H& c% S       mom_cycle_feed_to_pos(2) - h$ R' Q: K" g# c5 `       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)        mom_cycle_cam        feed * E# N; {1 R3 Z. a! k9 [* Uset x $mom_cycle_feed_to_pos(0) / e' a8 F/ f) o& N9 F! f: Y9 U, t' Xset y $mom_cycle_feed_to_pos(1) 7 R  t0 K4 M7 `& K5 L% Pset z $mom_cycle_feed_to_pos(2) / L, k4 J1 [6 X' sset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) set q $mom_cycle_cam set f $feed / j$ {" ^* v5 bif {$q > 0} { / `: J( D  C5 Pset i [expr round(($r-$z)/$q)] # Z! O' U- j, D1 Y" {set j 1 while {$j <= $i} { / r  B% ~( v' G: t: c$ f     set z1 [expr $r- $j*$q] * a. H2 B; ^; _1 _     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"       incr j 1       }       } : x" H& \) S2 ?) u, k 结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis) % ?6 C; S# w3 x, c9 l& H! I* C1 {呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！ 9 V- d0 ]) K( T+ z; A) \! p

lopo

明显用错变量了