|
|
|
赋值列表;A#1右半角 B#2牙底宽 I#4粗加工每次吃刀量(半径值)
J#5精车吃刀量
K#6牙深度
D#7刀具宽度
U#21X方向精车余量(直径值)
V#22左半角 W#23 Z方向粗加工左右吃刀宽系数 X#24牙小径
Z#26牙长度
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!!否则后果自负!!!如果各位有什么指教请直接说说!!!!!呵呵
|
|
发表于 2013-10-31 21:54:33
楼主