Siemens SINUMERIK 840D sl Programming Manual page 171

Programming example
;* _OVR[60,61,62] -> measuring positions, rotary axis 1
;* _OVR[63,64,65] -> measuring positions, rotary axis 2
;* _OVR[66,67,68] -> active frame for 1st measurement, rotary axis 1
;* _OVR[69] free
;* _OVR[70] free
;* _OVR[71] -> actual calibration ball diameter from 1st measurement, rotary axis 1
;Measure kinematics
;Mixed kinematics with a B axis around Y and C axis around Z (MIXED_BC).
;Calibration ball at 2*45 degrees, directly mounted on a table.
;WO in G56. Only the position of the calibration ball
;has to be specified in the initial state of the kinematics (B=0 C=0).
;Determine G56 with measuring spigot in the JOG mode and approach in XY,
;then set ball north pole Z=0.
;Swivel data must be entered according to the machine drawing dimensions -> _SDA _SDE.
;Intermediate positions are approached with active TRAORI.
;To do this, using the online tool offset TOFFL, the TCP
;is shifted to the center of the measuring ball.
;Measuring positions for MIXED_BC
;P1 .. P3 rotary axis 1
;P4 .. P6 rotary axis 2
DEF REAL _P1[2]=SET(0,0)
DEF REAL _P2[2]=SET(45,0)
DEF REAL _P3[2]=SET(-45,0)
DEF REAL _P4[2]=SET(0,0)
DEF REAL _P5[2]=SET(0,90)
DEF REAL _P6[2]=SET(0,180)
DEF REAL _BALL=25
DEF REAL _SAVB=1
;Globally pre-assign measuring parameters
_FA=_SAVB*3
_TSA=_SAVB*4
REPEAT _SDA _SDE
MSG(" load transformation data. OK ?? ")
M0
STOPRE
MSG()
;GOTOF _MCA
Measuring cycles
Programming Manual, 02/2011, 6FC5398-4BP40-0BA0
;Measuring point P1 rotary axis 1(B), rotary axis 2(C)
;Calibration ball diameter
;Safety clearance above the calibration ball
;Read-in swivel data set
;Only calculate kinematics _OVR[40] to _OVR[71] OK
Measuring variants
2.3 Measure workpiece (milling)
171