法納克,廣數,大森系統宏程序.刀具選球頭刀R4.
M3S500
T0101
M8
#11=10 (螺距)
#2=-35 (Z起點)
#8=-85 (Z終點)
#4=0.1715 (Z軸每刀步距)
#5=0.1 (X軸每刀吃刀深度)
#7=4 刀具半徑
#12=#11/2 螺紋入刀出刀距離
#6=[9-2*SQRT[#7*#7-[#7-#5]*[#7-#5]]]/2 Z軸剩餘切削寬度
G0X100
Z[#2+#12+#4]
N01 G0 Z[#2+#12+#4]
X2
G1X0.2 F0.2
G32 X-[2*#5] Z[#2+#4] F#11 Q0
G32 Z[#8+#4] F#11
G32 X0.2 Z[#8+#4-#12] F#11
G0X100
Z[#2+#12-#4]
X2
G1X0.2 F0.2
G32 X-[2*#5] Z[#2-#4] F#11 Q0
G32 Z[#8-#4] F#11
G32 X0.2 Z[#8-#4-#12] F#11
G0X100
#4=#4+0.1715
IF [#4 LE #6] GOTO01 條件跳轉
G0X100
#4=0.1715
#5=#5+0.1
#6=[9-2*SQRT[#7*#7-[#7-#5]*[#7-#5]]]/2
IF [#5 LE 4.5] GOTO01
G0X100 倒角
X2
Z[#2+#12+1.85]
G1X0.2 F0.2
G32 X-1.17*2 Z[#2+1.85] F#11 Q0
G32 Z[#8+1.85] F#11
G32 X0.2 Z[#8+1.85-#12] F#11
G0X100 倒角
X2
Z[#2+#12-1.85]
G1X0.2 F0.2
G32 X-[1.17*2] Z[#2-1.85] F#11 Q0
G32 Z[#8-1.85] F#11
G32 X0.2 Z[#8-1.85-#12] F#11
M30
----END----