Siemens SINUMERIK 840D sl Handbuch Seite 797

if RETVAL <> 0
setal(61000 + RETVAL)
endif
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
; Gemessenes Frame so transformieren und nach $P_SETFRAME schreiben,
; dass ein Gesamtframe entsteht, welches aus dem alten Gesamtframe
; verkettet mit dem Messframe ergibt.
$P_SETFRAME = $P_ACTFRAME : $AC_MEAS_FRAME : INVFRAME($P_ACTFRAME) :
$P_SETFRAME
; Systemframe in der Datenhaltung beschreiben
$P_SETFR = $P_SETFRAME
; Fahre die Ecke an
g1 x0 y0
; Um 30 Grad gedrehtes Rechteck abfahren
g1 x10
y10
x0
y0
m30
Grundfunktionen
Funktionshandbuch, 03/2010, 6FC5397-0BP20-1AA0
K2: Achsen, Koordinatensysteme, Frames
10.5 Frames
797