加工说明：右旋内锥螺纹，中心位置为（50，20），螺纹大端直径为ф60mm，螺距=4mm，螺纹深度为Z-32，单刃螺纹铣刀半径R=13.5mm，螺纹锥度角=10°0 r# U: j' b! a6 k- b% N+ z
假设螺纹底孔已预先加工，为简明扼要说明宏程序原理，这里使用一刀精加工，实际加工可合理分配余量分次加工！' l' Z& @" u& ?' |# i
% l# n; N I2 T: N3 W/ l* @8 bO0101! |- F7 d. T: W, _
S2000 M031 L2 e( k$ F/ v2 ~- Y
G54 G90 G00 X0 Y0 Z30.+ l* }# n+ e" U9 y% `5 w8 P2 d
G65 P8101 A10. B0 D60. Q4. R13.5 X50. Y20. Z-32. F5004 d, G# d/ n* T, i9 G3 f" q5 K
M30 0 T7 l# i' H: p) w+ ^, @
自变量赋值说明；# S2 Z7 t) i* _- e
#1=A 螺纹的锥度角（以单边计算）2 @) J7 M) }' f) X5 J
#2=B 螺纹顶面Z坐标（非绝对值）) O0 e# k7 w1 Y1 z& G+ H
#7=D 螺纹起始点（大端）直径3 t$ V" _9 F' @' W4 M$ p4 I
#9=F 进给速度# ^. R4 R% j! O( _: f" a# y7 \6 d
#17=Q 螺距, G$ t* j) l( C7 U& t+ c8 B
#18=R 刀具半径（应使用单刃螺纹铣刀）9 [4 _5 T# ?- p J4 s
#24=X 螺纹中心X坐标值1 m4 A+ k$ ]# S# G
#25=Y 螺纹中心Y坐标值
4 J( U$ [* P( e1 D#26=Z 螺纹深度（Z坐标，非绝对值）( I8 q9 s: c5 D7 t- c
6 q8 z- ]0 j% p- N) {: c 宏程序# v H( ]% @" q R, d1 E" G: P, I2 {
O8101
" b6 t/ t2 H- F: F- n$ U$ hG52 X#24 Y#25 在螺纹中心（X，Y）建立局部坐标系
3 I4 J# w' s& P8 [: O: D0 x#3=#7/2-#18 起始点刀心回转半径（初始值）
' _, |! E5 o) y& b1 x, U#4=TAN[#1] 锥度角正切值
1 L) s! N6 d9 d" I6 v) m& q# B# t#5=#17*#4 一个螺距所对应的半径变化量; ], f( U. f+ X8 @/ I1 G
#6=#3-#26*#4 螺纹底部（小端）半径
4 G" C! v' }' L& X; N8 UG00 X#3 Y0 G00移动到起始点的上方
z/ ^: J! ]: m- z( v. p, q. d! wZ[#2+1.] G00下降到Z#2面以上1.处
. y; K" Y6 {' R) [* O0 HG01 Z#2 F#9 G01进给到Z#2面2 [5 ^7 ^# S! X7 C
WHILE [#3 GT #6] DO 1 如果#3＞#6,循环1继续6 D3 |& i. r( @. ~% O# G
G91 G02 X-#5 I-#3 Z-#17 F#9 G02螺旋加工至下一层,实际轨迹为圆锥插补7 s6 Q6 j( {4 Q9 ^" u: J! q
#3=#3-#5 刀心回转半径依次递减#5 w+ k4 D6 X2 b1 z
END 1 循环一结束(此时#3=#6)9 H: K0 X+ T9 f3 ^9 m0 s
G90 G01 X0 Y0 G01回到中心
5 i5 j, X$ N. H; V! ?5 UG00 Z30. 快速提刀到安全高度
; v2 N+ z8 S1 S8 y; Y, rG52 X0 Y0 恢复G54原点
) O! }$ l, Y7 ~/ r' VM99 宏程序结束返回
- H1 {5 K. a7 `9 c* F F* }8 u | 
发表于 2012-10-25 22:14:56
