Fresar rosca interna parametrizado em centros de usinagem: Comando FANUC e similares. 

Explicação do programa CNC parametrizado para fresar roscas em centros de usinagem com comado FANUC. Abaixo segue programa CNC.
email: jeremias.ferraz@yahoo.com
O4000(INTERPOLACAO HELICOIDAL P/ ABRIR ROSCA FRESADA)
( FRESAR ROSCA INTERNA DIREITA M40 X 2.0 )
(PROGRAMADO POR JEREMIAS FERRAZ)
T10M6(FRESA DE ROSCA D//MM)
G43G90H10D10Z50M8
G54G90G0X0Y0S1200M3
#1=40.0(DIAMETRO MENOR DA ROSCA ACABADO)
#2=42.0(DIAMETRO MAIOR DA ROSCA ACABADO)
#3=2.0(PASSO DA ROSCA)
#4=10(COMPRIMENTO TOTAL DA ROSCA)
#5=1.0(INCREMENTO P/ NUMERO DE PASSADAS VALOR EM DIAMETRO)
#8=4.5(DIAMETRO REAL DA FRESA)
( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE )
IF[#5EQ0]THEN#5=#3
#1=#1/2
#2=#2/2
#5=#5/2
#7=#4+#3
#8=#8/2
G10L12P10R#8(CARREGA RAIO DA FERRAMENTA VIA PROGRAMA)
N2
#6=0
G90G0Z#3
#1=#1+#5
IF[#1GT#2]THEN#1=#2
G91G42G1D10Y#1F1000
WHILE[#6LT#7]DO1
#6=#6+#3
G91G2J-#1Z-#3F800
END1
G91G1G40Y-#1F1000
IF[#1EQ#2]GOTO22
IF[#1LT#2]GOTO2
N22
G90G0Z80.0M5
M30