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...
Questo ciclo lo dedico a TORN24 e a TIRZAN, che mi stanno simpatici a pelle...
%
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
%