%
O0001 (MACRO ROSCA CONICA DIREITA/ESQUERDA)
(NPT - 8 fpp.)
G17 G21 G90 G94
G53 G0 Z0 G49
T01
M6
G54 S3500 M3
G43 Z100 H01 D01
#1=88.9 (DIAM. INICIAL)
#2=1.783 (ANG. DA ROSCA)
#3=3.175 (PASSO DA ROSCA)
#4=0 (Z INICIAL)
#5=-28.98 (Z FINAL)
#6=100 (COORD. CENTRO EM X)
#7=75 (COORD. CENTRO EM Y)
#8=185 (ANG. ENTRADA DA ROSCA)
#9=1 (INCR. ANG. - RESOLUCAO CIRCULO)
#10=2 (DIAMETRO DA FERRAM.)
#11=350 (AVANCO PARA FRESAM.)
#12=0 (ROSCA DIR=0 - ROSCA ESQ=1)
(**** VARIAVEIS DE CALCULO - NAO MODIFICAR ****)
#20=[#1-#10]/2 (CALC. RAIO INICIAL DA ROSCA)
#21=#4-#5 (CALC. PROF. TOTAL)
#22=#9*#3/360 (CALC. PROF. POR INCR. ANG)
#23=TAN[#2]*#21 (CALC. CATETO RADIAL)
#24=TAN[#2]*#3 (CALC. INCR. RADIAL)
#25=#9*#24/360 (CALC. INCR. RAD. POR INCR. ANGULAR)
#26=0 (CONTADOR ANGULAR - SEMPRE 0)
#27=#22*#26 (CALC. PROF. PELO CONTADOR)
#28=#20-#23 (CALC. DO RAIO FINAL DA ROSCA)
#29=#8+[#21*360/#3] (CALC. DO ANGULO FINAL)
IF [#12 EQ 0] GOTO1
IF [#12 EQ 1] GOTO2
#3000=1 (DEFINIR TIPO DA ROSCA - DIR/ESQ)
N1 #30=1 (ROSCA DIREITA)
GOTO3
N2 #30=-1 (ROSCA ESQUERDA)
N3
(**** PROGRAMA MACRO - NAO MODIFICAR****)
G0 X[#6+[#20*COS[#8]]] Y[#7+[#20*SIN[#8]]]
Z[#4+2]
G1 Z[#4] F[#11]
WHILE [#27 LT #21] DO1
G1 X[#6+[[#20+[#30*#25*#26]]*COS[#8]]] Y[#7+[[#20+[#30*#25*#26]]*SIN[#8]]] Z[#4-#27]
#26=#26-[#30*#9]
#8=#8-[#30*#9]
#27=#27+#22
END1
G1X [#6+[#28*COS[#29]]] Y[#7+[#28*SIN[#29]]] Z[#4-#21]
X[#6] Y[#7]
G0 Z[#4+2]
G53 G0 Z0 G49
M30
%