梯形螺纹通用宏程序
(需用切刀加工)
#1 = 140(外圆直径)
#2 = 120(螺纹底径)
#3 = 150(长度)
#4 = 30(螺距)
#5 = 18(槽宽 ,需减刀宽)
#6 = 2(每次借刀宽度 借刀宽度小于刀宽)
#7 = 14(左侧角度)
#8 = 14(右侧角度)
#20 = 0(Z轴起点定位)
#100 = 0.3(每层吃刀量,直径)
#101 = #1+10(X轴安全定位)
#102 = #20(定位左侧借刀起点重复赋值)
#103 = #1(外圆直径重复赋值)
#110 = #5(槽宽重复赋值)
WHILE[
#103 GE#2] DO1
G0 X#101
Z#102
G92 X#103 Z-#3 F#4(多头直接加L)
#104 = #102
WHILE[#104 LE#110] DO2
G0 Z#104
G92 X#103 Z-#3 F#4(多头直接加L)
IF[#104 EQ#110] GOTO10
#104 = #104+#6
IF[#104 GT#110] THEN#104 = #110
END2
N10 IF[#103 EQ#2] GOTO11
#103 = #103-#100
IF[#103 LT#2] THEN
#103 = #2
#105 = [#1-#103]/2*TAN[#7](计算左侧每层退刀量)
#106 = [#1-#103]/2*TAN[#8](计算右侧每层退刀量)
#102 = #20+#105
#110 = #5-#106
END1
N11 M30
此程序在广数980TDC机床试车成功,可加工不同梯牙,蜗杆,只需更改#1~#8数据,后面的程序一个标点符号都不能输错,否则报警。