0  BEGIN PGM 8275_DE MM 
1  ;NC-Programm, um eine Messroutine von einer
2  ;manuell angefahrenen Position aus zu starten.
3  ;Bevor Sie das NC-Programm starten, muessen 
4  ;Sie das 3D-Tastsystem in die Spindel
5  ;einwechseln und  dieses manuell
6  ;an der Startposition der Messroutine
7  ;vorpositionieren.
8  ;Anschliessend definieren Sie am Anfang dieses
9  ;NC-Programms alle benoetigten Parameter. 
10 ;Danach starten Sie das NC-Programm in der
11 ;Maschinenbetriebsart und die Steuerung fuehrt
12 ;die Messroutine aus.
13 ;Fuer die Definition der Parameter und den
14 ;Ablauf der im Beispiel programmierten
15 ;Messroutine beachten Sie bitte die
16 ;Programmbeschreibung, die Sie ebenfalls
17 ;in der NC-Solutions Datenbank herunterladen
18 ;koennen.
19 ;
20 ;Parametereingabe!
21 ;
22 ;Abstand vom Ende der kinematischen
23 ;Beschreibung zum Maschinen-Nullpunkt.
24 ;Eine Beschreibung zur Ermittelung der Werte
25 ;finden Sie in der PDF des Datenbankeintrags.
26 FN 0: Q66 =+300.7549 ;ABSTAND IN DER X-ACHSE
27 FN 0: Q67 =+199.9312 ;ABSTAND IN DER Y-ACHSE
28 FN 0: Q68 =+582.3441 ;ABSTAND IN DER Z-ACHSE
29 ;
30 FN 0: Q59 =+43 ;NUMMER DES BEZUGSPUNKTS FUER DIE ANTASTROUTINE
31 FN 0: Q60 =+44 ;NUMMER DES ZU BESCHREIBENDEN BEZUGSPUNKTS
32 ;
33 ;Allgemeine Parameter fuer die Antastzyklen
34 FN 0: Q69 =+20 ;SICHERE HOEHE
35 FN 0: Q70 =+10 ;SICHERHEITSABSTAND
36 ;
37 ;Werte fuer das Antasten Bezugspunkt X
38 FN 0: Q72 =+0 ;X-KOORDINATE ANTASTPUNKT
39 FN 0: Q73 =+10 ;Y-KOORDINATE ANTASTPUNKT
40 FN 0: Q74 =+1 ;ANTASTRICHTUNG
41 ;             ;+1=Positive Richtung
42 ;             ;-1=Negative Richtung
43 FN 0: Q75 =-10 ;MESSHOEHE
44 FN 0: Q71 =-25 ;BEZUGSPUNKT X
45 ;
46 ;Werte fuer das Anasten Bezugspunkt Y
47 FN 0: Q82 =+10 ;X-KOORDINATE ANTASTPUNKT
48 FN 0: Q83 =+0 ;Y-KOORDINATE ANTASTPUNKT
49 FN 0: Q84 =+1 ;ANTASTRICHTUNG
50 ;             ;+1=Positive Richtung
51 ;             ;-1=Negative Richtung
52 FN 0: Q85 =-10 ;MESSHOEHE
53 FN 0: Q81 =-25 ;BEZUGSPUNKT Y
54 ;
55 ;Werte fuer das Antasten Bezugspunkt Z
56 FN 0: Q92 =+10 ;X-KOORDINATE ANTASTPUNKT
57 FN 0: Q93 =+10 ;Y-KOORDINATE ANTASTPUNKT
58 FN 0: Q94 =-1 ;ANTASTRICHTUNG
59 ;             ;+1=Positive Richtung
60 ;             ;-1=Negative Richtung
61 FN 0: Q95 =+0 ;MESSHOEHE
62 FN 0: Q91 =+0 ;BEZUGSPUNKT Z
63 ;
64 ;Parametereingabe beendet!
65 ;
66 ;Aktuelle Werkzeugposition als Bezugspunkt definieren
67 ;Bezugspunkt aktivieren
68 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
    Q339=+Q59  ;BEZUGSPUNKT-NUMMER
