0  BEGIN PGM 7035_ES MM 
1  ;Programa para mecanizado exterior de un cuerpo
2  ;con forma de toro vertical.
3  ;El mecanizado se ejecuta con una fresa esférica
4  ;desplazando la trayectoria de fresado por el
5  ;plano X/Z y la aproximación lateralmente por el
6  ;plano X/Y.
7  ;
8  ;Introducción de parámetros
9  FN 0: Q1 =+0 ;CENTRO PRIMER EJE
10 FN 0: Q2 =+0 ;CENTRO SEGUNDO EJE
11 FN 0: Q3 =+30 ;RADIO DEL TORUS R
12 FN 0: Q4 =-51 ;COORDENADA Z CENTRO DEL TORUS
13 FN 0: Q5 =+20 ;RADIO DEL TORUS r
14 FN 0: Q10 =+20 ;ALTURA DE SEGURIDAD
15 FN 0: Q11 =+80 ;NÚMERO DE TRAYECTORIAS DE FRESADO
16 FN 0: Q14 =+600 ;AVANCE DE FRESADO
17 FN 0: Q15 =+9999 ;AVANCE POSICIONAMIENTO PREVIO
18 FN 0: Q16 =+300 ;AVANCE PROFUNDIZACIÓN
19 ;Fin de la introducción de parámetros
20 ;
21 BLK FORM 0.1 Z X-20 Y-50 Z-51
22 BLK FORM 0.2  X+20  Y+50  Z+1
23 ;
24 ;Llamada a la herramienta fresa esférica
25 TOOL CALL 157 Z S8000
26 TOOL CALL  DL-Q108 ;Corrección de la longitud en torno al radio de la esfera
27 ;
28 ;variables
29 FN 1: Q6 =+Q5 + +Q108 ;Radio compensado
30 FN 1: Q18 =+Q6 + +Q1 ;Posición inicial X
31 FN 1: Q19 =+Q2 + +Q3 ;Coordenada Y+ centro del toro
32 FN 2: Q20 =+Q2 - +Q3 ;Coordenada Y- centro del toro
33 FN 4: Q12 =+180 DIV +Q11 ;Paso angular
34 FN 4: Q13 =+Q11 DIV +2 ;Número de repeticiones
35 FN 2: Q13 =+Q13 - +1 ;Número de repeticiones
36 ;Cálculos terminados
37 ;
38 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3 ;Posicionamiento previo
39 L  Z+Q4 FQ16 ;profundización
40 ;
41 LBL 1
42 CC  Y+Q2  Z+Q4 ;CC para la trayectoria de fresado
43 CP IPA-180 DR- FQ14 ;Trayectoria de fresado
44 CC  X+Q1  Y+Q19 ;CC para la aproximación latera
45 CP IPA+Q12 DR+ FQ14 ;Aproximación
46 CC  Y+Q2  Z+Q4 ;CC para la trayectoria de fresado
47 CP IPA+180 DR+ FQ14 ;Trayectoria de fresado
48 CC  X+Q1  Y+Q20 ;CC para la aproximación lateral
49 CP IPA-Q12 DR- FQ14 ;Aproximación
50 CALL LBL 1 REPQ13 ;Llamada de la repetición
51 L  Z+100 R0 FQ15 M30 ;Retirar la herramienta y final del programa
52 END PGM 7035_ES MM