Siemens SINUMERIK 840D sl Programming Manual page 231

_OVR[51]=_OVR[41] _OVR[52]=_OVR[42] _OVR[53]=_OVR[43]
_OVR[75] = _OVR[72] ;accept actual diameter
IF (NOT $P_SEARCH) AND (NOT $P_ISTEST) AND (NOT $P_SIM)
_OVR[40]=_OVR[40]+10
ENDIF
;--------------------- 2nd measurement, rotary axis 2
G1 F2000
TOFFL=_BALL/2+_SAVB
D1 B=_P5[0] C=_P5[1]
TOFFL=0
M1
TOROT
CYCLE996(20102,1,1,_BALL,0,0,0,0,0,0,0,0,_U_FA,_U_TSA,1,,1,)
Z=IC(-_U_FA+_SAVB)
TOROTOF
;--------------------- 3rd measurement, rotary axis 2
TOFFL=_BALL/2+_SAVB
G1 D1 C=_P6[1] F2000
TOFFL=0
TOROT
CYCLE996(20103,1,1,_BALL,_STA1,0,0,0,0,0,0,0,_U_FA,_U_TSA,1,,1,)
Z=IC(-_U_FA+_SAVB)
TOROTOF
ENDIF
G0 Z30
B0 C0
;-------------------- Calculate kinematics
;Display data set. Save data set as protocol file
;Normalizing rotary axis 2(C) on Z=0 -> table upper edge
CYCLE996(13001000,1,1,0,0,0,0,0.02,0.001,22,1,,1,101)
MSG("Kinematics measurement OK")
M1
M30 ;end of program
;-----------------------------------------------------
Measuring cycles
Programming Manual, 12/2017, 6FC5398-4BP40-6BA1
Measuring variants
3.3 Measure workpiece (milling)
231