Siemens SINUMERIK 802D sl Programming Manual page 162

Enhanced Level Commands
4.10 Macroprograms
Programming example
PROC MAIN
...
N0090 G1 G21 X10 Y20 F1000 G90
...
N0500 G90 X20 Y30 G123 G1 G54
...
N0800 G90 X20 Y30 G421 G1 G54
...
N0900 M30
PROC MAKRO_G21
...
N0010 R10 = R10 + 11.11
N0020 IF $C_X_PROG = = 0
N0030 SETAL (61000)
N0040 ENDIF
N0050 IF $C_V_PROG = = 0
N0060 SETAL (61001)
N0070 ENDIF
N0080 IF $C_F_PROG = = 0
N0090 SETAL (61002)
N0100 ENDIF
N0110 G90 X=$C_X V=$C_V
N0120 G291
N0130 G21 M6 X100
N0140 G290
...
N0150 M17
PROC MAKRO_G123
...
N0010 R10 = R10 + 11.11
N0020 IF $C_G = = 421 GOTO label_G421
N0040 G91 X=$C_X Y=$C_Y F500
...
...
N1990 GOTOF label_end
N2000 label_G421
N2010 G90 X=$C_X Y=$C_Y F1000
...
N2020
...
4-162
SINUMERIK 802D sl/840D/840D sl/840Di/840Di sl/810D ISO Milling (PGM) -- 04.07 Edition
;call of MAKRO_G21.SPF, G1 and G90 are
;activated before the MAKRO_G21.SPF call
;call of MAKRO_G123.SPF, G1, G54 and
;G90 are activated before the
;MAKRO_G123.SPF call
;Call of MAKRO_G123.SPF, G1, G54 and
;G90 are activated before the
;MAKRO_G123.SPF call
;programmed variable transmitted
;incorrectly
;G21 --> activate metric measuring system
;(no macro call)
;macro functionality for G123
;macro functionality for G421
© Siemens AG 2007 All rights reserved
04.07