|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
最近我想弄个HAAS格式的后处理，就那FANUC的后处理来改造，结果在攻丝环节出了点问题。还请有识之士给予帮助，感激不尽。具体情况如下。
( l; I$ ~$ t% K! W; s/ ^& l 比如攻一个M3*0.5 深15的螺纹孔，如果一次攻到位，很可能断丝，所以我一次攻丝3，5次攻丝到位。需要UG输出关键部分程序如下：
/ o% n* R8 R; M$ q% S: d5 z4 {G98 G84 X0 Y0 Z-3.0 R3.0 F50.0 b' F5 l* g E. K- r- c
G98 G84 X0 Y0 Z-6.0 R3.0 F50.0( i' F1 p9 T3 Y
G98 G84 X0 Y0 Z-9.0 R3.0 F50.0+ p; R# E$ O7 g$ T
G98 G84 X0 Y0 Z-12.0 R3.0 F50.0
' x7 u4 i. r: R' uG98 G84 X0 Y0 Z-15.0 R3.0 F50.0
, w2 {3 @' y& F5 h
* d: c: J% i/ V, l为实现这一目标，我在攻丝循环插入如下TCL脚本
3 ^; \0 E( p- m" m; K, a* `% _* U; O/ L9 C$ H
global mom_cycle_feed_to_pos(0)
8 `1 a' `) l" W U% x( C mom_cycle_feed_to_pos(1)
8 v4 o8 A9 h. R mom_cycle_feed_to_pos(2): ]. l+ i' s: L$ n6 j; N4 r/ ~* s
mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
. l v8 Y6 v: x& G& { mom_cycle_cam
4 ~; G2 ]7 g' v! Y feed
% I9 u& ?+ b) \) Kset x $mom_cycle_feed_to_pos(0)# B5 `5 }* J0 Z: Y' ~" G
set y $mom_cycle_feed_to_pos(1)
' t! w; {' N1 Yset z $mom_cycle_feed_to_pos(2)+ ~3 {2 B( ]2 i* ^4 B
set r $mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
O2 W+ P0 T# f3 Q0 o5 Cset q $mom_cycle_cam
( Z$ h4 I/ o$ [9 I* r& sset f $feed, `; w3 Z7 V: I" u- }( m7 k
if {$q > 0} {* p% w! J9 Y: n3 w T3 ~: m+ W
set i [expr round(($r-$z)/$q)]
. d1 q7 m2 p% ]- O) Z) @. oset j 1
- l0 w+ K' A, q' h; ^* lwhile {$j <= $i} {9 H1 _" V E$ Y9 b% r
set z1 [expr $r- $j*$q]) g' I4 q9 d" H# E: S: J: t
mom_output_literal "G84 X$x Y$yZ$z1 R$r F$f"( g' d R8 Q2 B9 {: y
incr j 1
; N' o4 N# w1 V# F- ?3 z0 M }1 e5 ~, c3 k$ H, L, T8 [) G
}
* A% T" Z0 G/ O. d" h6 a4 H: V( O: O% f ~# a
结果报错，提示问题在R 参数那里有问题，没有这种变量！这个R参数我看过了，应该是$mom_cycle_rapid_to_pos($mom_cycle_spindle_axis)
! F, a4 z; u, [- u; ~6 R& f" X呀，怎么就错了呢？请三维网的大师帮帮我，感激不尽！
+ w. I! [1 j ?( l2 e3 ? |
|
发表于 2014-3-23 19:40:06
楼主