Programa CNC p/ comando Fanuc e similares na descrição do vídeo.
e-mail: jeremias.ferraz@yahoo.com
O0013(USINAGEM DE UM PRISMA)
(PROGRAMADO POR: JEREMIAS FERRAZ)
G69(CANCELAR ROTACAO DO SISTEMA DE COORDENADAS)
G52X0Y0(CANCELAR DESLOCAMENTO DE DPZ LOCAL)
G91G28G0Z0
G90
G49T7M6G54G90G40G0(FRESA TOPO DIAMETRO 8MM)
G43G0G90H7Z80.0
(USINAGEM DAS RAMPAS....................)
#28=-282.5(VALOR DO ZERO PECA EM "Y")
#23=65(COMPRIMEMTO TOTAL EM "Y" LADO MENOR)
#24=10(LARGURA DO CANAL FINAL DA RAMPA SEMPRE IGUAL OU MAIOR QUE O DIAMETRO DA FRESA)
#25=15(COMPRIMENTO DO CHANFRO RELACIONADO A FACE EM "Y")
#26=[[#23-[#25*2]]-#24]/2
#27=#23-#25-#26
G10L2P1Y[#28+#27](DESLOCAR PONTO ZERO EM "Y")
#11=0(ANGULO INICIAL DO CHANFRO NAO ALTERAR)
#18=0(CONTADOR INICIAL NAO ALTERAR)
GOTO66
N55
G10L2P1Y[#28-#27](DESLOCAR PONTO ZERO EM "Y")
N66
G54
S3200M3(ROTACAO)
#1=8(DIAMETRO DA FRESA)
#2=45(ANGULO RELACIONADO A FACE PLANO ZERO)
#3=#25(COMPRIMENTO DO CHANFRO RELACIONADO A FACE EM "Y")
#7=80.0(COMPRIMEMTO TOTAL EM "X" LADO MAIOR)
#22=#23(COMPRIMEMTO TOTAL EM "Y" LADO MENOR)
#9=50(NUMERO DE PASSES P/ INCREMENTO EM "Z")
#10=10(AFASTAMENTO DE SEGURANCA EM "X")
#14=0("0" FRESA DE TOPO RETO "1" FRESA DE TOPO ESFERICA)
#16=800(AVANCO P/ USINAGEM DA RAMPA)
#110=#7(COMPRIMEMTO TOTAL EM "X" LADO MAIOR)
(NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE)
#20=#7/2(CALCULO P/ DESLOCAMENTO DO ZERO PECA EM "X")
#21=#22/2(CALCULO P/ DESLOCAMENTO DO ZERO PECA EM "Y")
#8=#3*TAN[#2](ALTURA DO CHANFRO RELACIONADOA FACE EM "Z")
#4=#8/#9
#1=#1/2
#6=[#7/2]
#7=[#22/2]-#3
#12=[#1]*SIN[#2](CALCULO P/ FRESA ESFERICA"Y")
#13=[#12]*TAN[#2/2](CALCULO P/ FRESA ESFERICA "Z")
#17=#1
IF[#14EQ0]THEN#12=0
IF[#14EQ0]THEN#13=0
IF[#14EQ1]THEN#17=0
#5=#4/TAN[#2]("Y" ATUANTE)
#15=#4(SOMA P/ INCREMENTO DA VARIAVEL "4")
G52X#20Y#21(DESLOCAMENTO DE PONTO ZERO LOCAL)
G68X0Y0R#11(ROTACAO DO SISTEMA DE COORDENADAS)
G90G0X[#6+#1+#10]Y-[#7+#5+#17+#12]
G0Z5.0
G1Z-[#4+#13]F#16
WHILE[#4LE#8]DO1
G90G0X[#6+#1+#10]Y-[#7+#5+#17+#12]Z-[#4+#13]
G1X-[#6+#1+#10]F#16
G0Z5.0
G0X[#6+#1+#10]
#4=#4+#15(REDEFINIR Z)
#5=#4/TAN[#2]("Y" ATUANTE)
END1
G69
G52X0Y0
G0Z30
#11=#11+180
#18=#18+1
IF[#18EQ1]GOTO55
N555
G10L2P1Y#28(RETORNAR P/ ZERO PECA EM "Y")
IF[#14EQ1]GOTO77
(USINAGEM DA LARGURA DO CANAL...............)
#100=4.0(PROFUNDIDADE DO CANAL FINAL DA RAMPA)
#102=0.5(INCREMENTO EM "Z")
#105=800(AVANCO P/ USINAGEM DO CANAL)
(NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE)
#101=-1*#25(INICIAL EM "Z")
#103=[#101-[#100]](PROFUNDIDADE DO CANAL FINAL DA RAMPA)
#106=#24/2
#107=#101
#108=#1-#106
G54G90G0X[#110+#1+10]Y[[#23/2]+#108]
G0Z[#107+[#100]]
WHILE[#101GT#103]DO1
#101=[#101-[#102]]
IF[#101LT#103]THEN#101=#103
N1001
G0X[#110+#1+10]Y[[#23/2]+#108]
G0Z#101
G1X-[[#1*2]+10]F#105
G0Z[#107+[#100]]
(.................)
G0X[#110+#1+10]Y[[#23/2]-#108]
G0Z#101
G1X-[[#1*2]+10]F#105
G0Z[#107+[#100]]
END1
N77
N2001
G54
G90G0Z100.0M5
M9
M30
30 сен 2024