Fagor CNC 8070 - Page 101

E
XAMPLES MANUAL
Chapter 4
Page 95 of 96
Parametric
programming
Exercise 5. Pockets
with 4 sides and 4
different radii
CNC 8070
PARAMETER ASSIGNMENT
P102=50 P103=40 External sides.
P107=5 Tool radius.
P125=80 P126=60 P127=50 P128=70 Angles.
P130=5 P131=7 P132=4 P133=8 Small radii.
P140=10 P141=12 P142=15 P143=17 Large radii.
P120=0 P121=1 P122=30
P150=P122-P120 P151=P150/P121 P152=FUP[P151]
P160=P140-P130 P161=P141-P131 P162=P142-P132 P163=P143-P133
P140=P140+P107 P141=P141+P107 P142=P142+P107 P143=P143+P107
P164=P160/P152 P165=P161/P152 P166=P162/P152 P167=P163/P152
G0 Z100
T4 D1
M6
N1: P170=P120/TAN[P125] P171=P120/TAN[P126] P172=P120/TAN[P127] P173=P120/TAN[P128]
P180=P100-P170 P181=P101-P171 P182=P102-P172 P183=P103-P173
PROGRAM
G01 X-P180 Y0 Z-P120 F2000
YP181
G36 IP140
XP182
G36 IP141
Y-P183
G36 IP142
X-P180
G36 IP143
Y0
N2:
P120=P120+P121
P140=P140-P164 P141=P141-P165 P142=P142-P166 P143=P143-P167
COMPARISON
$IF P120<P122 $GOTO N1
P120=P122
P140=P130+P107 P141=P131+P107 P142=P132+P107 P143=P133+P107
#RPT[N1,N2]
G00 Z50
M30