Nullpunkt mit Programm setzen

Hallo !

Habe heute mal ein wenig rumgetüftelt.
Wir müssen öfter mal den Nullpunkt da hin setzen, wo A und C-Achse sich im Raum schneiden. Die Koordinaten dafür sind eigentlich im MP730.x abgeleget (Maschine Hermle C600U). Zu Fuß war das immer eine umständliche Rechnerei. Nun kann die Steuerung das selbst erledigen, ohne Verfahrbewegung. Nur T0 muß in der Spindel sein.

0 BEGIN PGM NULLPUNKT MM
;
13 L Z-32 R0 F MAX M91
14 TOOL CALL 0 Z S0
15 L Z-32 R0 F MAX M91
;
; NULLPUNKT (REF - WO ER HIN SOLL AUS MP7530 LESEN)
7 FN 18: SYSREAD Q1 = ID1000 NR7530 IDX0 ; X
8 FN 18: SYSREAD Q2 = ID1000 NR7530 IDX1 ; Y
9 FN 18: SYSREAD Q5 = ID1000 NR7530 IDX2 ; Z
10 FN 18: SYSREAD Q6 = ID1000 NR7530 IDX5 ; Z(INK)
11 Q3 = Q5 + Q6 ; ZNULL (REF)
;
; SPINDELPOSITION (REF)
18 FN 18: SYSREAD Q11 = ID240 NR1 IDX1 ; X
19 FN 18: SYSREAD Q12 = ID240 NR1 IDX2 ; Y
24 FN 18: SYSREAD Q13 = ID240 NR1 IDX3 ; Z
;
; SPINDELPOSITION (BEZUGSPUNKT)
18 FN 18: SYSREAD Q21 = ID270 NR1 IDX1 ; X
19 FN 18: SYSREAD Q22 = ID270 NR1 IDX2 ; Y
24 FN 18: SYSREAD Q23 = ID270 NR1 IDX3 ; Z
;
; RECHNEN
1 Q31 = Q11 - Q1
1 Q32 = Q12 - Q2
1 Q33 = Q13 - Q3
;
; SETZEN
20 FN 25: PRESET = X /+Q21 /+Q31
21 FN 25: PRESET = Y /+Q22 /+Q32
25 FN 25: PRESET = Z /+Q23 /+Q33
27 M30
28 END PGM NULLPUNKT MM


Ich dachte :


Vielleicht ist das für den Einen oder Anderen interessant.

Tschau,
Butkhardt.