Siemens SINUMERIK 828D - Page 230

Protection zones
3.3 Checking for protection zone violation, working area limitation and software limits (CALCPOSI)
Job planning
230 Programming Manual, 07/2010, 6FC5398-2BP40-0BA0
Program code
Comments
;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)
; Other starting point
N450 _STARTPOS[0] = 5.
N460 _STARTPOS[1] = 17.
N470 _STARTPOS[2] = 0.
; Other destination
N480 _MOVDIST[0] = 0.
N490 _MOVDIST[1] =–.
N500 _MOVDIST[2] = 0.
;Various function calls
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.
N580 _MOVDIST[0] =–.
N590 _MOVDIST[1] = 0.
N600 _MOVDIST[2] = 0.
N610 _DLIMIT[3] = 2.
N620 _STATUS = calcposi(_STARTPOS,_MOVDIST,
_DLIMIT, _MAXDIST,, 12)
N630 _STARTPOS[0] = 0.
N640 _STARTPOS[1] = 0.
N650 _STARTPOS[2] = 0.
N660 _MOVDIST[0] = 0.
N670 _MOVDIST[1] = 30.
N680 _MOVDIST[2] = 0.
N690 trans x10
N700 arot z45
N710 _STATUS = calcposi(_STARTPOS,_MOVDIST,
_DLIMIT, _MAXDIST)
N720 M30