0  BEGIN PGM 8230_EN MM 
1  ;This NC program is for measuring the exact
2  ;Z coordinates of machining positions defined in
3  ;a point table and for entering these
4  ;coordinates in the table. The point table is
5  ;then defined as a pattern, and the control executes
6  ;a defined machining cycle at the positions.
7  ;The Z coordinate entered in the table defines the
8  ;starting point of the cycle, so that the depth
9  ;defined in the cycle is always 
10 ;referenced to the previously measured
11 ;Z coordinate.
12 ;
13 BLK FORM 0.1 Z X-25 Y-25 Z-50
14 BLK FORM 0.2  X+25  Y+25  Z+0
15 ;
16 ;Measuring
17 ;Tool call for touch probe
18 TOOL CALL "TOUCH_PROBE" Z
19 ;
20 ;Opening the table
21 FN 26: TABOPEN 82301_en.PNT
22 ;
23 Q52 = 5 ;NUMBER OF POSITIONS TO BE MEASURED
24 CALL LBL "MEASURE" ;Calling of “MEASURE” subprogram
25 ;
26 ;Machining
27 ;Tool call for drill
28 TOOL CALL "DRILL_D8.5" Z S9000 F2500
29 M3
30 CYCL DEF 200 DRILLING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q201=-2    ;DEPTH ~
    Q206= AUTO ;FEED RATE FOR PLNGNG ~
    Q202=+5    ;PLUNGING DEPTH ~
    Q210=+0    ;DWELL TIME AT TOP ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q211=+0    ;DWELL TIME AT DEPTH ~
    Q395=+1    ;DEPTH REFERENCE
31 SEL PATTERN "82301_en.PNT"
32 L  X+0  Y+0  Z+50 R0 FMAX
33 CYCL CALL PAT FMAX
34 ;
35 CALL LBL "SAFE" ;Moving to set-up position
36 ;
37 ;End of program
38 M30
39 ;
40 ;Subprograms
41 ;Moving to set-up position
42 LBL "SAFE"
43 M140 MB MAX F9999
44 L  X+0  Y+0 R0 FMAX M91
45 LBL 0
46 ;
47 ;“MEASURE” subprogram
48 LBL "MEASURE"
49 Q50 = 0 ;First line
50 Q51 = Q52 - 1 ;Calculation for number of repetitions
51 LBL "LOOP"
52 ;Reading X/Y coordinates for measurement
53 FN 28: TABREAD Q55 =Q50 /"X,Y"
54 TCH PROBE 427 MEASURE COORDINATE ~
    Q263=+Q55  ;1ST POINT 1ST AXIS ~
    Q264=+Q56  ;1ST POINT 2ND AXIS ~
    Q261=+0    ;MEASURING HEIGHT ~
    Q320=+5    ;SET-UP CLEARANCE ~
    Q272=+3    ;MEASURING AXIS ~
    Q267=-1    ;TRAVERSE DIRECTION ~
    Q260=+15   ;CLEARANCE HEIGHT ~
    Q281=+0    ;MEASURING LOG ~
    Q288=+0    ;MAXIMUM LIMIT ~
    Q289=+0    ;MINIMUM LIMIT ~
    Q309=+0    ;PGM STOP TOLERANCE ~
    Q330=+0    ;TOOL ~
    Q498=+0    ;REVERSE TOOL ~
    Q531=+0    ;ANGLE OF INCIDENCE
55 ;Saving measurement result in Z in the point file
56 FN 27: TABWRITE Q50 /"Z" = Q160
57 Q50 = Q50 + 1 ;Incrementing the line number
58 CALL LBL "LOOP" REPQ51
59 LBL 0
60 END PGM 8230_EN MM