Siemens SINUMERIK 840D sl Function Manual page 155

Program code
; Workpiece-related protection zone C4
N120 CPROTDEF(4, FALSE, 0)
N130 G17 G1 X0 Y15
N140 X10
N150 Y25
N160 X0
N170 Y15
N180 EXECUTE(_SB)
; Machine-related protection zone N3
N190 NPROTDEF(3, FALSE, 0)
N200 G17 G1 X10 Y5
N210 X25
N220 Y15
N230 X10
N240 Y5
N250 EXECUTE(_SB)
; Activate or preactivate protection zones
N260 CPROT(2, 2, 0, 0, 0)
N270 CPROT(4, 1, 0, 0, 0)
N280 NPROT(3, 2, 0, 0, 0)
; Define working area limits
N290 G25 XX=-10 YY=-10
N300 G26 XX=20 YY=21
N310 _STARTPOS[0] = 0.
N320 _STARTPOS[1] = 0.
N330 _STARTPOS[2] = 0.
N340 _MOVDIST[0] = 35.
N350 _MOVDIST[1] = 20.
N360 _MOVDIST[2] = 0.
N370 _DLIMIT[0] = 0.
N380 _DLIMIT[1] = 0.
N390 _DLIMIT[2] = 0.
N400 _DLIMIT[3] = 0.
N410 _DLIMIT[4] = 0.
N420 _STATUS = CALCPOSI(_STARTPOS, _MOVDIST, _DLIMIT, _MAXDIST)
N430 _STATUS = CALCPOSI(_STARTPOS, _MOVDIST, _DLIMIT, _MAXDIST,,3)
N440 _STATUS = CALCPOSI(_STARTPOS, _MOVDIST, _DLIMIT, _MAXDIST,,1)
N450 _STARTPOS[0] = 5.
N460 _STARTPOS[1] = 17.
N470 _STARTPOS[2] = 0.
N480 _MOVDIST[0] = 0.
N490 _MOVDIST[1] =-27.
N500 _MOVDIST[2] = 0.
N510 _STATUS = CALCPOSI(_STARTPOS, _MOVDIST, _DLIMIT, _MAXDIST,,14)
N520 _STATUS = CALCPOSI(_STARTPOS, _MOVDIST, _DLIMIT, _MAXDIST,, 6)
N530 _DLIMIT[1] = 2.
N540 _STATUS = CALCPOSI(_STARTPOS, _MOVDIST, _DLIMIT, _MAXDIST,, 6)
N550 _STARTPOS[0] = 27.
N560 _STARTPOS[1] = 17.1
N570 _STARTPOS[2] = 0.
Basic Functions
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
A3: Axis Monitoring, Protection Zones
3.3 Protection zones
155