Siemens SINUMERIK 828D Funktionshandbuch Seite 598

M5: Messen
9.5 Setzen von Nullpunkten, Werkstückvermessung und Werkzeugvermessung
Programmcode
DEF INT LAUF
DEF REAL_CORMW_xx, _CORMW_yy, _CORMW_zz
DEF AXIS _XX, _YY, _ZZ
$TC_DP1[1,1]=120
$TC_DP2[1,1]=20
$TC_DP3[1,1]=0
$TC_DP4[1,1]=0
$TC_DP5[1,1]=0
$TC_DP6[1,1]=2
T1 D1
G17
_xx=$P_AXN1 _yy=$P_AXN2 _zz=$P_AXN3
$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
598
Kommentar
; Werkzeugtyp Schaftfräser
; (z)Längenkorrekturvektor
; (y)Längenkorrekturvektor
; (x)Längenkorrekturvektor
; Radius
; Messtaster aktivieren
; schräge Ebene G17
; Achsen entsprechend der Ebene festlegen
; 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 set-
zen
; 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)
Funktionshandbuch, 08/2018, 6FC5397-1BP40-6AA2
Erweiterungsfunktionen