Siemens SINUMERIK 840D sl Funktionshandbuch Seite 821

; Messtype auf Ecke 1 setzen
$AC_MEAS_TYPE = 4
; Messvorgang starten
RETVAL = MEASURE()
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, 01/2008, 6FC5397-0BP10-3AA0
Achsen, Koordinatensysteme, Frames (K2)
10.5 Frames
821