0 BEGIN PGM 4235_IT MM 1 ;Programma NC per la creazione di un foro 2 ;inclinato. 3 ;Per evitare inutili movimenti a vuoto e 4 ;poter eseguire la lavorazione con un 5 ;utensile possibilmente corto, la 6 ;lavorazione viene eseguita nei seguenti 7 ;passi. 8 ;Inizialmente si definiscono tutti i 9 ;parametri necessari per la lavorazione e 10 ;l'utensile. In seguito il controllo 11 ;numerico esegue alcuni calcoli. 12 ;Successivamente il controllo numerico 13 ;posiziona l'utensile perpendicolarmente 14 ;alla superficie, al centro della 15 ;lavorazione ed esegue un ciclo per tasca 16 ;circolare. Con questo ciclo il controllo 17 ;numerico crea un foro del nucleo 18 ;possibilmente grande. 19 ;Successivamente il controllo numerico 20 ;avvicina l'utensile, si porta a una 21 ;profondità precedentemente calcolata che 22 ;si compone della profondità di fresatura 23 ;e di un offset affinché il bordo 24 ;inferiore del foro coincida con la 25 ;profondità di fresatura. In seguito 26 ;l'utensile si sposta su una traiettoria 27 ;dell'ellisse e crea il profilo del foro. 28 ;Alla fine del programma il controllo 29 ;numerico riporta l'utensile al centro, 30 ;riposiziona gli assi rotativi su 0, 31 ;disattiva il TCPM e termina il 32 ;programma. 33 ; 34 ; 35 BLK FORM 0.1 Z X+0 Y+0 Z-15 36 BLK FORM 0.2 X+100 Y+100 Z+0 37 ; 38 ;Immissione parametri 39 FN 0: Q1 =+25 ;RAGGIO FORO 40 FN 0: Q3 =+0 ;ANGOLO DI PARTENZA 41 FN 0: Q4 =+360 ;ANGOLO FINALE 42 FN 0: Q7 =+50 ;CENTRO FORO X 43 FN 0: Q8 =+50 ;CENTRO FORO Y 44 FN 0: Q9 =+0 ;COORDINATA SUPERFICIE 45 FN 0: Q11 =-10 ;ANGOLO DI INCLINAZIONE A 46 FN 0: Q12 =-20 ;PROFONDITA' DI FRESATURA 47 FN 0: Q20 =+1500 ;AVANZAMENTO IN PROFONDITA' 48 FN 0: Q21 =+2000 ;AVANZAMENTO FRESATURA 49 FN 0: Q25 =+5 ;POSIZIONE DI SICUREZZA Z 50 FN 0: Q26 =+360 ;DIVISIONE 51 ;Fine immissione parametri 52 ; 53 ;Chiamata utensile fresa 54 TOOL CALL 8 Z S3000 55 ; 56 ;Calcoli 57 Q38 = COS Q11 ;Conversione dell'angolo di inclinazione 58 FN 4: Q60 =+Q1 DIV +Q38 ;Semiasse Y per foro del nucleo 59 Q61 = Q12 ;Profondità del foro del nucleo 60 Q62 = SIN Q11 * Q108 ;Offset Z per la traiettoria inclinata 61 FN 12: IF +Q62 LT +0 GOTO LBL 22 ;Verificare se il valore dell'offset è negativo in Z 62 LBL 23 63 Q12 = Q12 - Q62 ;Profondità Z per traiettoria inclinata 64 Q1 = Q1 - Q108 ;Raggio compensato per traiettoria utensile inclinata 65 Q27 = Q12 * TAN Q11 ;Offset del centro da profilo superiore rispetto a quello inferiore 66 Q29 = Q27 ;Scrittura offset in parametri per confronto 67 FN 4: Q2 =+Q1 DIV +Q38 ;Semiasse Y con compensazione raggio 68 FN 12: IF +Q29 LT +0 GOTO LBL 20 ;Verificare se il valore dell'offset è positivo 69 LBL 21 70 Q28 = ( Q60 * 2 ) - ( Q29 * 2 ) ;Diametro foro del nucleo 71 ;Fine calcoli 72 ; 73 ;Fresatura foro del nucleo 74 L Z+100 R0 F9998 M3 ;Posizionamento ad altezza di sicurezza 75 L X+Q7 Y+Q8 R0 FMAX ;Posizionamento dell'utensile al centro 76 CYCL DEF 252 TASCA CIRCOLARE ~ Q215=+1 ;TIPO LAVORAZIONE ~ Q223=+Q28 ;DIAMETRO CERCHIO ~ Q368=+0.1 ;QUOTA LATERALE CONS. ~ Q207=+Q21 ;AVANZAM. FRESATURA ~ Q351=+1 ;MODO FRESATURA ~ Q201=+Q61 ;PROFONDITA ~ Q202=+5 ;PROF. INCREMENTO ~ Q369=+0 ;PROFONDITA' CONSEN. ~ Q206=+Q20 ;AVANZ. INCREMENTO ~ Q338=+0 ;INCREMENTO FINITURA ~ Q200=+Q25 ;DISTANZA SICUREZZA ~ Q203=+Q9 ;COORD. SUPERFICIE ~ Q204=+Q25 ;2. DIST. SICUREZZA ~ Q370=+1 ;SOVRAPP.TRAIET.UT. ~ Q366=+1 ;PENETRAZIONE ~ Q385=+500 ;AVANZAMENTO FINITURA 77 M99 ;Chiamata ciclo 78 ;Foro del nucleo realizzato 79 ; 80 ;Fresatura superficie inclinata 81 ;Spostamento origine al centro della lavorazione 82 CYCL DEF 7.0 PUNTO ZERO 83 CYCL DEF 7.1 X+Q7 84 CYCL DEF 7.2 Y+Q8 85 CYCL DEF 7.3 Z+Q9 86 ;Ulteriore spostamento origine in valore incrementale dell'offset 87 CYCL DEF 7.0 PUNTO ZERO 88 CYCL DEF 7.1 IY-Q27 89 ; 90 CC X+0 Y+0 ;Definizione centro cerchio 91 L X+0 Y+0 R0 F9998 ;Preposizionamento in X e Y 92 L Z+Q25 ;Preposizionamento in Z 93 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL AXIS ;Attivazione TCPM 94 L A+Q11 B+0 C+0 R0 F9998 ;Rotazione dell'angolo di inclinazione 95 ; 96 CALL LBL 10 ;Richiamo della lavorazione 97 ; 98 L Z+100 R0 F9998 M2 ;Disimpegno e fine programma 99 ; 100 ; 101 ;Sottoprogrammi per la lavorazione 102 LBL 10 103 FN 0: Q36 =+Q3 ;Angolo corrente uguale ad angolo di partenza 104 FN 2: Q35 =+Q4 - +Q3 ;Angolo di apertura 105 FN 4: Q35 =+Q35 DIV +Q26 ;Passo angolare 106 FN 0: Q46 =+0 ;Contatore 107 CALL LBL 2 ;Chiamata calcolo 108 L Z+Q43 R0 FQ20 ;Raggiungimento primo punto in Z 109 L X+Q41 Y+Q42 R0 FQ20 M3 ;Raggiungimento primo punto in X e Y 110 LBL 1 ;Ripetizioni 111 FN 1: Q36 =+Q36 + +Q35 ;Calcolo del nuovo angolo 112 FN 1: Q46 =+Q46 + +1 ;Avanzamento contatore 113 CALL LBL 2 ;Chiamata dei calcoli 114 L X+Q41 Y+Q42 Z+Q43 FQ21 ;Raggiungimento del nuovo punto 115 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Confronto del contatore 116 L X+0 Y+0 R0 F9998 ;Posizionamento al centro 117 L Z+Q25 ;Posizionamento ad altezza di sicurezza nell'asse Z 118 L A+0 B+0 C+0 R0 F9998 ;Riposizionamento assi rotativi 119 FUNCTION RESET TCPM ;Disattivazione TCPM 120 ;Reset dello spostamento origine 121 CYCL DEF 7.0 PUNTO ZERO 122 CYCL DEF 7.1 X+0 123 CYCL DEF 7.2 Y+0 124 CYCL DEF 7.3 Z+0 125 LBL 0 ;Ritorno 126 ; 127 LBL 2 ;Calcoli nuova posizione 128 FN 7: Q31 = COS +Q36 ;Calcolo della nuova coordinata X 129 FN 3: Q31 =+Q31 * +Q1 ;Calcolo della nuova coordinata X 130 FN 3: Q41 =+Q31 * +1 ;Calcolo della nuova coordinata X 131 FN 6: Q32 = SIN +Q36 ;Calcolo della nuova coordinata Y 132 FN 3: Q32 =+Q32 * +Q2 ;Calcolo della nuova coordinata Y 133 FN 3: Q42 =+Q32 * +1 ;Calcolo della nuova coordinata Y 134 FN 0: Q43 =+Q12 ;Coordinata Z 135 LBL 0 136 ; 137 ;Sottoprogramma per impostare l'offset in Y positivo 138 LBL 20 139 Q29 = Q29 * - 1 ;Moltiplicazione dell'offset negativo per -1 140 FN 9: IF +0 EQU +0 GOTO LBL 21 ;Ritorno nel programma principale 141 LBL 0 142 ; 143 ;Sottoprogramma per impostare l'offset in Z positivo 144 LBL 22 145 Q62 = Q62 * - 1 ;Moltiplicazione dell'offset negativo per -1 146 FN 9: IF +0 EQU +0 GOTO LBL 23 ;Ritorno nel programma principale 147 LBL 0 148 END PGM 4235_IT MM