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

士战血龙

   最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。
           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要UG输出关键部分程序如下：
! {% D; s. D; U) m$ X$ r* AG98 G84 X0 Y0 Z-3.0 R3.0 F50.0
3 z1 U3 x4 @6 ]9 l* I$ k5 N) D1 [, iG98 G84 X0 Y0 Z-6.0 R3.0 F50.0
& E) A/ ]9 F4 s5 kG98 G84 X0 Y0 Z-9.0 R3.0 F50.0
" y" O1 h: W5 J8 H' n* yG98 G84 X0 Y0 Z-12.0 R3.0 F50.0
2 d2 j- A) z' j/ {) j9 JG98 G84 X0 Y0 Z-15.0 R3.0 F50.0

8 t8 }, }+ e6 e* K1 u为实现这一目标，我在攻丝循环插入如下TCL脚本
- G. }8 B' l9 L6 B# B0 Q: i
global mom_cycle_feed_to_pos(0)
       mom_cycle_feed_to_pos(1)
       mom_cycle_feed_to_pos(2)
       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
4 I/ p: a- H/ M$ C       mom_cycle_cam
$ r; Y2 p  e* d- s, R9 d       feed
set x $mom_cycle_feed_to_pos(0)
  P* M0 [+ u" ]# [set y $mom_cycle_feed_to_pos(1)
2 ^( y9 e! n( ~. E" o: a! e: Bset z $mom_cycle_feed_to_pos(2)
set r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
set q $mom_cycle_cam
set f $feed
if {$q > 0} {
. |9 V$ B) @+ j# x5 ?set i [expr round(($r-$z)/$q)]
: b& l. }$ U$ ]; O- }" aset j 1
" m  Z6 _3 Q: h2 ?# u$ Owhile {$j <= $i} {
     set z1 [expr $r- $j*$q]
     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"
6 r! i4 e% X' k      incr j 1
      }
      }
) p( h) ~1 r3 u" S/ U
* Y1 o' }* P7 O2 G. Y结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
3 l0 c$ Y* O" c) E& ~% o呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！

士战血龙

god help me!

zpmc-weilong

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

士战血龙

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

kopo

全局变量不对，语法错误

andy1414

UG裡面攻絲有可以設定Q這個欄位可以填嗎?
好像只有深度啄占才有Q這個值，
所以基本上攻絲扣出G84就不可能再扣出Q這個值

$ J7 \: a- J7 A6 z) U, O你不如用標準攻絲機能多幾次就好了，雖然麻煩點，畢竟這種超過三倍的攻絲平常用的不多。

士战血龙

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