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

士战血龙

   最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。
           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要UG输出关键部分程序如下：
G98 G84 X0 Y0 Z-3.0 R3.0 F50.0
' z: j, h+ ?- i( E5 z7 ]0 q4 kG98 G84 X0 Y0 Z-6.0 R3.0 F50.0
9 n3 n" H4 g& ]. {G98 G84 X0 Y0 Z-9.0 R3.0 F50.0
2 a2 x! v9 i3 O6 s9 `$ D2 wG98 G84 X0 Y0 Z-12.0 R3.0 F50.0
G98 G84 X0 Y0 Z-15.0 R3.0 F50.0

3 d* Z9 n* w7 _6 Y  G* a# O为实现这一目标，我在攻丝循环插入如下TCL脚本

- k' i7 [. y6 s( D" \/ J* |3 G$ ]: Lglobal mom_cycle_feed_to_pos(0)
       mom_cycle_feed_to_pos(1)
       mom_cycle_feed_to_pos(2)
/ v' @  `4 E  r3 i       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
       mom_cycle_cam
2 N- Q& P* G* U% f       feed
! o, Y# z6 ]3 Y& Oset x $mom_cycle_feed_to_pos(0)
; Y/ }5 i' A0 Lset y $mom_cycle_feed_to_pos(1)
8 J% o* D' [* F7 C% r; Qset z $mom_cycle_feed_to_pos(2)
5 F$ o% D. s8 D. _+ ]8 zset r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
/ @3 t* Q  ]' l/ y$ ~0 vset q $mom_cycle_cam
+ Q* e. m( R9 P% `* [set f $feed
if {$q > 0} {
3 ]+ S5 U. v" }, A- ]6 K0 q1 z! Uset i [expr round(($r-$z)/$q)]
set j 1
while {$j <= $i} {
, S( d- M! E# L% P; }/ o- w9 \# E     set z1 [expr $r- $j*$q]
     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"
+ b) i7 ?+ T" U) Z4 k( }# C+ L      incr j 1
      }
: d# g- o, H7 d/ n5 S      }

! b# o6 E5 O* g: T结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
# [/ d; N9 Y" w" u+ _. X8 _2 Z呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！
" }2 Q3 k0 \/ J) L) Z+ v. `

士战血龙

god help me!

zpmc-weilong

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

士战血龙

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

kopo

全局变量不对，语法错误

andy1414

UG裡面攻絲有可以設定Q這個欄位可以填嗎?
5 J- O1 [* _- Q& x好像只有深度啄占才有Q這個值，
所以基本上攻絲扣出G84就不可能再扣出Q這個值
6 n( H% r: D4 I. B  ?- G0 D& N/ x
你不如用標準攻絲機能多幾次就好了，雖然麻煩點，畢竟這種超過三倍的攻絲平常用的不多。

士战血龙

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