Macro filettatura interna con pettine

Sezione dedicata al G-code, postate qui dubbi o i Vs. lavori in formato G-code.
Rispondi
bigangelman
Junior
Junior
Messaggi: 51
Iscritto il: giovedì 29 settembre 2011, 22:10
Località: Novellara

Macro filettatura interna con pettine

Messaggio da bigangelman » venerdì 13 novembre 2015, 15:30

Questo ciclo fisso è stato testato su centri di lavoro FANUC 16iMB 18iMB 31iMB

Allora... siamo alle solite... mi sfido da solo... ed ecco un altro ciclo fisso pronto all'uso... se ho sbagliato qualcosa, ovviamente correggetemi... vi assicuro che l'ho testato e sulle macchine sopra elencate funziona... ah solo una cosa... l'ultima passata entra con un dente del pettine in meno ed interpola due volte... l'ho fatto cosi perché di solito se il primo dente è usurato o appena scheggiato, il dente dopo riesce a pulire e cosi facendo a garantire che il filetto sia apposto fino in fondo, visto che potrebbe essere un filetto/foro cieco...

Vediamo la leggenda... la R sta per l'accostamento fuori dal pezzo in Z... la Z è la quota finale dove deve arrivare l'ultimo filetto, in Z ovviamente... la S, sta per lo svincolo fuori pezzo in Z una volta finita la lavorazione... D sta per il diametro da filettare... la W è il raggio della fresa a pettine... F è l'avanzamento che usa per attaccare in G42, poi ovviamente interpola con la F impostata in programma... A è l'attacco, A1 in Y+, A2 in X+, A3 in Y- e A4 in X-... B, sta per il numero di denti da utilizzare della fresa pettine... C, è il passo del filetto... detto questo, non resta che provarlo... a Voi le prove... ricordate che è da interno... ed io uso i centri orizzontali... quindi non parto da dentro a filettare, ma da fuori... quindi se lo usate su centro verticale, attenti ai truccioli in fondo se è cieco... :wink:

Questo ciclo lo dedico a TORN24 e a TIRZAN, che mi stanno simpatici a pelle... :D :wink:



