Siemens SINUMERIK 840D sl Handbuch Seite 663

$P_CHBFR[0]=CTRANS(_zz,5,A,6) : CROT(_zz,45)
$P_UIFR[1]=CTRANS( )
$P_UIFR[1,_xx,TR]=-SIN(45)
$P_UIFR[1,_yy,TR]=-SIN(45)
$P_UIFR[2]=CTRANS( )
$P_PFRAME=CROT(_zz,-45)
$P_CYCFR=CTRANS(_xx,10,B,7)
G54
G0 X0 Y0 Z0 A0 B0 F1000
$AC_MEAS_VALID = 0
$AC_MEAS_TYPE = 24
$AC_MEAS_ACT_PLANE = 0
$AA_MEAS_POINT1[_xx] = $AA_IW[_xx]
$AA_MEAS_POINT1[_yy] = $AA_IW[_yy]
$AA_MEAS_POINT1[_zz] = $AA_IW[_zz]
$AA_MEAS_POINT1[A] = $AA_IW[A]
$AA_MEAS_POINT1[B] = $AA_IW[B]
$AC_MEAS_P1_COORD=0
$AC_MEAS_P2_COORD=0
$AC_MEAS_CHSER=$MC_MM_SYSTEM_FRAME_MASK B_AND 'B1011111'
$AC_MEAS__NCBFR='B0'
$AC_MEAS__CHBFR='B1'
$AC_MEAS__UIFR=2
$AA_MEAS_PFRAME=1
RETVAL = MEASURE()
Erweiterungsfunktionen
Funktionshandbuch, 03/2010, 6FC5397-1BP20-1AA0
8.4 Setzen von Nullpunkten, Werkstückvermessung und Werkzeugvermessung
; Gesamtframe ergibt sich zu
CTRANS(_xx,10,_yy,-1,_zz,5,A,6,B,7)
; alle Frames und G54 aktivieren
; alle Eingangswerte ungültig setzen
; Messtyp für Koordinatentransformation
setzen
; Ebene für die Messung ist G17
; Messwerte zuweisen
; Messwert Abszisse zuweisen
; Messwert Ordinate zuweisen
; Messwert Applikate zuweisen
; Umrechnung einer Position vom WKS in WKS'
; WKS einstellen
; Gesamtframe ergibt sich aus
CTRANS(_xx,0,_yy,0,_zz,5,A,6,B,0)
; Zyklenframe ausschalten
; globale Basisframe ausschalten
; Kanal-Basisframe 1 aus Datenhaltung
; einstellbares Frame G55 aus Datenhaltung
; Pogrammierbares Frame nicht einrechnen
; Messberechnung starten
M5: Messen
663