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

士战血龙

   最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。
           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要UG输出关键部分程序如下：
3 s  L+ y+ I# |7 f. y$ u  ZG98 G84 X0 Y0 Z-3.0 R3.0 F50.0
8 x$ C8 {8 W; E2 Q% K$ eG98 G84 X0 Y0 Z-6.0 R3.0 F50.0
1 X  ^: H' O6 G; R( AG98 G84 X0 Y0 Z-9.0 R3.0 F50.0
G98 G84 X0 Y0 Z-12.0 R3.0 F50.0
! U7 {" d/ M% _& L$ a1 {G98 G84 X0 Y0 Z-15.0 R3.0 F50.0
( }# ]. M" s! }
为实现这一目标，我在攻丝循环插入如下TCL脚本

global mom_cycle_feed_to_pos(0)
- r  q& t  E. e  H       mom_cycle_feed_to_pos(1)
       mom_cycle_feed_to_pos(2)
, D/ N: V5 V8 V$ P; C7 W' @       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
/ L4 C- ]: N5 l6 ?; f  {0 A       mom_cycle_cam
       feed
$ _9 [0 x. V" W3 V* V3 j, Qset x $mom_cycle_feed_to_pos(0)
set y $mom_cycle_feed_to_pos(1)
! S7 F2 S, v, jset z $mom_cycle_feed_to_pos(2)
* ^# S0 ^% L" Y  B. qset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
5 ?9 ]" u! o2 T1 ]- f" l: Q6 |) Mset q $mom_cycle_cam
set f $feed
if {$q > 0} {
* N0 |, \6 H& O; h& L1 q, n7 Bset i [expr round(($r-$z)/$q)]
set j 1
while {$j <= $i} {
. ~* F, ?( T2 C2 T     set z1 [expr $r- $j*$q]
     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"
3 }1 `( v! [, m1 s" L! O: r      incr j 1
      }
) y9 ^- k" V3 l& @      }

结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！

士战血龙

god help me!

zpmc-weilong

这种方式不可取，只需要机床支持啄式攻牙或深孔攻牙方式，然后在循环里给定Q值就可以了。

士战血龙

如果是法兰克的系统，自然很简单。但是我说的是哈斯，哈斯没有啄攻方式，只有可重复刚性攻丝，我想要的结果是给定一个Q值，让后处理自动输出几个深度的攻丝循环，不知道我说清楚了没。

kopo

全局变量不对，语法错误

andy1414

UG裡面攻絲有可以設定Q這個欄位可以填嗎?
好像只有深度啄占才有Q這個值，
所以基本上攻絲扣出G84就不可能再扣出Q這個值
; b6 p3 ]) f0 _2 L
你不如用標準攻絲機能多幾次就好了，雖然麻煩點，畢竟這種超過三倍的攻絲平常用的不多。
- I* c! {& V! A; ~# r+ B

士战血龙

6楼所说的问题是不存在的。UG里面的攻丝可以输出Q值，但是需要在后处理里面添加参数，以用于读取Q值。
5楼说的问题就是我现在面临的问题，核心的TCL脚本我已经完成，能够正确输出指令。问题就是语法问题不能解决，纠结中...