Siemens SINUMERIK 840D sl Function Manual page 766

K2: Axis Types, Coordinate Systems, Frames
10.5 Frames
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.
Program code
DEF INT RETVAL
DEF FRAME TMP
$TC_DP1[1,1]=120
$TC_DP2[1,1]=20.
$TC_DP3[1,1]= 10.
$TC_DP4[1,1]= 0.
$TC_DP5[1,1]= 0.
$TC_DP6[1,1]= 2.
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,TR] = -45
$AC_MEAS_VALID = 0
G1 X-1 Y-3
$AC_MEAS_LATCH[0] = 1
G1 X5 Y-3
$AC_MEAS_LATCH[1] = 1
G1 X-4 Y4
$AC_MEAS_LATCH[2] = 1
G1 X-4 Y1
$AC_MEAS_LATCH[3] = 1
$AA_MEAS_SETPOINT[X] = 0
$AA_MEAS_SETPOINT[Y] = 0
$AA_MEAS_SETPOINT[Z] = 0
$AC_MEAS_CORNER_SETANGLE = 90
$AC_MEAS_WP_SETANGLE = 30
$AC_MEAS_ACT_PLANE = 0
$AC_MEAS_T_NUMBER = 1
$AC_MEAS_D_NUMBER = 1
$AC_MEAS_TYPE = 4
RETVAL = MEASURE()
IF RETVAL <> 0
ENDIF
IF $AC_MEAS_WP_ANGLE <> 30
ENDIF
766
SETAL(61000 + RETVAL)
SETAL(61000 + $AC_MEAS_WP_ANGLE)
Comment
; Type
; 0
; (z) length correction vector
; (y)
; (x)
; Radius
; Measure corner with four measuring
points
; 1. Approach measuring point
; 1. Store measuring point
; 2. Approach measuring point
; 2. Store measuring point
; 3. Approach measuring point
; 3. Store measuring point
; 4. Approach measuring point
; 4. Store measuring point
; Set position setpoint of the corner
; Define setpoint angle of intersection
; Measuring plane is G17
; Select tool
; Set measuring type on corner 1
; Start measuring process
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
Basic Functions