Siemens SINUMERIK 840D

Creating a ShopMill program
7.17 Example, standard machining
Milling
262 Operating Manual, 03/2010, 6FC5398-7CP20-1BA0
T="MILLER8" D1 M06
G95 FZ=0.018 S12000 M3 M8
POCKET4(50,-10,1,12,30,85,135,5,0,0,0.018,0.01,0,21,40,9,15,2,1,0,1,2,10100,111,111)
MCALL POCKET4(50,-10,1,4,16,0,0,5,0,0,0.018,0.018,0,11,40,9,15,0,2,0,1,2,10100,111,111)
REPEATB POS_1 ;#SM
MCALL
G0 Z200 M9
;****************Tool change****************
;Contour chamfering
T="CENTERING TOOL10" D1 M6
G94 F500 S8000 M3 M8
CYCLE62(,2,"E_LAB_A_PART_4_ISLAND","E_LAB_E_PART_4_ISLAND")
CYCLE72("",100,0,1,20,2,0.5,0.5,500,100,305,41,1,0,0.1,1,0,0,0.3,2,101,1011,101)
POCKET3(50,0,1,4,70,40,10,90,60,15,4,0,0,500,0.2,0,25,40,8,3,15,2,1,0,0.3,2,11100,11,111)
POCKET3(50,-4,1,2,35,20,6,90,60,15,2,0,0,500,0.2,0,35,40,8,3,15,10,2,0,0.3,2,11100,11,111)
SLOT2(50,0,1,,3,1,180,10,85,135,40,180,90,0.01,500,3,0,0,2005,0,0,0,,0,0.3,2,100,1001,101)
POCKET4(50,-10,1,12,30,85,135,5,0,0,500,0.01,0,15,40,9,15,0,2,0,0.3,2,10100,111,111)
MCALL POCKET4(50,-10,1,4,16,0,0,5,0,0,500,0.025,0,15,40,9,15,0,2,0,0.3,4,10100,111,111)
REPEATB POS_1 ;#SM
MCALL
G0 Z200 M9
M30
;*******************Contour********************
E_LAB_A_PART_4_POCKET: ;#SM Z:5
;#7__DlgK contour definition begin - Don't change!;*GP*;*RO*;*HD*
G17 G90 DIAMOF;*GP*
G0 X-10 Y-10 ;*GP*
G1 X190 ;*GP*
Y190 ;*GP*
X-10 ;*GP*
Y-10 ;*GP*
;CON,0,0.0000,4,4,MST:0,0,AX:X,Y,I,J;*GP*;*RO*;*HD*
;S,EX:-10,EY:-10;*GP*;*RO*;*HD*
;LR,EX:190;*GP*;*RO*;*HD*
;LU,EY:190;*GP*;*RO*;*HD*
;LL,EX:-10;*GP*;*RO*;*HD*
;LA,EX:-10,EY:-10;*GP*;*RO*;*HD*
;#End contour definition end - Don't change!;*GP*;*RO*;*HD*
E_LAB_E_PART_4_POCKET:
;
E_LAB_A_PART_4_ISLAND: ;#SM Z:2
;#7__DlgK contour definition begin - Don't change!;*GP*;*RO*;*HD*
G17 G90 DIAMOF;*GP*
G0 X90 Y25 ;*GP*
G1 X25 CHR=15 ;*GP*