Creating and Managing Symbolic Variable Tables
en-938872/2 4 - 31
4
%46
P.BUILD [C(7,N)] N100 N110
Creation of a table to store the profile
VAR [R][G(3)]=2,1,3 [I] [V]
ENDV
...
FOR [R]= 30 DOWNTO 2 BY 2 DO
VAR [M]=[N]-1 [P(7,M)]
ENDV
MOVE [P(7,M)] = [C(7,N)],2,[N]
Copy the table into another table
R.OFF [P((7,M)] / + 1 / [R]
Offset the profile to the right
G X60 Z110
X[P(7,1)] Z[P(6,1)]
FOR [I] = 1 TO [M] DO [V] = [P(1,I)]+2
G[G(V)] X[P(3,I)] Z[P(2,I)] I[P(5,I)] K[P(4,I)]
ENDF
DELE [P]/[M]
ENDF
M02
N100 X0 Z100
G3 I0 K20 ES-
G1 EA180 X20 Z85 EB2
X12
Z75
X20
Z70
X15
Profile definition
Z60
G2 X15 Z50 I15 K55
G1 X25 EB-4
Z40
G2 I30 K30 ES+
G1 EA90 X50 Z25 EB3
N110 Z10