%
O9013(FILETT. PETTINE INT. G2)
(#18 R QUOTA INIZIO)
(#26 Z QUOTA FINE)
(#19 S SVINCOLO)
(#7 D DIAMETRO FILETTO)
(#23 W RAGGIO FRESA)
(#9 F AVANZAMENTO)
(#1 A ATTACCO SU/DX/GIU/SX)
(#2 B N. DENTI LAVORO PETTINE)
(#3 C PASSO FILETTO)
(G65P9013R...Z...S...D...W...A...B...C...F...)

IF[#7EQ0]GOTO8000
IF[#7EQ#0]GOTO8000
IF[#9EQ0]GOTO8001
IF[#9EQ#0]GOTO8001
IF[#18EQ0]GOTO8002
IF[#18EQ#0]GOTO8002
IF[#1LE0]GOTO8003
IF[#1GE5]GOTO8003
IF[#1EQ#0]GOTO8003
IF[#26EQ0]GOTO8004
IF[#26EQ#0]GOTO8004
IF[#19EQ0]GOTO8005
IF[#19EQ#0]GOTO8005
IF[#3EQ0]GOTO8007
IF[#3EQ#0]GOTO8007
IF[#23EQ0]GOTO8008
IF[#23EQ#0]GOTO8008
IF[#2EQ0]GOTO8010
IF[#2EQ#0]GOTO8010

#100=[#23*2]
IF[#100GE#7]GOTO8006
#101=#5001(---X---)
#102=#5002(---Y---)
#103=#4109(ULTIMO AVANZ.PROG.)
(#104 RAGGIO DIAM.FILETTO)
#104=#7/2
(#105 QUOTA ARRIVO SU DIAM.)
#105=-#23+#104
(#106 PASSO/2+3MM PER ATTACCO)
#106=[#105-[[#3/2]+3]]
(#107 QUOTA ENTRATA IN Z)
(N. DENTI LAVORO PETTINE)
(PER IL PASSO DA ESEGUIRE)
#107=#2*#3
(#108 QUOTA ULTIMA ENTRATA)
(IN Z X ESEGUIRE 2 INTERP.)
#108=#107-#3
(#109 CALCOLO QUOTA PRIMA PASSATA)
(+ RILASCIO PASSATA PER 2 INTERP.)
#109=#26+#107+#3
#109=#109
#110=#109
WHILE[#109LT#18]DO1
#109=#109+#107+#3
#109=#109
END1
G0X#101Y#102
G52X#101Y#102(AZZERA ASSI X-Y)
G0X0Y0
G0Z#109
IF[#1EQ1]GOTO10(ATTACCO Y+)
IF[#1EQ2]GOTO20(ATTACCO X+)
IF[#1EQ3]GOTO30(ATTACCO Y-)
IF[#1EQ4]GOTO40(ATTACCO X-)

N10
G0Y#106
WHILE[#109GT#110]DO2
#109=#109-#107
#109=#109
G0Z#109
G1G42X0Y#105F#9
G2X0Y#105J-#105Z[#109-#3]F#103
G40G0X0Y#106
#109=#109-#3
END2
#109=#109-#108
#109=#109
G0Z#109
G1G42X0Y#105F#9
G2X0Y#105J-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G2X0Y#105J-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G40G0X0Y#106
GOTO50
N20
G0X#106
WHILE[#109GT#110]DO3
#109=#109-#107
#109=#109
G0Z#109
G1G42X#105Y0F#9
G2X#105Y0I-#105Z[#109-#3]F#103
G40G0X#106Y0
#109=#109-#3
END3
#109=#109-#108
#109=#109
G0Z#109
G1G42X#105Y0F#9
G2X#105Y0I-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G2X#105Y0I-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G40G0X#106Y0
GOTO50
N30
G0Y-#106
WHILE[#109GT#110]DO1
#109=#109-#107
#109=#109
G0Z#109
G1G42X0Y-#105F#9
G2X0Y-#105J#105Z[#109-#3]F#103
G40G0X0Y-#106
#109=#109-#3
END1
#109=#109-#108
#109=#109
G0Z#109
G1G42X0Y-#105F#9
G2X0Y-#105J#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G2X0Y-#105J#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G40G0X0Y-#106
GOTO50
N40
G0X-#106
WHILE[#109GT#110]DO2
#109=#109-#107
#109=#109
G0Z#109
G1G42X-#105Y0F#9
G2X-#105Y0I#105Z[#109-#3]F#103
G40G0X-#106Y0
#109=#109-#3
END2
#109=#109-#108
#109=#109
G0Z#109
G1G42X-#105Y0F#9
G2X-#105Y0I#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G2X-#105Y0I#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G40G0X-#106Y0
N50
G0Z#19
G52X0Y0(RIPRISTINO QUOTE X-Y)
F#103(RIPRISTINO AVANZAMENTO)

M99
N8000#3000=1(#7 MANCA-D-)
N8001#3000=2(#9 MANCA-F-)
N8002#3000=3(#18 MANCA-R-)
N8003#3000=4(#1 ATTACCO NON OK)
N8004#3000=5(#26 MANCA-Z-)
N8005#3000=6(#19 MANCA-S-)
N8006#3000=7(#100 DIAM.UT. GRANDE)
N8007#3000=8(#3 MANCA-C-)
N8008#3000=9(#23 MANCA-W-)
N8010#3000=11(#107 N. DENTI NON OK)
M30
%
Ultima modifica di Anonymous il domenica 15 novembre 2015, 19:04, modificato 1 volta in totale.
Motivazione: modifica titolo su richiesta dell'autore

torn24
God
God
Messaggi: 5047
Iscritto il: venerdì 1 febbraio 2008, 11:28
Località: Modena

Re: Ciclo filettatura a pettine interno in G2

Messaggio da torn24 » venerdì 13 novembre 2015, 16:46

Ti ringrazio della dedica :lol:
Volevo dire, se a te fa piacere che molti "o qualcuno" usi le tue macro, dovresti pensare un titolo migliore al thread, in modo che con una ricerca su google si possa essere indirizzati alla tua macro, esempio, su google faranno ricerche simile a questa "macro per fresatura filetti".
CIAO A TUTTI !

bigangelman
Junior
Junior
Messaggi: 51
Iscritto il: giovedì 29 settembre 2011, 22:10
Località: Novellara

Re: MACRO FILETTATURA INTERNA CON PETTINE

Messaggio da bigangelman » sabato 14 novembre 2015, 7:44

Rieccomi... anche qui lo stesso errore... ho inserito il G42 per nulla... in prova l'errore non mi era stato dato dalla macchina... ma fa nulla... son cosucce che capitano ai migliori... cosi dicono... :D per comodità interna mia ho cambiato l'attacco con la lettera E, quindi E1 in Y+, E2 in X+, E3 in Y- ed E4 in X-... ho aggiunto la funzionalità con A per rotazione in G2/G3 (A2/A3) per poter utilizzare lo stesso ciclo per fare filetti interni sinistri o destri... ricordo che l'ultima passata la fa interpolando due volte per evitare sorprese che il filetto non sia apposto in fondo...

Questa modifica la proverò in macchina lunedi... poi vi dò come sempre conferma di funzionamento...

P.S. Come da consiglio di torn24, prego uno dei moderatori di cambiarmi gentilmente il titolo in "MACRO FILETTATURA INTERNA CON PETTINE"... Grazie mille...


%
O9013(FILETT. PETTINE INT.)
(#18 R QUOTA INIZIO)
(#26 Z QUOTA FINE)
(#19 S SVINCOLO)
(#7 D DIAMETRO FILETTO)
(#23 W RAGGIO FRESA)
(#9 F AVANZAMENTO)
(#8 E ATTACCO SU/DX/GIU/SX)
(#1 A INTERP. G2/G3)
(#2 B N. DENTI LAVORO PETTINE)
(#3 C PASSO FILETTO)
(G65P9013R300Z250S500D100W31.5E1A2B4C3F200)

IF[#7EQ0]GOTO8000
IF[#7EQ#0]GOTO8000
IF[#9EQ0]GOTO8001
IF[#9EQ#0]GOTO8001
IF[#18EQ0]GOTO8002
IF[#18EQ#0]GOTO8002
IF[#8LE0]GOTO8003
IF[#8GE5]GOTO8003
IF[#8EQ#0]GOTO8003
IF[#26EQ0]GOTO8004
IF[#26EQ#0]GOTO8004
IF[#19EQ0]GOTO8005
IF[#19EQ#0]GOTO8005
IF[#3EQ0]GOTO8007
IF[#3EQ#0]GOTO8007
IF[#23EQ0]GOTO8008
IF[#23EQ#0]GOTO8008
IF[#1GT3]GOTO8009
IF[#1LT2]GOTO8009
IF[#2EQ0]GOTO8010
IF[#2EQ#0]GOTO8010

#100=[#23*2]
IF[#100GE#7]GOTO8006
#101=#5001(---X---)
#102=#5002(---Y---)
#103=#4109(ULTIMO AVANZ.PROG.)
(#104 RAGGIO DIAM.FILETTO)
#104=#7/2
(#105 QUOTA ARRIVO SU DIAM.)
#105=-#23+#104
(#106 PASSO/2+3MM PER ATTACCO)
#106=[#105-[[#3/2]+3]]
(#107 QUOTA ENTRATA IN Z)
(N. DENTI LAVORO PETTINE)
(PER IL PASSO DA ESEGUIRE)
#107=#2*#3
(#108 QUOTA ULTIMA ENTRATA)
(IN Z X ESEGUIRE 2 INTERP.)
#108=#107-#3
(#109 CALCOLO QUOTA PRIMA PASSATA)
(+ RILASCIO PASSATA PER 2 INTERP.)
#109=#26+#107+#3
#109=#109
#110=#109
WHILE[#109LT#18]DO1
#109=#109+#107+#3
#109=#109
END1
G0X#101Y#102
G52X#101Y#102(AZZERA ASSI X-Y)
G0X0Y0
G0Z#109
IF[#8EQ1]GOTO10(ATTACCO Y+)
IF[#8EQ2]GOTO20(ATTACCO X+)
IF[#8EQ3]GOTO30(ATTACCO Y-)
IF[#8EQ4]GOTO40(ATTACCO X-)

N10
G1Y#106
WHILE[#109GT#110]DO2
#109=#109-#107
#109=#109
G0Z#109
G1X0Y#105F#9
G#1X0Y#105J-#105Z[#109-#3]F#103
G0X0Y#106
#109=#109-#3
END2
#109=#109-#108
#109=#109
G0Z#109
G1X0Y#105F#9
G#1X0Y#105J-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G#1X0Y#105J-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G0X0Y#106
GOTO50
N20
G1X#106
WHILE[#109GT#110]DO3
#109=#109-#107
#109=#109
G0Z#109
G1X#105Y0F#9
G#1X#105Y0I-#105Z[#109-#3]F#103
G0X#106Y0
#109=#109-#3
END3
#109=#109-#108
#109=#109
G0Z#109
G1X#105Y0F#9
G#1X#105Y0I-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G#1X#105Y0I-#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G0X#106Y0
GOTO50
N30
G1Y-#106
WHILE[#109GT#110]DO1
#109=#109-#107
#109=#109
G0Z#109
G1X0Y-#105F#9
G#1X0Y-#105J#105Z[#109-#3]F#103
G0X0Y-#106
#109=#109-#3
END1
#109=#109-#108
#109=#109
G0Z#109
G1X0Y-#105F#9
G#1X0Y-#105J#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G#1X0Y-#105J#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G0X0Y-#106
GOTO50
N40
G1X-#106
WHILE[#109GT#110]DO2
#109=#109-#107
#109=#109
G0Z#109
G1X-#105Y0F#9
G#1X-#105Y0I#105Z[#109-#3]F#103
G0X-#106Y0
#109=#109-#3
END2
#109=#109-#108
#109=#109
G0Z#109
G1X-#105Y0F#9
G#1X-#105Y0I#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G#1X-#105Y0I#105Z[#109-#3]F#103
(FORZO LA VAR. X CONTEGGIO)
#109=#109-#3
#109=#109
G0X-#106Y0
N50
G0Z#19
G52X0Y0(RIPRISTINO QUOTE X-Y)
F#103(RIPRISTINO AVANZAMENTO)

M99
N8000#3000=1(#7 MANCA-D-)
N8001#3000=2(#9 MANCA-F-)
N8002#3000=3(#18 MANCA-R-)
N8003#3000=4(#8 ATTACCO NON OK)
N8004#3000=5(#26 MANCA-Z-)
N8005#3000=6(#19 MANCA-S-)
N8006#3000=7(#100 DIAM.UT. GRANDE)
N8007#3000=8(#3 MANCA-C-)
N8008#3000=9(#23 MANCA-W-)
N8009#3000=10(COMANDO G2-G3 NON OK)
N8010#3000=11(#2 N. DENTI NON OK)
M30
%

bigangelman
Junior
Junior
Messaggi: 51
Iscritto il: giovedì 29 settembre 2011, 22:10
Località: Novellara

Re: Macro filettatura interna con pettine

Messaggio da bigangelman » lunedì 16 novembre 2015, 11:07

Testato il tutto... Va da Dio... :D

Rispondi

Torna a “G-code”