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

士战血龙

   最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。
; W; h' [3 c, f$ s; w- {           比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要UG输出关键部分程序如下：
G98 G84 X0 Y0 Z-3.0 R3.0 F50.0
1 Q, A8 r% V+ G2 R4 ^7 S3 XG98 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
' m. x$ U' @! zG98 G84 X0 Y0 Z-15.0 R3.0 F50.0

& U; b" M) s3 P为实现这一目标，我在攻丝循环插入如下TCL脚本

global mom_cycle_feed_to_pos(0)
$ K: _3 C7 d% N( Z# ?3 s" L       mom_cycle_feed_to_pos(1)
       mom_cycle_feed_to_pos(2)
       mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
/ f$ h2 X1 J0 l$ N3 w0 P       mom_cycle_cam
8 ?) H6 j, _6 c: z/ N2 ~: i       feed
set x $mom_cycle_feed_to_pos(0)
; ?& P2 c' o$ xset 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)
2 ]8 ]* ~% [' U" d& G- S4 F! u6 sset q $mom_cycle_cam
8 e, c+ f% {. [( ~$ G% bset f $feed
! X& A7 M4 @* R  S  n( x8 iif {$q > 0} {
set i [expr round(($r-$z)/$q)]
set j 1
) C8 X; N* n6 v7 f) [while {$j <= $i} {
' N7 m/ y0 N! s. ]9 R     set z1 [expr $r- $j*$q]
     mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"
      incr j 1
      }
9 X9 Z4 q  B" l$ I3 f3 x# E. C      }
, O- n7 c6 o3 S0 C
( N, F) P$ p' {' O* i. D结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
. Y  o# ?6 z( V) q. g呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！
; q9 q; e! z* `0 @) ?- C

士战血龙

god help me!

zpmc-weilong

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

士战血龙

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

kopo

全局变量不对，语法错误

andy1414

UG裡面攻絲有可以設定Q這個欄位可以填嗎?
好像只有深度啄占才有Q這個值，
所以基本上攻絲扣出G84就不可能再扣出Q這個值
+ I5 }' L/ N* w" U# {5 ]
你不如用標準攻絲機能多幾次就好了，雖然麻煩點，畢竟這種超過三倍的攻絲平常用的不多。
1 b& e. e3 R, M7 }0 z8 r

士战血龙

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