Fagor CNC 8070 - Block search.

E
XAMPLES MANUAL
Chapter 4
Page 87 of 96
Parametric
programming
Exercise 1. Semi-
sphere
CNC 8070
PARAMETER ASSIGNMENT
P100=60 Radius of the semi-sphere.
P101=90 Initial angle.
P102=0 Final angle.
P103=0.5 Incremental angle.
P104=8 Tool radius.
PROGRAM
G0 Z100
T12D1
M6
S1000 M3
X0 Y0
N1: P120= P100*COS [P101] P121=P100*SIN [P101] XZ position.
P120=P120+P104 Tool compensation.
P121=P121-P100 Zero up.
G1 XP120 ZP121 F1000
G2 Q360
N2:
P101=P101-P103 Angular decrement.
COMPARISON
$IF P101 > P102 $GOTO N1
P101=P102
#RPT [N1,N2]
G0 Z100
M30