0  BEGIN PGM 4225_EN MM 
1  ;Program with inclined tool for several operations 
2  ;that lie on a straight line.
3  ;This example begins with a milling cutter 
4  ;machining pockets in order to create a surface.
5  ;A second operation drills holes perpendicular 
6  ;to the pocket floor.
7  ;First you have to define all required parameters.
8  ;You also have to adapt the tool data 
9  ;and, if necessary, the cycles.
10 ;IMPORTANT INFORMATION! 
11 ;The program is written for machines 
12 ;that are adjusted for tilting the working plane 
13 ;with a spatial angle.
14 ;If your machine works only with axis angles, 
15 ;you also have to change the input in Cycle 19.
16 ;You also have to move 
17 ;to a machine-independent clearance position 
18 ;before tilting the working plane 
19 ;in order to avoid a collision 
20 ;when moving the rotary axis.
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-30
23 BLK FORM 0.2  X+100  Y+100  Z+0
24 ;
25 ;Parameter entry
26 ;Position and orientation of the holes
27 FN 0: Q10 =+15 ;COORDINATE OF 1ST HOLE IN X
28 FN 0: Q11 =+15 ;COORDINATE OF 1ST HOLE IN Y
29 FN 0: Q12 =+10 ;DISTANCE BETWEEN HOLES IN THE
30 ;              ;X AXIS
31 FN 0: Q13 =+10 ;DISTANCE BETWEEN HOLES IN THE
32 ;              ;Y AXIS
33 FN 0: Q14 =+8 ;NUMBER OF HOLES
34 FN 0: Q15 =+30 ;SPATIAL ANGLE A OF MACHINING
35 FN 0: Q16 =+0 ;SPATIAL ANGLE B OF MACHINING
36 FN 0: Q17 =-150 ;SPATIAL ANGLE C OF MACHINING
37 ;Parameters for pocket milling
38 FN 0: Q2 =+3 ;POCKET DEPTH
39 FN 0: Q3 =+8 ;POCKET DIAMETER
40 FN 0: Q18 =+400 ;FEED RATE FOR POCKET MILLING
41 ;Parameters for drilling
42 FN 0: Q4 =+20 ;HOLE DEPTH
43 FN 0: Q19 =+500 ;FEED RATE FOR DRILLING
44 ;End of parameter input
45 ;
46 ;Calculations
47 FN 2: Q1 =+Q14 - +2 ;Number of repetitions
48 ;End of calculations
49 ;
50 M3
51 ;End mill tool call for centering
52 TOOL CALL 4 Z S2000 F300
53 ;Subprogram call for reset
54 CALL LBL 10
55 ;Cycle for creating a plane surface / 
56 ;for centering
57 CYCL DEF 252 CIRCULAR POCKET ~
    Q215=+0    ;MACHINING OPERATION ~
    Q223=+Q3   ;CIRCLE DIAMETER ~
    Q368=+0    ;ALLOWANCE FOR SIDE ~
    Q207=+Q18  ;FEED RATE FOR MILLNG ~
    Q351=+1    ;CLIMB OR UP-CUT ~
    Q201=-Q2   ;DEPTH ~
    Q202=+5    ;PLUNGING DEPTH ~
    Q369=+0    ;ALLOWANCE FOR FLOOR ~
    Q206=+Q18  ;FEED RATE FOR PLNGNG ~
    Q338=+0    ;INFEED FOR FINISHING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q370=+1    ;TOOL PATH OVERLAP ~
    Q366=+1    ;PLUNGE ~
    Q385=+500  ;FINISHING FEED RATE
58 ;Subprogram call for positioning and machining
59 CALL LBL 3
60 ;Retract
61 L  Z+50 F2222
62 ;
63 ;Tool call for drill
64 TOOL CALL 227 Z S1000 F300
65 ;Definition of drilling cycle
66 CYCL DEF 200 DRILLING ~
    Q200=+5    ;SET-UP CLEARANCE ~
    Q201=-Q4   ;DEPTH ~
    Q206=+Q19  ;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=+0    ;DEPTH REFERENCE
67 ;Subprogram call for positioning and machining
68 CALL LBL 3
69 ;Retract and end program
70 L  Z+50 F2222 M30
71 ;
72 ;Subprogram for positioning and machining
73 LBL 3
74 ;Datum shift to the first operation
75 CYCL DEF 7.0 DATUM SHIFT
76 CYCL DEF 7.1  Y+Q10
77 CYCL DEF 7.2  X+Q11
78 ;Tilting the working plane
79 CYCL DEF 19.0 WORKING PLANE
80 CYCL DEF 19.1  A+Q15  B+Q16  C+Q17
81 ;Move to safe position
82 M140 MB MAX F9999
83 ;Positioning the rotary axes
84 L  A+Q120  B+Q121  C+Q122 R0 FMAX
85 ;Moving to the first machining position
86 L  X+0  Y+0  Z+50 R0 FMAX M3
87 ;Cycle call
88 M99
89 ;Program section repeat for further operations
90 LBL 2
91 ;Subprogram call for further operations
92 CALL LBL 1
93 ;Call of repetitions
94 CALL LBL 2 REPQ1
95 ;Retract
96 M140 MB MAX F9999
97 ;Subprogram call for reset
98 CALL LBL 10
99 ;Tilting back the rotary axes
100 L  A+Q120  B+Q121  C+Q122 R0 FMAX
101 ;Reset the datum shift
102 CYCL DEF 7.0 DATUM SHIFT
103 CYCL DEF 7.1  Y+0
104 CYCL DEF 7.2  X+0
105 LBL 0
106 ;
107 ;Subprogram for further operations
108 LBL 1
109 ;Subprogram call for reset
110 CALL LBL 10
111 ;Incremental datum shift to the next position
112 CYCL DEF 7.0 DATUM SHIFT
113 CYCL DEF 7.1 IX+Q12
114 CYCL DEF 7.2 IY+Q13
115 ;Tilt working plane
116 CYCL DEF 19.0 WORKING PLANE
117 CYCL DEF 19.1  A+Q15  B+Q16  C+Q17
118 ;Move to the machining position
119 L  X+0  Y+0  Z+50 R0 FMAX
120 ;Cycle call
121 M99
122 ;Subprogram call for reset
123 CALL LBL 10
124 LBL 0
125 ;
126 ;Subprogram for reset
127 LBL 10
128 ;Tilt back the working plane
129 CYCL DEF 19.0 WORKING PLANE
130 CYCL DEF 19.1  A+0  B+0  C+0
131 ;Deselect tilting the working plane
132 CYCL DEF 19.0 WORKING PLANE
133 CYCL DEF 19.1
134 ;Reset of scaling factor
135 CYCL DEF 11.0 SCALING FACTOR
136 CYCL DEF 11.1 SCL 1
137 ;Reset of rotation
138 CYCL DEF 10.0 ROTATION
139 CYCL DEF 10.1  ROT+0
140 LBL 0
141 END PGM 4225_EN MM