Es hat funktioniert, ich hoffe noch auf ein positives Feedback.
0 BEGIN PGM UNTERSEITE_TASTEN MM
1 FUNCTION MODE MILL
2 * - ******************************************
3 * - Unterseite antasten und gerade stellen mit Einzelne Achse tasten und Plane Points in 3_Bezugspunkttabellen!
4 * - ******************************************
5 ; - Aufbau:
6 ; - ROTA-S_flex ohne Tuerme mit harten >geschliffenen< Backen (2.Treppe)
7 ; - Kurze Grundbacken >normal< herum einschieben (6.Stufe-->8mm)
8 ; - Einstellrin Dm175x31,2
9 ; - Aufhebung der Bezugspunktsperre in den Tabellen 7/8/9 funktioniert nicht ueber QR-Parameter! Haendisch aendern!
10 ; - 10Nm
11 ; - NP mittig
12 ;
13 ;*********************************************
14 QR1 = 24 ; Bezugspunkttabelle G_2.Treppe
15 QR2 = 18 ; Bezugspunkttabelle ROTA-S_tasten
16 QR173 = 7 ; Bezugspunkttabelle Hilfe_1
17 QR174 = 8 ; Bezugspunkttabelle Hilfe_2
18 QR174 = 9 ; Bezugspunkttabelle Hilfe_3
19 ;*********************************************
20 QR10 = 0 ; Freifahren in X rechts
21 QR11 = 400 ; Freifahren in Y auf Mitte
22 QR12 = 800 ; Freifahren in Y hinten
23 FN 17: SYSWRITE ID 507 NRQR2 IDX1 =+0 ; X-Achse 0 setzen
24 FN 17: SYSWRITE ID 507 NRQR2 IDX2 =+0 ; Y-Achse 0 setzen
25 ;
26 FN 18: SYSREAD QR100 = ID508 NR15 IDX6 ; C_OFFS aus der Bezugspunkttabelle Kinematik auslesen!
27 FN 17: SYSWRITE ID 508 NRQR1 IDX6 =+QR100 ; C_OFFS in die aktuelle Bezugspunkttabelle einschreiben!
28 FN 17: SYSWRITE ID 508 NRQR2 IDX6 =+QR100 ; C_OFFS in die aktuelle Bezugspunkttabelle einschreiben!
29 ;
30 FN 18: SYSREAD QR101 = ID507 NRQR1 IDX3
31 FN 17: SYSWRITE ID 507 NRQR2 IDX3 =+QR101
32 ;
33 QS0 = "!L" ;Parameter fuer die Aufhebung definieren
34 DATA WRITE "\TABLE\'TNC:\table\preset.pr'\NO\7\LOCKED" = QS0 ;Gewuenschte PRESET Zeile entsperren
35 DATA WRITE "\TABLE\'TNC:\table\preset.pr'\NO\8\LOCKED" = QS0 ;Gewuenschte PRESET Zeile entsperren
36 DATA WRITE "\TABLE\'TNC:\table\preset.pr'\NO\9\LOCKED" = QS0 ;Gewuenschte PRESET Zeile entsperren
37 ;*********************************************
38 * - MESSTASTER
39 TOOL CALL "MESSTASTER" Z
40 M140 MB MAX
41 M25 M27
42 ;
43 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
Q339=+QR2 ;BEZUGSPUNKT-NUMMER
44 CYCL DEF 330 Werte in Preset ~
Q1525=+0 ;löschen/schreiben
45 PLANE RESET STAY
46 L A+0 C+0 R0 FMAX
47 L Y+QR11 R0 FMAX M91
48 ;
49 PLANE SPATIAL SPA-90 SPB+0 SPC+90 TURN MB MAX FMAX SEQ- TABLE ROT
50 TCH PROBE 419 BZPKT EINZELNE ACHSE ~
Q263=-70 ;1. PUNKT 1. ACHSE ~
Q264=+0 ;1. PUNKT 2. ACHSE ~
Q261=+85 ;MESSHOEHE ~
Q320=+10 ;SICHERHEITS-ABST. ~
Q260=+200 ;SICHERE HOEHE ~
Q272=+2 ;MESSACHSE ~
Q267=-1 ;VERFAHRRICHTUNG ~
Q305=+QR173 ;NR. IN TABELLE ~
Q333=+0 ;BEZUGSPUNKT ~
Q303=+1 ;MESSWERT-UEBERGABE
51 QR263 = - Q261
52 QR264 = Q263
53 FN 18: SYSREAD Q173 = ID507 NRQR173 IDX3 ; Z-Achse aus Bezugspunktabelle auslesen
54 PLANE RESET STAY
55 ;
56 PLANE SPATIAL SPA-90 SPB+0 SPC-90 TURN MB MAX FMAX SEQ- TABLE ROT
57 TCH PROBE 419 BZPKT EINZELNE ACHSE ~
Q263=+70 ;1. PUNKT 1. ACHSE ~
Q264=+0 ;1. PUNKT 2. ACHSE ~
Q261=+85 ;MESSHOEHE ~
Q320=+10 ;SICHERHEITS-ABST. ~
Q260=+200 ;SICHERE HOEHE ~
Q272=+2 ;MESSACHSE ~
Q267=-1 ;VERFAHRRICHTUNG ~
Q305=+QR174 ;NR. IN TABELLE ~
Q333=+0 ;BEZUGSPUNKT ~
Q303=+1 ;MESSWERT-UEBERGABE
58 QR265 = Q261
59 QR266 = - Q263
60 FN 18: SYSREAD Q174 = ID507 NRQR174 IDX3 ; Z-Achse aus Bezugspunktabelle auslesen
61 PLANE RESET STAY
62 ;
63 PLANE SPATIAL SPA-90 SPB+0 SPC+0 TURN MB MAX FMAX SEQ- TABLE ROT
64 TCH PROBE 419 BZPKT EINZELNE ACHSE ~
Q263=+0 ;1. PUNKT 1. ACHSE ~
Q264=+0 ;1. PUNKT 2. ACHSE ~
Q261=+115 ;MESSHOEHE ~
Q320=+10 ;SICHERHEITS-ABST. ~
Q260=+200 ;SICHERE HOEHE ~
Q272=+2 ;MESSACHSE ~
Q267=-1 ;VERFAHRRICHTUNG ~
Q305=+QR175 ;NR. IN TABELLE ~
Q333=+0 ;BEZUGSPUNKT ~
Q303=+1 ;MESSWERT-UEBERGABE
65 QR296 = Q263
66 QR297 = Q261
67 FN 18: SYSREAD Q175 = ID507 NRQR175 IDX3 ; Z-Achse aus Bezugspunktabelle auslesen
68 PLANE RESET TURN MB MAX FMAX
69 ;
70 PLANE POINTS P1X+QR263 P1Y+QR264 P1Z+Q173 P2X+QR265 P2Y+QR266 P2Z+Q174 P3X+QR296 P3Y+QR297 P3Z+Q175 STAY SEQ- TABLE ROT
71 Q1600 = 360 - Q122
72 PLANE SPATIAL SPA+Q120 SPB+0 SPC+Q122 TURN MB MAX FMAX SEQ- TABLE ROT
73 ;*********************************************
74 ;
75 ;
76 CYCL DEF 330 Werte in Preset ~
Q1525=+1 ;löschen/schreiben
77 ;
78 CALL LBL "Schwenken"
79 CYCL DEF 10.0 DREHUNG
80 CYCL DEF 10.1 ROT+Q1600
81 TCH PROBE 412 BZPKT KREIS INNEN ~
Q321=+0 ;MITTE 1. ACHSE ~
Q322=+0 ;MITTE 2. ACHSE ~
Q262=+175 ;SOLL-DURCHMESSER ~
Q325=+0 ;STARTWINKEL ~
Q247=+90 ;WINKELSCHRITT ~
Q261=+20 ;MESSHOEHE ~
Q320=+10 ;SICHERHEITS-ABST. ~
Q260=+100 ;SICHERE HOEHE ~
Q301=+0 ;FAHREN AUF S. HOEHE ~
Q305=+QR2 ;NR. IN TABELLE ~
Q331=+0 ;BEZUGSPUNKT ~
Q332=+0 ;BEZUGSPUNKT ~
Q303=+1 ;MESSWERT-UEBERGABE ~
Q381=+0 ;ANTASTEN TS-ACHSE ~
Q382=+0 ;1. KO. FUER TS-ACHSE ~
Q383=+0 ;2. KO. FUER TS-ACHSE ~
Q384=+0 ;3. KO. FUER TS-ACHSE ~
Q333=+0 ;BEZUGSPUNKT ~
Q423=+4 ;ANZAHL ANTASTUNGEN ~
Q365=+1 ;VERFAHRART
82 ;
83 M0
84 ;*********************************************
85 *
86 * >>> Ende <<<
87 *
88 FN 17: SYSWRITE ID 507 NRQR2 IDX1 =+0 ; X-Achse 0 setzen
89 FN 17: SYSWRITE ID 507 NRQR2 IDX2 =+0 ; Y-Achse 0 setzen
90 CYCL DEF 330 Werte in Preset ~
Q1525=+0 ;löschen/schreiben
91 FN 17: SYSWRITE ID 508 NRQR2 IDX6 =+QR100 ; C_OFFS in die aktuelle Bezugspunkttabelle einschreiben!
92 ;
93 QS0 = "L" ;Parameter fuer das Sperren (L=LOCKED) definieren
94 DATA WRITE "\TABLE\'TNC:\table\preset.pr'\NO\7\LOCKED" = QS0 ;Gewuenschte PRESET Zeile sperren
95 DATA WRITE "\TABLE\'TNC:\table\preset.pr'\NO\8\LOCKED" = QS0 ;Gewuenschte PRESET Zeile sperren
96 DATA WRITE "\TABLE\'TNC:\table\preset.pr'\NO\9\LOCKED" = QS0 ;Gewuenschte PRESET Zeile sperren
97 ;*********************************************
98 CALL PGM TNC:\PROGRAMME\Abkippen-Ende.H
99 ;*********************************************
100 M30 M31
101 ;*********************************************
102 * - LBL "Schwenken"
103 LBL "Schwenken"
104 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN FMAX SEQ- TABLE ROT
105 LBL 0
106 ;*********************************************
107 END PGM UNTERSEITE_TASTEN MM