0 BEGIN PGM 1020_ES MM
1 ;Programa para la definición de un patrón de puntos
2 ;en forma de cuadrícula. Para el mecanizado se
3 ;llama un ciclo de mecanizado en las posiciones
4 ;calculadas. En este programa un ciclo de taladrado.
5 ;Tras la definición de todos los parámetros que se
6 ;precisan, de la herramienta y del ciclo de mecanizado,
7 ;se llama un subprograma en el que se calculan las
8 ;posiciones individuales y se hace la aproximación a
9 ;las mismas, y se ejecuta el ciclo.
10 ;
11 ;Introducción de parámetros
12 FN 0: Q1 =+10 ;PUNTO INICIAL EN EL EJE X
13 FN 0: Q2 =+10 ;PUNTO INICIAL EN EL EJE Y
14 FN 0: Q3 =+9 ;DISTANCIA DE LOS MECANIZADOS EN X
15 FN 0: Q4 =+12 ;DISTANCIA DE LOS MECANIZADOS EN Y
16 FN 0: Q5 =+10 ;NÚMERO DE MECANIZADOS EN X
17 FN 0: Q6 =+7 ;NÚMERO DE MECANIZADOS EN Y
18 FN 0: Q7 =+5 ;ROTACIÓN
19 FN 0: Q8 =+2 ;DISTANCIA DE SEGURIDAD
20 ;Fin de la introducción de parámetros
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-25
23 BLK FORM 0.2  X+100  Y+100  Z+0
24 ;
25 ;Llamada de herramienta Broca
26 TOOL CALL 227 Z S1000
27 ;
28 ;Definición ciclo de mecanizado
29 CYCL DEF 1.0 TALADRADO PROFUNDO
30 CYCL DEF 1.1 DISTQ8
31 CYCL DEF 1.2 PROF-20
32 CYCL DEF 1.3 PASO10
33 CYCL DEF 1.4 T.ESPR0
34 CYCL DEF 1.5 F100
35 ;
36 CALL LBL 1 ;Llamada subprograma Posiciones
37 ;
38 ;Retirar la herramienta y final del programa
39 L  Z+50 R0 FMAX M2
40 ;
41 LBL 1
42 FN 0: Q21 =+0 ;Posición actual en el eje X
43 FN 0: Q22 =+0 ;Posición actual en el eje Y
44 FN 0: Q25 =+0 ;Columna actual
45 FN 0: Q26 =+0 ;Fila actual
46 FN 0: Q23 =+Q3 ;Amplitud del paso X
47 ;Desplazar el punto cero a la primera posición
48 CYCL DEF 7.0 PUNTO CERO
49 CYCL DEF 7.1  X+Q1
50 CYCL DEF 7.2  Y+Q2
51 ;Establecer rotación
52 CYCL DEF 10.0 GIRO
53 CYCL DEF 10.1  ROT+Q7
54 LBL 2 ;Despl. a posición
55 L  X+Q21  Y+Q22 R0 F9999 M3 ;Despl. a posición
56 L  Z+Q8 R0 F9999 M99 ;Desplazarse a la distancia de seguridad y llamar el ciclo
57 LBL 3 ;Calcular la nueva posición
58 FN 1: Q21 =+Q21 + +Q23 ;Paso X
59 FN 1: Q25 =+Q25 + +1 ;Seguir contando columnas
60 FN 12: IF +Q25 LT +Q5 GOTO LBL 2
61 FN 0: Q25 =+0 ;Resetear contador de columnas
62 FN 1: Q26 =+Q26 + +1 ;Seguir contando fila
63 FN 0: Q23 =-Q23 ;Invertir la amplitud del paso X
64 FN 1: Q21 =+Q21 + +Q23 ;Compensar paso X
65 FN 1: Q22 =+Q22 + +Q4 ;Paso Y
66 FN 12: IF +Q26 LT +Q6 GOTO LBL 2
67 ;Reponer punto cero y rotación
68 CYCL DEF 7.0 PUNTO CERO
69 CYCL DEF 7.1  X+0
70 CYCL DEF 7.2  Y+0
71 CYCL DEF 10.0 GIRO
72 CYCL DEF 10.1  ROT+0
73 LBL 0
74 END PGM 1020_ES MM