---------FRESAR CAVIDADE EM RAMPA QUADRADO/RETANGULAR---------

Описание: --------FRESAR CAVIDADE EM RAMPA QUADRADO/RETANGULAR--------
O0078(FRESAR CAVIDADE QUADRADO/RETANGULAR EM RAMPA)
(PROGRAMADO POR JEREMIAS FERRAZ)
G69
G91G28G0Z0
G90
G49T2M6G54G90G40G0(FRESA DIAMETRO 4MM)
G43G0G90H2Z50.0
G54G0X0Y0S2200M3
G0Z5
G1Z-10F350
G0Z200

G91G28G0Z0
G90 G69
G49T1M6G54G90G40G0(FRESA DIAMETRO 4MM)
G43G0G90H1Z50.0
S1800M3

#22=45(ANGULO DE ROTACAO DA CAVIDADE)
G54
G68X0Y0R#22(ROTACAO DO SISTEMA DE COORDENADAS)

#18=0(NAO ALTERAR)
N1
#1=60(COMPRIMENTO SUPERIOR DA CAVIDADE NO SENTIDO DO EIXO "X")
#2=50(COMPRIMENTO SUPERIOR DA CAVIDADE NO SENTIDO DO EIXO "Y")
#4=0(Z INICIAL NAO ALTERAR)
#5=40(NUMERO DE PASSES PARA INCREMENTO EM "Z")
#8=11(DIAMETRO DA FRESA)
#6=65(ANGULO DA RAMPA RELACIONADO COM A FACE)
#9=5(DISTANCIA DE SEGURANCA AFASTAMENTO EM "Z")
#10=10(RAIO DOS CANTOS)
#11=5(VALOR DESEJADO PARA INCLINACAO DA CAVIDADE )
( AJUSTAR VALORES DA DIVISÃO DE PASSES CONFORME NECESSIDADE )
#19=3.5(AJUSTE P/ PRIMEIRO PASSE)
#20=2.5(AJUSTE P/ SEGUNDO PASSE)
#21=2(PASSE FINAL NAO ALTERAR)

( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE )

#16=#8/2
IF[#18EQ0]THEN#10=0
IF[#18EQ1]THEN#10=0
IF[#18EQ0]THEN#1=[[#1/#19]-#16](X INICIAL)
IF[#18EQ0]THEN#2=[[#2/#19]-#16](Y INICIAL)

IF[#18EQ1]THEN#1=[[#1/#20]-#16](X INICIAL)
IF[#18EQ1]THEN#2=[[#2/#20]-#16](Y INICIAL)

IF[#18EQ2]THEN#1=[[#1/#21]-#16](X INICIAL)
IF[#18EQ2]THEN#2=[[#2/#21]-#16](Y INICIAL)

#7=#11*TAN[#6](ALTURA TOTAL DA CAVIDADE EM "Z")
#15=#7/#5(CALCULO DO INCREMENTO EM "Z")
#12=#15/TAN[#6](CALCULO DO INCREMENTO EM "X")
#10=#10-#16

G0X#1Y0
G0Z#9
G1Z0F200
WHILE[#4LE#7]DO1
G1X#1Z-#4F800
G1Y-#2,R#10
G1X-#1,R#10
G1Y#2,R#10
G1X#1,R#10
G1Y0
#1=#1-#12
#2=#2-#12
#4=#4+#15
END1
G0Z#9
#18=#18+1
IF[#18LE2]GOTO1
G69
G0G90Z200M5
M9

G91G28G0Z0

M30