通用宏程序加工大螺距梯牙,蜗杆,锯齿牙等异形螺杆

jiangssli

$ V* H- o( `- Z; |1 n. O

赋值列表;

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!!否则后果自负!!!

如果各位有什么指教请直接说说!!!!!呵呵

风随意

标记下！

rqsyk

进来学习下

风随意

内容你好啊~你的通用宏程序加工蜗秆中的g103是什么意思啊

jiangssli

阻止程序预读!法拉克没有这个指令,这是哈斯系统的指令!!11

风随意

虽然喔不会宏程序……不过楼主的程序好像又很多错的地方

jiangssli

呵呵,希望你把程序拿到机床上面去试试再说错误的地方!

zgsdjinan

学习了！不错！

风随意

哈斯…~~~~没有听过~我孤陋寡闻了~怪不得我会觉得错误~原来系统不一样~楼主能编写一个广数的给我用用吗

风随意

哈斯…~~~~没有听过~我孤陋寡闻了~怪不得我会觉得错误~原来系统不一样~楼主能编写一个广数的给我用用吗