furação helicoidal parametrizado / parameterized helical drilling 

olá, trazendo mais um parametrizado, agora para fazer furo por interpolação... programa logo a baixo....
------------------------------------------------------------------------------------------
O0060(interpolacao parametrizado)
G21 G40 G90 G95
G54 G0 X350 Z250 T00
T0101(fresa topo)
G94
G97 S2000 M15
G54 G0 X200 Z10
M19
G28 C0
(--------------------------------)
#115=4(quantidade de furos)
#116=0(angulo inicial"nao alterar")
#117=0("nao altera")
#101=40.0(diametro em X)
#102=10.0(diametro fresa)
#103=2.(incremento por volta)
#104=12.(profundidade em Z )
#105=14.5(diametro do furo)
#106=2. (inicio em Z )
#114=200(avanco)
#118=360/#115(divisao dos angulos)
(--------------------------------)
N55
C#116(orientacao eixo arvore)
#107=#102/2
#108=#105/2
#109=#103/2
#110=#108-#107
#111=0
#112=#104+#106
#113=#112/#103
#113=FIX[#113]
G0 X#101 Z#106 M8
G12.1
N2
G1 X#101 C0 F#114
W-#109 F80
G3 C-#110 R#110/2 F#114
G3 X#101 C#110 R#110
G3 X#101 C-#110 R#110
#111=#111+1
IF[#111EQ#113]GOTO12
GOTO2
N12
G3 X#101 C#110 R#110
G3 X#101 C-#110 R#110
G3 C0 R#110/2
G13.1
G0 Z10
#116=#116+#118
#117=#117+1
IF[#117LT#115]GOTO55
G54 G0 X350 Z250 T00 M9
M30