Siemens SINUMERIK 840D sl Programming Manual page 173

;--------------------- 3. Measurement, rotary axis 1
G1 F2000
TOFFL=_BALL/2+_SAVB
D1 B=_P3[0] C=_P3[1]
TOFFL=0
CYCLE996(10103,1,1,_BALL,210,0,0,0,0,0,0,0,_FA,_TSA,1,,1,)
TOROT
Z=IC(-_FA+_SAVB)
TOROTOF
;--------------------- 1. Measurement, rotary axis 2
;Initial state, 1st measurement, rotary axis 1 = 1st measurement, rotary axis 2
_OVR[51]=_OVR[41] _OVR[52]=_OVR[42] _OVR[53]=_OVR[43]
IF (NOT $P_SEARCH) AND (NOT $P_ISTEST) AND (NOT $P_SIM)
_OVR[40]=_OVR[40]+10
ENDIF
;--------------------- 2. Measurement, rotary axis 2
G1 F2000
TOFFL=_BALL/2+_SAVB
D1 B=_P5[0] C=_P5[1]
TOFFL=0
M1
CYCLE996(20102,1,1,_BALL,0,0,0,0,0,0,0,0,_FA,_TSA,1,,1,)
TOROT
Z=IC(-_FA+_SAVB)
TOROTOF
;--------------------- 3rd measurement, rotary axis 2
TOFFL=_BALL/2+_SAVB
G1 D1 C=_P6[1] F2000
TOFFL=0
CYCLE996(20103,1,1,_BALL,_STA1,0,0,0,0,0,0,0,_FA,_TSA,1,,1,)
TOROT
Z=IC(-_FA+_SAVB)
TOROTOF
ENDIF
G0 Z30
B0 C0
;-------------------- Calculate kinematics
_MCA:
;Display data set. Save data set as protocol file
;Normalizing rotary axis 2(C) on Z=0 -> table upper edge
CYCLE996(13001000,1,1,_BALL,_STA1,0,0,0,0,0.02,0.001,22,_FA,_TSA,1,,1,101)
Measuring cycles
Programming Manual, 02/2011, 6FC5398-4BP40-0BA0
Measuring variants
2.3 Measure workpiece (milling)
173