Example; Preprocessing Individual Files - Siemens sinumerik 840D sl Function Manual

Example

4.1

Preprocessing individual files

PROC UP1 PREPRO
N1000 DEF INT COUNTER
N1010 TARGET: G1 G91 COMPON
N1020 G1 X0.001 Y0.001 Z0.001 F100000
N1030 COUNTER=COUNTER+1
N1040 COUNTER=COUNTER-1
N1050 COUNTER=COUNTER+1
N1060 IF COUNTER<=10 GOTOB TARGET
N1070 M30
PROC UP2
N2000 DEF INT VARIABLE, ARRAY[2]
N2010 IF $AN_NCK_Version < 3.4
N2020 SETAL(61000)
N2030 ENDIF
N2040 START:
N2050 FOR VARIABLE = 1 TO 5
N2060 G1 F1000 X=VARIABLE*10-56/86EX4+4*SIN(VARIABLE/3)
N2070 ENDFOR
N2080 M17
PROC MAIN
N10 G0 X0 Y0 Z0
N20 UP1
N30 G0 X10 Y10 Z10
N40 UP2
N50 G0 X100 Y100
N60 UP3
N70 G0 X10 Y10
N80 M30
Special functions: Preprocessing (V2)
Function Manual, 11/2006, 6FC5397-2BP10-2BA0
; Preprocessing if bit 5 = 1
; in PREPROCESSING_LEVEL
4
19