Siemens SINUMERIK 828D Function Manual page 777

Application example:
A frame calculated, for example, via a measuring function, must be entered in the current SETFRAME such that
the new complete frame is a chain of the old complete frame and the measurement frame. The SETFRAME is
calculated accordingly by means of frame inversions.
DEF INT RETVAL
DEF FRAME TMP
$TC_DP1[1,1]=120 ; Type
$TC_DP2[1,1]=20.;0
$TC_DP3[1,1]= 10. ; (z) length compensation vector
$TC_DP4[1,1]= 0. ; (y)
$TC_DP5[1,1]= 0. ; (x)
$TC_DP6[1,1]= 2. ; Radius
T1 D1
g0 x0 y0 z0 f10000
G54
$P_CHBFRAME[0] = crot(z,45)
$P_IFRAME[x,tr] = -sin(45)
$P_IFRAME[y,tr] = -sin(45)
$P_PFRAME[z,rt] = -45
; Measure corner with four measuring points
$AC_MEAS_VALID = 0
; Approach measuring point 1
g1 x-1 y-3
; Store measuring point 1
$AC_MEAS_LATCH[0] = 1
; Approach measuring point 2
g1 x5 y-3
Basic Functions
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
K2: Axis Types, Coordinate Systems, Frames
10.5 Frames
777