程序名：ZLWXX

M6 T1

R1=26						;螺纹铣刀回转直径

R2=2						;螺纹孔顶面初始坐标

R3=2.209					;螺距

R4=1.767					;螺纹牙高

R5=5						;安全高度

R6=1/16						;螺纹锥度

R7=1000					;主轴转速

R8=300						;切削进给量

R9=0						;螺旋圆周起始角度

R10=60.092					;螺纹大径

R11=0.5						;螺纹加工牙深初始值

R12=35						;螺纹深度

R13=(R2+R12)/R3			;铣削螺纹圈数，可以不是整数

R14=300					;螺纹铣削进给速度

M3S=R7						;主轴转速

G00 X0 Y0Z100				;X、Y定位到加工位置

N10 Z=R5					;Z轴定位到安全距离

G1 Z=R2 F=R8				;刀具定位到螺纹铣削起点深度

G41 X=R1/2+R11 Y0			;添加刀尖半径补偿

G3 X=(R10+2*R2*R6)/2+R11 Y0 CR=(R10+2*R2*R6-R1)/4;圆弧切入

R16=R3*R6/360				;螺旋线角度每增加一度后的半径变化增量值

WHILE R9<=R13*360			;判断圆周角是否到位

R17=(R10+2*R2*R6)/2-R16*R9+R11;当前角度下的半径值

G1X=R17*COS(R9) Y=R17*SIN(R9) Z=(R2-R3*R9/360)												;直线插补联动铣削螺纹

R9=R9+1					;角度值累加

ENDWHILE					;循环结束

G00 G40 X0 Y0				;取消刀尖半径补偿

G00Z=R5					;刀具退回到安全高度

R9=0						;螺旋圆周起始角度重置为零

IF R11==R4 GOTO 20			;判断如果R11等于R4，跳转到程序段N20

R11=R11+0.5					;深度值累加

IF R11<R4 GOTO 10			;判断如果R11小于R4，跳转到程序段N10

R11=R4						;将R4的值强制赋值给R11

GOTO 10					;跳转到程序段N10

N20 G0Z100

M30