Siemens SINUMERIK 840D sl Programming Manual page 172

Measuring variants
2.3 Measure workpiece (milling)
G17
CYCLE800()
ORIAXES ORIMKS
TRAORI
G56
T="3D-TASTER" D1
M6
IF (NOT $P_SEARCH) AND (NOT $P_ISTEST) AND (NOT $P_SIM)
_OVR[40]=0
ENDIF
; --------------------- 1. Measurement, rotary axis 1
N99 G1 G710 G90 Z30 FFWON F2000
TOFFL=_BALL/2+_SAVB
D1 B=_P1[0] C=_P1[1]
TOFFL=0
X0 Y0 Z=_SAVB
;Circle around the ball
CYCLE996(10101,1,1,_BALL,0,0,0,0,0,0,0,0,_FA,_TSA,1,,1,)
M1
STOPRE
TOROT
M1
Z=IC(-_FA+_SAVB)
TOROTOF
M1
; --------------------- 2. Measurement, rotary axis 1
G1 F2000
TOFFL=_BALL/2+_SAVB
B=_P2[0] C=_P2[1]
TOFFL=0
;Circle around the ball, starting angle 45 degrees
CYCLE996(10102,1,1,_BALL,45,0,0,0,0,0,0,0,_FA,_TSA,1,,1,)
TOROT
Z=IC(-_FA+_SAVB)
TOROTOF
172
;Kinematics initial state
;Online correction of the tool length
;When repositioning, correct the tool online
;Disable online correction again
Programming Manual, 02/2011, 6FC5398-4BP40-0BA0
;Zero the measuring counter
;Approach starting position
Measuring cycles