Fagor CNC 8055 T Manual De Ejemplos página 57

Líneas de programa de la subrutina:
(SUB 50)
(IF NOSEW12 GT (P104-2*(P107/COS(P100/2))-
2*(P103-P107)*TAN(P100/2)) ERROR "DATOS NO VALIDOS") ............. Si anchura cuchilla > "d" => Error
;———————————————————————————————————————————————————————————————
; Operacion de desbaste
;———————————————————————————————————————————————————————————————
(P115=FUP((P103-P107)/P106)) ............................................................................ Calcula nº pasadas (P115).
(P106=(P103-P107)/P115) ........................................................................................ Recalcula el paso (P106).
G92 S500
G95 G96 FP109 SP108 T12 M4 M41
;
(P1=P102+2*P105, P2=P101+(P104/2)-(P107/COS(P100/2))-NOSEW12)
G G90 XP1 ZP2 ................................................................................................................ Desplazamiento al punto "A"
(P1=2*P105)
G1 G91 X-P1 .................................................................................................................... Desplazamiento "A-B"
N50 (P1=2*P106, P2=P106*TAN(P100/2))
X-P1 Z-P2 ................................................................................................................ Desplazamiento "B-C"
(P2=P104-2*P107/COS(P100/2)-2*(P103-P107)*TAN(P100/2)+
2*(PPOSX/2-(P102/2-P103+P107))*TAN(P100/2)-NOSEW12)
Z-P2 ............................................................................................................................ Desplazamiento "C-D"
(P115=P115-1) ....................................................................................................... Decrementa número de pasadas
(IF P115 LE 0 GOTO N100) ............................................................................ Si se han efectuado todas, fase de
(P1=2*P106, P2=P106*TAN(P100/2))
X-P1 ZP2 ................................................................................................................... Desplazamiento "D-E"
(P2=P104-2*(P107/COS(P100/2))-2*(P103-P107)*TAN(P100/2)+
2*(PPOSX/2-(P102/2-P103+P107))*TAN(P100/2)-NOSEW12)
ZP2 ............................................................................................................................... Desplazamiento "E-F"
(P115=P115-1) ....................................................................................................... Decrementa número de pasadas
(IF P115 GT 0 GOTO N50) ............................................................................... Si se han efectuado todas, fase de
;———————————————————————————————————————————————————————————————
; Operacion de desbaste
;———————————————————————————————————————————————————————————————
N100 G95 G96 FP110 SP108
(P1=P102+2*P105)
G0 G90 XP1 ZP101 .................................................................. Desplazamiento al punto "1"
(P2=P101+(P104/2)-NOSEW12)
G1 XP102 ZP2 .......................................................................... Desplazamiento al punto "2"
(P1=P102-2*P103)
(P2=P101+(P104/2)-P103*TAN(P100/2)-NOSEW12)
XP1 ZP2 .................................................................................... Desplazamiento al punto "3"
(P1=P102-2*P103)
(P2=P101-(P104/2)+P103*TAN(P100/2))
XP1 ZP2 .................................................................................... Desplazamiento al punto "4"
(P2=P101-(P104/2))
XP102 ZP2 ................................................................................ Desplazamiento al punto "5"
(P1=P102+2*P105, P2=P101-(P104/2))
XP1Z P2 .................................................................................... Desplazamiento al punto "6"
(P1=P102+2*P105)
XP1 ZP101 ................................................................................ Desplazamiento al punto "1"
(RET)
54
M - T -
ANUAL DE EJEMPLOS
acabado
acabado