Siemens SINUMERIK 840Di sl Handbuch Seite 698

Ausführliche Beschreibung
2.3 Setzen von Nullpunkten, Werkstückvermessung und Werkzeugvermessung
WKS Bezugspunkt auf schräge Ebene
Programmierbeispiel:
DEF INT RETVAL
DEF AXIS _XX, _YY, _ZZ
T1 D1
G54
$AC_MEAS_VALID = 0
$AC_MEAS_TYPE = 18
$AC_MEAS_ACT_PLANE = 0
_XX=$P_AXN1
_YY=$P_AXN2
_ZZ=$P_AXN3
G17 G1 _XX=10 _YY=10 F1000
MEAS = 1 _ZZ=...
$AA_MEAS_POINT1[_xx] = $AA_MW[_xx]
$AA_MEAS_POINT1[_yy] = $AA_MW[_yy]
$AA_MEAS_POINT1[_zz] = $AA_MW[_zz]
G1 _XX=20 _YY=10 F1000
MEAS = 1 _ZZ=...
$AA_MEAS_POINT2[_xx] = $AA_MW[_xx]
$AA_MEAS_POINT2[_yy] = $AA_MW[_yy]
$AA_MEAS_POINT2[_zz] = $AA_MW[_zz]
G1 _XX=20 _YY=20 F1000
MEAS = 1 _ZZ=...
$AA_MEAS_POINT3[_xx] = $AA_MW[_xx]
$AA_MEAS_POINT3[_yy] = $AA_MW[_yy]
$AA_MEAS_POINT3[_zz] = $AA_MW[_zz]
$AA_MEAS_SETPOINT[_xx] = 10
$AA_MEAS_SETPOINT[_yy] = 10
$AA_MEAS_SETPOINT[_zz] = 10
2-50
;
;
; Messtaster aktivieren
; alle Frames und G54 aktivieren
; Alle Eingangswerte ungültig setzen
; Messtyp für schräge Ebene setzen
; Ebene für die Messung ist G17
; Achsen entsprechend der Ebene festlegen
;
;
; 1. Messpunkt anfahren
;
;
; Messwert Abszisse zuweisen
; Messwert Ordinate zuweisen
; Messwert Applikate zuweisen
; 2. Messpunkt anfahren
;
;
; Messwert Abszisse zuweisen
; Messwert Ordinate zuweisen
; Messwert Applikate zuweisen
; 3. Messpunkt anfahren
;
;
; Messwert Abszisse zuweisen
; Messwert Ordinate zuweisen
; Messwert Applikate zuweisen
; Sollwerte für P1 vorgeben
;
;
;
Erweiterungsfunktionen: Messen (M5)
Funktionshandbuch, 11/2006, 6FC5397-1BP10-2AA0