Interpolação helicoidal parametrizada p/ abrir furos + circulo de furos equidistantes.

Programa CNC parametrizado de interpolação helicoidal para abrir furos mais circulo de furos equidistantes com primeiro furo em qualquer ângulo Ex: 360°÷ 5 = 72° ou seja 5 furos equidistantes 72° com o primeiro furo iniciando no ângulo de 30°.
email: [e-mail]
O0135(INTERPOLACAO HELICOIDAL + CIRCULO DE FUROS)
( INTERPOLACAO HELICOIDAL PARA ABRIR FUROS EQUIDISTANTES)
(PROGRAMADO POR JEREMIAS FERRAZ)
T12M6(FRESA DE TOPO D16MM)
#100=0("Z" INICIAL)
#101=1.0(INCREMENTO EM "Z")
#102=15.55(PROFUNDIDADE DO FURO ACABADO)
#103=5(QUANTIDADE DE FUROS EQUIDISTANTES)
#104=100(DIAMETRO CIRCULO DOS FUROS EQUIDISTANTES)
#110=30(DIAMETRO DOS FUROS ACABADO)
#113=30(ANGULO INICIAL)
#114=12(NUMERO DO CORRETOR DA FERRAMENTA)
#115=16(DIAMETRO DA FRESA)
#116=0(SOBREMETAL P/ ACABAMENTO DOS FUROS VALOR EM DIAMETRO)
G43G0G90H12D#114Z50M8
G54G90S3200M3
G0Z5.0
( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE )
IF[#103EQ0]THEN#103=1
#104=#104/2
#110=#110/2
#116=#116/2
#110=#110-#116
#111=0
#112=360/#103(DIVISAO DOS ANGULOS)
#115=#115/2
#117=0
GOTO33
N22
#100=0
G0Z#100
#110=#110+#116
N33
G10L12P#114R#115(CARREGA RAIO DA FRESA VIA PROGRAMA)
N55
#100=0
G68X0Y0R#113
G0X#104Y0
G90G1Z#100F1000
G41G1D#114Y#110F2000
WHILE[#100LT#102]DO1
#100=#100+#101
IF[#100GT#102]THEN#100=#102
G3J-#110Z-#100
END1
G3J-#110Z-#100(UNIFORMIZAR PLANO)
G40G1Y0
IF[#116EQ0]GOTO44
#117=#117+1
IF[#117EQ1]GOTO22
#110=#110-#116
N44
#117=0
G0G90Z100
#113=#113+#112
#111=#111+1
IF[#111LT#103]GOTO55
G69
G0G90Z200M5
M30

[@negron2010]

Ótima aula Jeremias parabéns

[@jeremiasferraz1341]

Boa noite Rodrigo,
Obrigado pelo elogio e por ser inscrito do canal, se precisar estarei a disposição.

[@eliasfriasmusic2760]

MUITO BOM AS EXCLICAÇÕES , QUERIA SABER SE É POSSIVEL FAZER UMA PROGRAMAÇÃO PARAMETRIZIDA DE UMA FLANGE, SÓ FURAÇÃO, UTILIZANDO O MESMO CONCEITO ACIMA, ONDE EU POSSA MUDAR A QUANTIDADE DE FUROS E ANGULO QUANDO PRECISAR, TENHO UMA PEÇA QUE ESTOU FAZENDO, O DIAMETRO ONDE VAI A FURAÇÃO É DE 98MM REFERNCIA E A FURAÇÃO É EM 90º, E OS FUROS PARTE NA LINHA DE 45º, DEPOIS + 45º ATE FAZER OS 4FUROS.FIZ UM PROGRAMA PARAMETRIZADO MAS ESTA DANDO ERRADO QUENDO COLOCO 90º. VOU DEIXAR AQUI O PROGRAMA.
OBRIGADO
T1M6
G00G90G55X25Y0M3S2000
G43Z22H1M8
G98G81Z-1.5R2F150
#502=45
N10#503=25*COS[#502]
#504=25*SIN[#502]
X#503Y#504
#502=#502+45
IF[#502LT316]GOTO10
QUAO ANGULO DE 45 CONSIGO E 8 FUROS, MAS PRECISO MUDAR AS VEZES PARA OUTRA QUANTIDAE DE FUROS E ANGULO.
O PROGRAMA QUE EU USO É ESTE
O3500(FLANGE 3500 -PA )
IF[#1007EQ0]GOTO5
#3000=1(PALLET.ERRADO)

N5(BROCA-ESCALONADA)
M192
G91G30Z0T5
M98P3501
M8
G90G0G54G43H5X34.648Y34.648Z15S2000M3
G98G83Z-17.5R2.5F250Q5L0
G54M98P3552
/G55M98P3552
/G56M98P3552
G40M9
SUB
O3552( SUB )
X34.648Y34.648
/Y-34.648
/X-34.648
/Y34.648
M99
SISTEMA MITSUBISHI
TODA VEZ QUE TENHO QUE MUDAR O PROGRAM INTEIRO PRA FAZER MAIS FUROS . QUERIA MUDAR APENAS UMA VARIAVEL.
SE PUDER ME AJUDAR AGRADEÇO MUITO OBRIGADO

[@jeremiasferraz1341]

Bom dia Elias, muito bacana, vou entender melhor a sua programação e assim que tiver um tempo apresentarei em um vídeo, aguarde.