69 ;
70 ;Referenzbezogene Ist-Position lesen
71 FN 18: SYSREAD Q61 = ID241 NR1 IDX1 ;X-Achse
72 FN 18: SYSREAD Q62 = ID241 NR1 IDX2 ;Y-Achse
73 FN 18: SYSREAD Q63 = ID241 NR1 IDX3 ;Z-Achse
74 ;
75 FN 1: Q61 =+Q61 + +Q66 ;Bezugspunkt X berechnen
76 ;
77 FN 1: Q62 =+Q62 + +Q67 ;Bezugspunkt Y berechnen
78 ;
79 FN 18: SYSREAD Q64 = ID20 NR1 ;Aktuelle Werkzeugnummer lesen
80 ;
81 FN 18: SYSREAD Q65 = ID50 NR1 IDXQ64 ;Aktuelle Werkzeuglaenge lesen
82 ;
83 FN 1: Q63 =+Q63 + +Q68 ;Bezugspunkt Z berechnen
84 FN 1: Q63 =+Q63 + -Q65 ;Bezugspunkt Z berechnen
85 ;
86 ;Werte in die Bezugspunkttabelle schreiben
87 FN 17: SYSWRITE ID 507 NRQ59 IDX1 =+Q61 ;X-Achse
88 FN 17: SYSWRITE ID 507 NRQ59 IDX2 =+Q62 ;Y-Achse
89 FN 17: SYSWRITE ID 507 NRQ59 IDX3 =+Q63 ;Z-Achse
90 ;
91 ;Neuen Bezugspunkt aktivieren 
92 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
    Q339=+Q59  ;BEZUGSPUNKT-NUMMER
93 ;
94 ;Programmunterbrechung vorm Messen
95 STOP
96 ;
97 ;Bezugspunkt Z setzen
98 TCH PROBE 419 BZPKT EINZELNE ACHSE ~
    Q263=+Q92  ;1. PUNKT 1. ACHSE ~
    Q264=+Q93  ;1. PUNKT 2. ACHSE ~
    Q261=+Q95  ;MESSHOEHE ~
    Q320=+Q70  ;SICHERHEITS-ABST. ~
    Q260=+Q69  ;SICHERE HOEHE ~
    Q272=+3    ;MESSACHSE ~
    Q267=+Q94  ;VERFAHRRICHTUNG ~
    Q305=+Q60  ;NR. IN TABELLE ~
    Q333=+Q91  ;BEZUGSPUNKT ~
    Q303=+1    ;MESSWERT-UEBERGABE
99 ;Bezugspunkt X setzen
100 TCH PROBE 419 BZPKT EINZELNE ACHSE ~
    Q263=+Q72  ;1. PUNKT 1. ACHSE ~
    Q264=+Q73  ;1. PUNKT 2. ACHSE ~
    Q261=+Q75  ;MESSHOEHE ~
    Q320=+Q70  ;SICHERHEITS-ABST. ~
    Q260=+Q69  ;SICHERE HOEHE ~
    Q272=+1    ;MESSACHSE ~
    Q267=+Q74  ;VERFAHRRICHTUNG ~
    Q305=+Q60  ;NR. IN TABELLE ~
    Q333=+Q71  ;BEZUGSPUNKT ~
    Q303=+1    ;MESSWERT-UEBERGABE
101 ;Bezugspunkt Y setzen
102 TCH PROBE 419 BZPKT EINZELNE ACHSE ~
    Q263=+Q82  ;1. PUNKT 1. ACHSE ~
    Q264=+Q83  ;1. PUNKT 2. ACHSE ~
    Q261=+Q85  ;MESSHOEHE ~
    Q320=+Q70  ;SICHERHEITS-ABST. ~
    Q260=+Q69  ;SICHERE HOEHE ~
    Q272=+2    ;MESSACHSE ~
    Q267=+Q84  ;VERFAHRRICHTUNG ~
    Q305=+Q60  ;NR. IN TABELLE ~
    Q333=+Q81  ;BEZUGSPUNKT ~
    Q303=+1    ;MESSWERT-UEBERGABE
103 ;Neuen Bezugspunkt aktivieren
104 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
    Q339=+Q60  ;BEZUGSPUNKT-NUMMER
105 ;
106 L  X+0  Y+0 R0 FMAX ;Bezugspunkt in der Ebene X/Y anfahren
107 M140 MB MAX ;Freifahren
108 M30 ;Programmende
109 END PGM 8275_DE MM