Siemens Sinumerik 840D sl Programming Manual page 241

3.3 Checking for protection zone violation, working area limitation and software limits (CALCPOSI)
Program code
N120 cprotdef(4, false, 0)
N130 g17 g1 x0 y15
N140 x10
N150 y25
N160 x0
N170 y15
N180 execute(_SB)
N190 nprotdef(3, false, 0)
N200 g17 g1 x10 y5
N210 x25
N220 y15
N230 x10
N240 y5
N250 execute(_SB)
N260 cprot(2,2,0, 0, 0)
N270 cprot(4,1,0, 0, 0)
N280 nprot(3,2,0, 0, 0)
N290 g25 XX=–YY=–
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.
;Various function calls
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.
Job planning
Programming Manual, 02/2011, 6FC5398-2BP40-1BA0
Protection zones
Comments
; Workpiece-related protection zone
; Machine-related protection zone
; Activate or pre-activate
protection zones
; Define working area limit groups
; Other starting point
; Other destination
241