本帖最后由 jiangssli 于 2011-5-11 15:13 编辑{# @4 M3 f; m* y2 }" h
0 U- u$ J8 f6 e% B+ a
赋值列表;
A#1右半角B#2牙底宽I#4粗加工每次吃刀量(半径值), x" |% |4 ^! f4 V# r J#5精车吃刀量3 a. _3 c4 Q' x3 j K#6牙深度: l+ ]$ W# O9 _ D#7刀具宽度 / @, W3 j) G7 fU#21X方向精车余量(直径值) 0 v* Y% u6 ~: ? k1 GV#22左半角W#23 Z方向粗加工左右吃刀宽系数X#24牙小径 . b9 i, W# L# g1 W- P. M7 CZ#26牙长度& [3 p* L. p1 z: [/ U" m F#9螺距
改变#1和#22的值就可以加工不同的螺杆,如果#1=#22=15就是30度的梯牙,#1=#22=20就是蜗杆
%
O01029
G54 G00 X150. Z6.
M03 S350 T101
G00 Z6.
X70.
G65 P1050 A20. B3. I0.5 J0.1 K2. T3. U0.15 V20. X56. Z-85. F12.
G00 X150. M05
Z6.
M30
%
(**************************)
%
O01050
G103
#100= #6
#101= #24
#102= #24 + #6 * 3
#6= #6 + #21 / 2
#15= 0
WH [ #15 NE 1 ] DO1
#6= #6 - #4
#25= #24 + #6 * 2
IF [ #25 LE [ #24 + #21 ] ] THEN #25= #24 + #21
#10= TAN[ #1 ] * #6
#11= TAN[ #22 ] * #6
#110= [ #2 - #20 ] / 2
#111= #10 + #110
#112= #11 + #110
#12= #111 + #112
#13= FIX[ [ #12 + #20 ] / [ #20 * 0.85 ] ]
#14= #12 / #13
IF [ #2 EQ #20 ] THEN #14= #112
IF [ #2 EQ #20 ] THEN #14= #111
WH [ #112 GE 0 ] DO2
G00 Z#111
X#25
G32 Z#26 F#9
G00 X#102
Z - #112
X#25
G32 Z#26 F#9
G00 X#102
#111= #111 - #14
#112= #112 - #14
END2
IF [ #25 EQ [ #24 + #21 ] ] THEN #15= 1
END1
#6= #100
#24= #101
WH [ #15 NE 2 ] DO1
#27= TAN[ #1 ] * #6
#28= TAN[ #22 ] * #6
#113= [ #2 - #20 ] / 2
#114= #27 + #113
#115= #28 + #113
#30= #24 + #6 * 2
IF [ #30 LT #24 ] THEN #30= #24
G00 Z#114
X#30
G32 Z#26 F#9
G00 X#102
Z - #115
X#30
G32 Z#26 F#9
G00 X#102
#6= #6 - #5
IF [ #30 EQ #24 ] THEN #15= 2
END1
IF [ #2 EQ #20 ] GOTO2
#31= [ #2 - #20 ] / 2
#32= FIX[ [ #31 + #20 ] / #20 ]
#33= #31 / #32
WH [ #31 GE 0 ] DO2
G00 Z#31
X#30
G32 Z#26 F#9
G00 X#102
Z - #31
X#30
G32 Z#26 F#9
G00 X#102
#31= #31 - #33
END2
N2 M99
特别提醒:由于程序还不是很完美,所以请在使用的时候刀宽度必须小于牙底宽度0.5-1!!否则后果自负!!!
如果各位有什么指教请直接说说!!!!!呵呵
* e6 M% u! r+ {1 d; R: I
|