今天，本人分享个油气开采设备中的BC螺纹加工宏程序。BC螺纹一般而言，牙型尺寸较大，螺距也较大，如果采用标准螺纹车削程序代码基本上都无法无成。（以下程序不算最完美，但已经过实战考验）：
（完整程序如下）
%
O0070(MACRO FOR BC THD_1)
( THE PROGRAM WAS EDITED BY ZHANGTECHENG )
( DATE: Fri Apr 28 11:14:18 2017 )
( Program rev.: A00 )
( Material: AISI 4140 )
( ************************************** )
N0010(ROUGH)
G40G18G99G00G97
G21
T0404
(OD_GROOVE_W4.0R0.4)
G97 M04 S50 (VC=60MM/MIN)
#10=200.0 (THD START X)
#11=10.0 (THD START Z)
#12=-100.0 (THD END Z)
#13=0.2 (AP)
#15=5.6 (THD DEPTH)
#1=0.0
N0015
#2=0.5*#1*TAN[45]
#3=0.5*#1*TAN[15]
G00 X[#10+5]
G00 Z#11
U-[#1+5] W[[-3+#2-#3]*0.5]
G32 Z#12 F12.7 (MIDDLE)
G00 X[#10+5]
G00 Z#11
U-[#1+5] W[-5.45+#2]
G32 Z#12 F12.7 (LEFT)
G00 X[#10+5]
G00 Z#11
U-[#1+5] W[2.45-#3]
G32 Z#12 F12.7 (RIGHT)
G00 X[#10+5]
G00 Z#11
#1=#1+2*#13
IF[#1LE[2*#15]]GOTO15
G00 X[#10+5]
G00Z50.000
M05
M09
M00
()
N0020(FINISH)
G40G18G99G00G97
G21
T0404
(OD_GROOVE_W4.0R0.4)
G97 M04 S50 (VC=60MM/MIN)
#10=200.0 (THD START X)
#11=10.0 (THD START Z)
#12=-100.0 (THD END Z)
#13=0.1 (AP)
#15=5.8 (THD DEPTH)
#1=0.0
N0025
#2=0.5*#1*TAN[45]
#3=0.5*#1*TAN[15]
G00 X[#10+5]
G00 Z#11
U-[#1+5] W[-5.60+#2]
G32 Z#12 F12.7 (LEFT)
G00 X[#10+5]
G00 Z#11
U-[#1+5] W[2.60-#3]
G32 Z#12 F12.7 (RIGHT)
G00 X[#10+5]
G00 Z#11
#1=#1+2*#13
IF[#1LE[2*#15]]GOTO25
G00 X[#10+5]
G00Z50.000
M00
M30
%
好，今天内容结束。
閱讀更多 ZHANGTECHENG 的文章
