Siemens SINUMERIK 840D sl Function Manual page 895

if $AC_MEAS_WP_ANGLE <> 30
setal(61000 + $AC_MEAS_WP_ANGLE)
endif
if $AC_MEAS_CORNER_ANGLE <> 90
setal(61000 + $AC_MEAS_CORNER_ANGLE)
endif
; Transform measured frame and write in accordance with $P_SETFRAME in such a way
; that a complete frame is produced, as a result of the old complete frame
; being chained with the measuring frame.
$P_SETFRAME = $P_ACTFRAME : $AC_MEAS_FRAME : INVFRAME($P_ACTFRAME) :
$P_SETFRAME
; Describe system frames in data management
$P_SETFR = $P_SETFRAME
; Approach the corner
g1 x0 y0
; Retract the rectangle rotated about 30 degrees
g1 x10
y10
x0
y0
m30
Basic logic functions: Axes, coordinate systems, frames (K2)
Function Manual, 11/2006, 6FC5397-0BP10-2BA0
Detailed description
2.4 Frames
111