0  BEGIN PGM 51001_ES MM 
1  ;Programa para realizar un taladro
2  ;perpendicularmente en una pieza.
3  ;
4  ;Llamada a la herramienta
5  TOOL CALL 7 Z S4000 F300
6  ;
7  L  Z+100 R0 FMAX M3 ;Desplazarse a altura de seguridad
8  L  X+Q7  Y+Q8 R0 FMAX ;Posicionamiento previo
9  ;Desplazar punto cero al centro del
10 ;taladro. Desplazamiento Z a la
11 ;posición en torno a la cual se
12 ;va a inclinar el espacio de
13 ;trabajo.
14 CYCL DEF 7.0 PUNTO CERO
15 CYCL DEF 7.1  Z+Q9
16 CYCL DEF 7.2  X+Q7
17 CYCL DEF 7.3  Y+Q8
18 ;Inclinación del plano de mecanizado
19 CYCL DEF 19.0 PLANO DE TRABAJO
20 CYCL DEF 19.1  A+Q11  B+0  C+0
21 ;Desplazar ejes rotativos a la posición
22 L  A+Q120  B+Q121  C+Q122 R0 FMAX
23 CYCL DEF 252 CAJERA CIRCULAR ~
    Q215=+0    ;TIPO MECANIZADO ~
    Q223=+42   ;DIAMETRO CIRCULO ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q207=+600  ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-80   ;PROFUNDIDAD ~
    Q202=+5    ;PASO PROFUNDIZACION ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q206=+300  ;AVANCE PROFUNDIDAD ~
    Q338=+0    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=+25   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385=+500  ;AVANCE ACABADO
24 L  X+0  Y+0 R0 FMAX
25 M99
26 M140 MB MAX F9999 ;Retirar la hta.
27 ;Cancelar la inclinación del espacio de trabajo
28 CYCL DEF 19.0 PLANO DE TRABAJO
29 CYCL DEF 19.1  A+0  B+0  C+0
30 CYCL DEF 19.0 PLANO DE TRABAJO
31 CYCL DEF 19.1
32 ;Restablecer los ejes rotativos a cero
33 L  A+Q120  B+Q121  C+Q122 R0 FMAX
34 ;Cancelar decalaje de punto cero
35 CYCL DEF 7.0 PUNTO CERO
36 CYCL DEF 7.1  X+0
37 CYCL DEF 7.2  Y+0
38 CYCL DEF 7.3  Z+0
39 END PGM 51001_ES MM