Siemens SINUMERIK 840D Function Manual page 604

P5: Oscillation
15.5 Examples
Program code
; then
; and
WHENEVER $AA_DTEPW[X]==0 DO $AC_MARKER[2]=1 $AC_MARKER[1]=1
;
; always, when
; equal to
; then
;
;
;
;
WHENEVER $AC_MARKER[2]==1 DO $AA_OVR[X]=0
;
; always, when
; equal to
; then
;
;
;
; and
;
WHENEVER $AC_MARKER[1]==1 DO $AA_OVR[X]=0 $AA_OVR[Z]=100
;
; if the current position of the oscillating axis in the MCS is
; equal to
; then
;
; and
;
;
WHEN $AA_IM[Z]==$SA_OSCILL_REVERSE_POS1[Z] DO $AA_OVR[Z]=100 $AA_OVR[X]=0
;
;------------------------------------------
OSCILL[Z]=(X)
POSP[X]=(5,1,1)
M30
604
Comment
set the marker with index 2 to value 1
set the marker with index 1 to value 1
the flag with index 2 is
1,
Set the axial override of the infeed axis to
0%, this prevents a premature infeed
(oscillation axis has not exited the
reversal point 1).
the flag with index 1 is
1,
Set the axial override of the infeed axis to
0%, this prevents a premature infeed
(oscillation axis has not exited the
reversal point range 2).
Set the axial override of the infeed axis to
100% ('Start' oscillation)
reversal position 1,
Set the axial override of the infeed axis to
100%
Set the axial override of the infeed axis to
0% (so that the second synchronized action
is cancelled once!)
; Assign axis X to the oscillation axis Z as
; infeed axis, this should
; infeed to end position 5 in steps
; from 1 and the sum of all part lengths should
; give exactly the end position
; End of program
Axes and spindles
Function Manual, 06/2019, A5E47437747B AA