0 BEGIN PGM 1015_ES MM 
1 ;Programa para la definición de un patrón de puntos en
2 ;forma de una espiral con distancias constantes entre
3 ;posiciones.
4 ;Para el mecanizado se llama un ciclo de mecanizado en
5 ;las posiciones calculadas. En este programa un ciclo
6 ;de taladrado. Tras la definición de todos los
7 ;parámetros que se precisan, de la herramienta y del
8 ;ciclo de mecanizado, se llama un subprograma en el
9 ;que se calculan las posiciones individuales y se hace
10 ;la aproximación a las mismas, y se ejecuta el ciclo.
11 ;
12 ;Introducción de parámetros
13 FN 0: Q1 =+45 ;RADIO FINAL
14 FN 0: Q2 =+5 ;RADIO INICIAL
15 FN 0: Q3 =+60 ;PASO ANGULAR INICIAL
16 FN 0: Q4 =+2.5 ;PASO DEL RADIO
17 FN 0: Q5 =+50 ;CENTRO EN EL eje X
18 FN 0: Q6 =+50 ;CENTRO EN EL EJE Y
19 FN 0: Q7 =+2 ;DISTANCIA DE SEGURIDAD
20 FN 0: Q8 =+20 ;ROTACIÓN
21 ;Fin de la introducción de parámetros
22 ;
23 BLK FORM 0.1 Z X+0 Y+0 Z-12
24 BLK FORM 0.2  X+100  Y+95  Z+0
25 ;
26 ;Llamada de herramienta Broca
27 TOOL CALL 225 Z S2000
28 ;
29 ;Definición ciclo de mecanizado
30 CYCL DEF 1.0 TALADRADO PROFUNDO
31 CYCL DEF 1.1 DIST2
32 CYCL DEF 1.2 PROF-10
33 CYCL DEF 1.3 PASO10
34 CYCL DEF 1.4 T.ESPR0
35 CYCL DEF 1.5 F1000
36 ;
37 CC  X+Q5  Y+Q6 ;Definir centro
38 LP  PR+0  PA+0 R0 FMAX M3 ;Posicionamiento previo en el centro
39 CYCL DEF 10.0 GIRO
40 CYCL DEF 10.1  ROT+Q8
41 CALL LBL 2 ;Llamada cálculos
42 ;Retirar la herramienta y final del programa
43 L  Z+100 R0 F9999 M2
44 ;
45 LBL 2 ;Cálculos
46 LP  PR+Q2  PA+0 R0 F9998
47 L  Z+Q7
48 FN 0: Q14 =+Q4
49 FN 0: Q13 =+Q3
50 FN 3: Q34 =+Q2 * +Q4
51 FN 3: Q33 =+Q2 * +Q3
52 FN 0: Q24 =+Q2
53 FN 0: Q23 =+0
54 LBL 1
55 FN 4: Q14 =+Q34 DIV +Q24
56 FN 4: Q13 =+Q33 DIV +Q24
57 FN 1: Q24 =+Q24 + +Q14
58 FN 1: Q23 =+Q23 + +Q13
59 LP  PR+Q24  PA+Q23 M99 ;Ir a la posición y llamada del ciclo
60 FN 11: IF +Q1 GT +Q24 GOTO LBL 1 ;Comparar si el radio final se ha alcanzado
61 LBL 0
62 END PGM 1015_ES MM