---------FRESAR RAIO CONCAVO INTERNO E EXTERNO---------

--------FRESAR RAIO CONCAVO INTERNO E EXTERNO-------- O0778(FRESAR RAIO CONCAVO INTERNO) (PROGRAMADO POR JEREMIAS FERRAZ) G28G91G0Z0 G90 T12M6(FRESA DE TOPO DIAMETRO 7MM) G43G90G0H12Z80M8 G54G90G40S1800M3 #101=3.5(RAIO RELACIONADO A FACE) #102=90(ANGULO INICIAL NAO ALTERAR) #104=1(INCREMENTO P/ O ANGULO) #105=40.0(DIAMETRO INTERNO DA PECA) #110=7.0(DIAMETRO DA FRESA) ( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE ) #105=#105/2 #110=#110/2 G0Z#101 G54G90G0X0Y0 G52Z#101(DESLOCAMENTO ZERO PECA LOCAL) G1Z0F200 WHILE[#102GT0]DO1 IF[#102GT90]THEN#102=90 #106=-1*SIN[#102]*#101 #107=-1*COS[#102]*#101 #108=[#101-#107] #109=#105-#110-#106 G1X-#109Z-#108F800 G2I#109 #102=#102-#104(INCREMENTO DO ANGULO) END1 G52Z0(.............) G0G90Z30M5 M30 ..................................................................................... ..................................................................................... O0779(FRESAR RAIO CONCAVO EXTERNO) (PROGRAMADO POR JEREMIAS FERRAZ) G28G91G0Z0 G90 T12M6(FRESA DE TOPO DIAMETRO 7MM) G43G90G0H12Z80M8 G54G90G40S1800M3 #101=5.0(RAIO RELACIONADO A FACE) #102=90(ANGULO INICIAL NAO ALTERAR) #104=1(INCREMENTO P/ O ANGULO) #105=126.0(DIAMETRO EXTERNO DA PECA) #110=7.0(DIAMETRO DA FRESA) #111=5.0(DISTANCIA DE SEGURANCA EM X) ( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE ) #105=#105/2 #110=#110/2 G0Z#101 G54G90G0X-[#105+#111]Y0 G52Z#101(DESLOCAMENTO ZERO PECA LOCAL) G1Z0F200 WHILE[#102GT0]DO1 IF[#102GT90]THEN#102=90 #106=-1*SIN[#102]*#101 #107=-1*COS[#102]*#101 #108=[#101-#107] #109=#105+#110+#106 G1X-#109Z-#108F800 G2I#109 #102=#102-#104(INCREMENTO DO ANGULO) END1 G52Z0(.................) G0G90Z30M5 M30