0  BEGIN PGM 4020_ES MM 
1  ;Programa NC para mecanizar una superficie
2  ;reglada 3D. Por lo tanto, la herramienta
3  ;se desplaza en cinco ejes. Este movimiento
4  ;de cinco ejes no depende de la cinemática,
5  ;simplemente debe ajustar en la máquina la
6  ;anulación de la inclinación de los ejes.
7  ;
8  ;Introducción de parámetros
9  FN 0: Q1 =+0 ;COORDENADA X 1.º PUNTO
10 FN 0: Q2 =+0 ;COORDENADA Y 1.º PUNTO
11 FN 0: Q3 =-10 ;COORDENADA Z 1.º PUNTO
12 FN 0: Q4 =+60 ;COORDENADA X 2.º PUNTO
13 FN 0: Q5 =+0 ;COORDENADA Y 2.º PUNTO
14 FN 0: Q6 =-25 ;COORDENADA Z 2.º PUNTO
15 FN 0: Q7 =+60 ;COORDENADA X 3.º PUNTO
16 FN 0: Q8 =+60 ;COORDENADA Y 3.º PUNTO
17 FN 0: Q9 =-10 ;COORDENADA Z 3.º PUNTO
18 FN 0: Q10 =+0 ;COORDENADA X 4.º PUNTO
19 FN 0: Q11 =+60 ;COORDENADA Y 4.º PUNTO
20 FN 0: Q12 =-5 ;COORDENADA Z 4.º PUNTO
21 FN 0: Q20 =+500 ;AVANCE AL PROFUNDIZAR
22 FN 0: Q21 =+1500 ;AVANCE DE FRESADO
23 FN 0: Q22 =+1000 ;AVANCE INCREMENTO LATERAL
24 FN 0: Q27 =+1200 ;AVANCE SALIDA
25 FN 0: Q28 =+9999 ;AVANCE POSICIONAMIENTO PREVIO
26 FN 0: Q23 =+1 ;SOBREMEDIDA PROFUND.
27 FN 0: Q24 =+30 ;ALTURA INCREMENTAL DURANTE EL POSICIONAMIENTO
28 FN 0: Q25 =+50 ;DISTANCIA DE SEGURIDAD
29 FN 0: Q26 =+40 ;NÚMERO DE CORTES
30 FN 0: Q29 =+2 ;FACTOR DE DESBASTE
31 ;Fin de la introducción de parámetros
32 ;
33 BLK FORM 0.1 Z X+0 Y+0 Z-60
34 BLK FORM 0.2  X+60  Y+60  Z+0
35 ;
36 ;Llamada de herramienta fresa de mango (desbaste)
37 TOOL CALL 11 Z S15000
38 ;
39 ;Definir programa 40201_es.h como ciclo
40 CYCL DEF 12.0 PGM CALL
41 CYCL DEF 12.1 PGM 40201_es.H
42 ;
43 L  A+0  C+0 R0 FQ28 ;Desplazar eje basculante a cero
44 L  Z+100 R0 FQ28 M3 ;Desplazarse a altura de seguridad
45 CALL LBL 21 ;Llamar cálculos
46 L  X+Q1  Y+Q2 FQ28 M99 ;Desplazarse a la posición inicial y llamar al ciclo
47 ;
48 L  A+0  C+0 R0 FQ28 ;Desplazar eje basculante a cero
49 M129 ;Desactivar función TCPM
50 ;
51 ;Llamada de herramienta fresa de mango (acabado)
52 TOOL CALL 24 Z S18000
53 ;
54 ;Introducir parámetro que se modifica para el acabado.
55 FN 0: Q20 =+500 ;AVANCE AL PROFUNDIZAR
56 FN 0: Q21 =+1200 ;AVANCE DE FRESADO
57 FN 0: Q22 =+1000 ;AVANCE INCREMENTO LATERAL
58 FN 0: Q27 =+1200 ;AVANCE SALIDA
59 FN 0: Q28 =+9999 ;AVANCE POSICIONAMIENTO PREVIO
60 FN 0: Q23 =+0 ;SOBREMEDIDA
61 FN 0: Q29 =+1 ;FACTOR DE DESBASTE
62 ;Fin de la introducción de parámetros
63 ;
64 L  Z+100 R0 FQ28 M3 ;Desplazarse a altura de seguridad
65 CALL LBL 21 ;Llamar cálculos
66 L  X+Q1  Y+Q2 R0 FQ28 M99 ;Desplazarse a la posición inicial y llamar al ciclo
67 L  Z+100 R0 FMAX M5 ;Retirar la hta.
68 L  A+0  C+0 R0 FQ28 ;Desplazar eje basculante a cero
69 FUNCTION RESET TCPM ;Restablecer función TCPM
70 L  Z+100 R0 FQ28 M30 ;Final del programa
71 ;
72 LBL 21 ;variables
73 Q1013 = ATAN ( ( Q3 - Q6 ) / ( Q4 - Q1 ) )
74 Q1014 = ATAN ( ( Q9 - Q6 ) / ( Q8 - Q5 ) )
75 Q1015 = ATAN ( ( Q12 - Q9 ) / ( Q7 - Q10 ) )
76 Q1016 = ATAN ( ( Q12 - Q3 ) / ( Q11 - Q2 ) )
77 CC  X+Q9  Y+Q1013
78 LBL 0
79 END PGM 4020_ES MM