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