Mecanizado de junta

A continuación se ilustra un programa donde podemos ver el uso de subrutinas, cotas polares, redondeos y especularidad (imagen espejo). El programa está realizado para un control FAGOR 8025M. En algunas líneas se describe lo que realiza el control.

N010 G53 X-100 Y-100 Z-102
N020 G53
N030 T6.6
N040 M06
N050 G0 G90 G94 G17 X20 Y0 Z5
N060 G1 Z-0.5 F250 S1000 M3
N070 G2 A0 F500
N080 G0 Z5
N090 X35
N100 G1 Z-0.5 F250
N110 G22 N8 (Inicio de subrutina estandar)
N120 G2 G36 R20 A-36.432 (Interpolacion circular + Redondeo)
N130 G93 I28.284 J-28.284
N140 G91 G36 R20 A-271.902
N150 G93 I0 J0
N160 G36 R20 A-72.864 (Redondeo)
N170 G93 I-28.286 J-28.286
N180 G36 R20 A-271.902
N190 G93 I0 J0
N200 G24 (Fin de subrutina)
N210 G90 A180
N220 G11 G12
N230 G20 N8.1 (Llamada a subrutina estandar nº8. Repeticiones 1)
N240 G10
N250 G90 A0
N260 G0 Z5
N280 G22 N6 (Inicio de subrutina estandar)
N290 G0 G90 R23.5 A-20
N300 G1 Z-0.5 F250
N310 G93 I25.842 J-9.406
N320 G91 G2 A180 F500
N330 G93 I0 J0
N340 A-50
N350 G93 I9.406 J-25.842 (Definicion de centro polar)
N360 G2 A180
N370 G93 I0 J0 (Definicion de centro polar)
N380 G3 A50
N390 G90 G0 Z5
N400 G24 (Fin de subrutina)
N410 G11 (Imagen espejo con respecto al eje «X»)
N420 G20 N6.1 (Llamada a subrutina estandar)
N430 G12 (Imagen espejo con respecto al eje «Y»)
N440 G20 N6.1 (Llamada a subrutina estandar)
N450 G10 G12
N460 G20 N6.1 (Llamada a subrutina estandar)
N470 G10 (Anulación imagen espejo)
N480 G22 N7 (Inicio de subrutina estandar nº7)
N490 G0 R37.5 A45
N500 G1 Z-0.5 F250
N510 G93 I28.284 J28.284
N520 G2 A-135 F500
N530 G0 Z5
N540 G93 I0 J0 (Definicion de centro polar)
N550 G24 (Fin de subrutina)
N560 G12 (Imagen espejo con respecto al eje «Y»)
N570 G20 N7.1 (Llamada a subrutina estandar)
N580 G11 (Imagen espejo con respecto al eje «X»)
N590 G20 N7.1 (Llamada a subrutina estandar)
N600 G10 G11 (Imagen espejo con respecto al eje «X»)
N610 G20 N7.1 (Llamada a subrutina estandar)
N620 G10 G0 X0 Y0 Z70 M30