-------------FRESAR CAVIDADE RETANGULAR + RAMPA INTERNA------------- скачать в хорошем качестве

-------------FRESAR CAVIDADE RETANGULAR + RAMPA INTERNA-------------

------------FRESAR CAVIDADE RETANGULAR + RAMPA INTERNA------------ O0460(FRESAR CAVIDADE RETANGULAR + RAMPA INTERNA) (PROGRAMADO POR JEREMIAS FERRAZ) (FRESAR CAVIDADE RETANGULAR-----------------) G21G17G90G40G69G15 G91G0G28Z0 G90 T1M6(FRESA DE TOPO DIAMETRO 20MM) #101=0("Z" INICIAL) #102=1(INCREMENTO EM "Z") #103=-25(PROFUNDIDADE FINAL EM "Z" VALOR NEGATIVO) #104=35(COMPRIMENTO TOTAL EM "X") #105=35(COMPRIMENTO TOTAL EM "Y") #107=11(DIAMETRO DA FRESA) #108=7(RAIO DOS CANTOS) #109=800(AVANCO DA FRESA) #110=2000(ROTACAO DA FRESA) #123=3(APROXIMACAO DE SEGURANCA EM Z) ( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE ) #104=#104/2 #105=#105/2 #107=#107/2 #112=#104-#107 #113=#105-#107 #116=0(INICIO EM X) #117=0(INICIO EM Y) #122=[#107*75]/100(75 PORC. DA FRESA P/ INCREMENTO) G54G90G40G0X0Y0S#110M3 G43G0Z100H1M8 G0Z#123 N1 #101=[#101-[+#102]] IF[#101LT#103]THEN#101=#103 G1Z#101F200 #116=0(INICIO EM X) #117=0(INICIO EM Y) WHILE[#116LT#112]DO1(CONTROLE RELACIONADO AO EIXO MAIOR) #118=#108-#107 #116=#116+#122 #117=#117+#122 IF[#116GE#112]THEN#116=#112 IF[#117GE#113]THEN#117=#113 G1Y-#117F#109 G1X#116,R#118 G1Y#117,R#118 G1X-#116,R#118 G1Y-#117,R#118 G1X0 END1 G91G0Z2 G90G0Y0 IF[#101GT#103]GOTO1 G0G90Z100M5 (FRESAR RAMPA INTERNA-----------------) G91G28G0Z0 G90 T1M6(FRESA DE TOPO RETO DIAMETRO 11MM) G54G90G40 #1=55(COMPRIMENTO EM "X") #10=55(COMPRIMENTO EM "Y") #11=8(COMPRIMENTO DO CHANFRO EM X RELACIONADO COM A FACE) #2=11(DIAMETRO DA FRESA) #4=0(Z INICIAL) #5=50(NUMERO DE PASSES INCREMENTO EM Z) #6=60(ANGULO DA RAMPA RELACIONADO COM A FACE) #8=10(DISTANCIA DE SEGURANCA AFASTAMENTO EM X) #9=5(DISTANCIA DE SEGURANCA AFASTAMENTO EM Z) #114=0("0" FRESA DE TOPO RETO "1" FRESA DE TOPO ESFERICA) #125=10(RAIO DOS CANTOS) (NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE) #112=[#2/2]*SIN[#6] (CALCULO P/ FRESA ESFERICA "Y") #113=[#112]*TAN[#6/2](CALCULO P/ FRESA ESFERICA "Z") #117=#2 IF[#114EQ0]THEN#112=0 IF[#114EQ0]THEN#113=0 IF[#114EQ1]THEN#117=0 #3=[[#1-[#11*2]]+#117+#112]/2(X INICIAL) #23=[[#10-[#11*2]]+#117+#112]/2(Y INICIAL) #7=#11*TAN[#6]+#113(ALTURA DO CHANFRO EM Z RELACIONADO A FACE) #15=#7/#5(CALCULO DO INCREMENTO EM Z) #12=#15/TAN[#6](CALCULO DO INCREMENTO EM X) G0X[#3-#8]Y0 G43G0G90Z50H1 S1800M3 G0Z#9 G1Z0F200 WHILE[#4LE#7]DO1 #3=#3-#12 #23=#23-#12 #4=#4+#15 G1X#3Z-#4F800 G1Y-#23,R#125 G1X-#3,R#125 G1Y#23,R#125 G1X#3,R#125 G1Y0 END1 G0G90Z80M5 M30