0 BEGIN PGM EXAMPLE_2 MM
1 ;MACHINE GATE LOCK CASE
2 ;PROGRAMMER-JOE SMITH
3 ; 07/05/2021 16:07:37
4 ;-------------------
5 L Z0 R F MAX M91
6 L X0.0 Y-5.0 R F5000 
7 ;50MM FACE MILL
8 TOOL CALL 1 Z S1000
9 L Z50.0 R F MAX M
10 L Z50.0 R F5000.0 M91
11 L Z5.0 R F5000.0 M3
12 CYCL DEF 230 MULTIPASS MILLING ~
  Q225=0 ;STARTNG PNT 1ST AXIS ~
  Q226=-5 ;STARTNG PNT 2ND AXIS ~
  Q227=2 ;STARTNG PNT 3RD AXIS ~
  Q218=320 ;FIRST SIDE LENGTH ~
  Q219=110 ;SECOND SIDE LENGTH ~
  Q240=4 ;NUMBER OF CUTS ~
  Q206=50 ;FEED RATE FOR PLNGNG ~
   Q207=80 ;FEED RATE FOR MILLNG ~
   Q209=80 ;STEPOVER FEED RATE ~
    Q200=5 ;SET-UP CLEARANCE
13 CYCL CALL
14 L Z50.0 R F MAX M3
15 L Z0 R F MAX M91
16 M01
17 ;--------------
18 ;MILL STEP BOTH ENDS
19 L Z0 R F MAX M91
20 L X5 Y-30 F MAX 
21 ;50MM FACE MILL
22 TOOL CALL 1 Z S1000
23 L Z50.0 R F MAX M
24 L Z0.0 R F2000.0 M3
25 LBL 2
26 L IZ-7
27 L Y105 F100
28 L IZ3 F MAX
29 L Y-30 F MAX
30 L IZ-3 F MAX
31 LBL 0
32 CALL LBL2 REP 3
33 L Z0.0
34 L X35 F MAX
35 CALL LBL2 REP 4
36 L Z10.0
37 L X290 F MAX
38 L Z0.0
39 CALL LBL2 REP 4
40 L Z0
41 L X260 F MAX
42 CALL LBL2 REP 4
43 L Z50.0 R F MAX M3
44 L Z0 R F MAX M91
45 M01
46 ;--------------
47 ;DRILL 12MM HOLES
48 L Z0 R F MAX M91
49 L X0.0 Y-5.0 R F5000 
50 ;12MM CARBIDE DRILL
51 TOOL CALL 13 Z S1000
52 L Z50.0 R F MAX M
53 CYCL DEF 200 DRILLING ~
   Q200=3.0 ;SET-UP CLEARANCE ~
   Q201=-22.0 ;DEPTH ~
   Q206=50.0 ;FEED RATE FOR PLUNGING ~
   Q202=-22.0 ;PLUNGING DEPTH ~
   Q210=0.0 ;DWELL TIME AT TOP ~
   Q203=-28.0 ;SURFACE COORDINATE ~
   Q204=50.0 ;2ND SET-UP CLEARANCE ~
   Q211=0.0 ;DWELL TIME AT BOTTOM ~
   Q395=0 ;DEPTH REFERENCE
54 L X30 Y50 F MAX M99
55 L X265 Y50 F MAX M99
56 l Z50 
57 CYCL DEF 200 DRILLING ~
   Q200=3.0 ;SET-UP CLEARANCE ~
   Q201=-24.0 ;DEPTH ~
   Q206=50.0 ;FEED RATE FOR PLUNGING ~
   Q202=-24.0 ;PLUNGING DEPTH ~
   Q210=0.0 ;DWELL TIME AT TOP ~
   Q203=0 ;SURFACE COORDINATE ~
   Q204=50.0 ;2ND SET-UP CLEARANCE ~
   Q211=0.0 ;DWELL TIME AT BOTTOM ~
   Q395=0 ;DEPTH REFERENCE
58 L X147.5 Y50 F MAX M99
59 L Z50
60 L X0 Y0 M5
61 L Z0 R F MAX M91
62 M01
63 ;--------------------
64 ;ROUGH MILL POCKET
65 L Z0 R F MAX M91
66 L X147.5 Y50.0 R F MAX 
67 ;20MM CARBIDE END MILL
68 TOOL CALL 5 Z S1200
69 L Z50.0 R F MAX M3
70 CYCL DEF 251 RECTANGULAR POCKET
   Q215=1;MACHINING OPERATION
   Q218=151;1ST SIDE LENGTH
   Q219=76;2ND SIDE LENGTH
   Q220=12;CORNER RADIUS
   Q368=0.5;ALLOWANCE FOR SIDE
   Q224=0;ANGLE OF ROTATION
   Q367=0;POCKET POSITION
   Q207=80;FEED RATE FOR MILLING
   Q351=+1;CLIMB OR UP-CUT
   Q201=-23;DEPTH
   Q202=7;PLUNGING DEPTH
   Q369=0;ALLOWANCE FOR FLOOR
   Q206=25;FEED RATE FOR PLNGNG
   Q338=30;INFEED FOR FINISHING
   Q200=2;SET-UP CLEARANCE
   Q203=0;SURFACE COORDINATE 
   Q204=50;2ND SET-UP CLEARANCE
   Q370=1.25;TOOL PATH OVERLAP
   Q366=2;PLUNGE
   Q385=35;FEED RATE FOR FINISHING
71 CYCL CALL
72 L Z50.0 R F MAX M3
73 L Z0 R F MAX M91
74 M01  
75 ;-----------
76 ;FINISH MILL POCKET
77 L Z0 R F MAX M91
78 L X147.5 Y50.0 R F MAX 
79 ;20MM CARBIDE END MILL
80 TOOL CALL 5 Z S1200
81 L Z50.0 R F MAX M3
82 L Z2.0 R F MAX M3
83 CYCL DEF 212 POCKET FINISHING ~
   Q200=2 ;SET-UP CLEARANCE ~
   Q201=-23 ;DEPTH ~
   Q206=25 ;FEED RATE FOR PLUNGING ~
   Q202=7 ;PLUNGING DEPTH ~
   Q207=80 ;FEED RATE FOR MILLING ~
    Q216=147.5 ;CENTER IN 1ST AXIS ~
    Q217=50 ;CENTER IN 2ND AXIS ~
    Q203=0 ;SURFACE COORDINATE ~
    Q204=50 ;2ND SET-UP CLEARANCE ~
    Q219=76 ;SECOND SIDE LENGTH ~
    Q220=12 ;CORNER RADIUS ~
    Q221=0 ;ALLOWANCE IN 1ST AXIS
84 CYCL CALL
85 L Z50.0 R F MAX M3
86 L Z0 R F MAX M91
87 M01   
88 ;------------
89 ;MILL 25MM SLOT
90 L Z0 R F MAX M91
91 L X265 Y50.0 R F MAX 
92 ;20MM CARBIDE END MILL
93 TOOL CALL 5 Z S1200
94 L Z50.0 R F MAX M3
95 L Z-26.0 R F 1500 M3
96 L Z-28.0 F100
97 LBL 1
98 L IZ-5.0
99 L X277.5 RL
100 L Y55.0
101 CC X265.0 Y55.0 
102 C X252.5 Y55.0 DR+ R F M
103 L Y45.0
104 CC X265.0 Y45.0 
105 C X277.5 Y45.0 DR+ R F M
106 L Y50.0
107 L X265.0 R0
108 LBL 0
109 CALL LBL1 REP 3
110 L Z50.0 R F MAX M3
111 L Z0 R F MAX M91
112 M01
113 ;----------------
114 ;DRILL 6.8MM 8 HOLES
115 L Z0 R F MAX M91
116 L X0.0 Y-5.0 R F5000 
117 ;6.8MM CARBIDE DRILL
118 TOOL CALL 14 Z S1000
119 L Z50.0 R F MAX M
120 CYCL DEF 200 DRILLING ~
    Q200=3.0 ;SET-UP CLEARANCE ~
    Q201=-25.0 ;DEPTH ~
    Q206=50.0 ;FEED RATE FOR PLUNGING ~
   Q202=-6.0 ;PLUNGING DEPTH ~
  Q210=0.0 ;DWELL TIME AT TOP ~
   Q203=0 ;SURFACE COORDINATE ~
   Q204=50.0 ;2ND SET-UP CLEARANCE ~
   Q211=0.5 ;DWELL TIME AT BOTTOM ~
   Q395=0 ;DEPTH REFERENCE
121 LBL 3
122 L X66 Y6 F MAX M99
123 L X66 Y50 F MAX M99
124 L X66 Y94 F MAX M99
125 L X147.5 Y94 F MAX M99
126 L X229 Y94 F MAX M99
127 L X229 Y50 F MAX M99
128 L X229 Y6 F MAX M99
129 L X147.5 Y6 F MAX M99
130 l Z50 F MAX
131 L Z0 R F MAX M91
132 LBL0
133 M01
134 ;-----------------
135 ; TAP 8 HOLES M8 X 18 DEEP
136 L Z0 R F MAX M91 
137 ;M8 TAP
138 TOOL CALL 20 Z S1000
139 L X66 Y6 F MAX 
140 L Z50.0 R F MAX M
141 CYCL DEF 207 RIGID TAPPING NEW ~
    Q200=10.0 ;SET-UP CLEARANCE ~
    Q201=-18.0 ;DEPTH ~
    Q239=1.5 ;THREAD PITCH ~
   Q203=0.0 ;SURFACE COORDINATE ~
   Q204=50.0 ;2ND SET-UP CLEARANCE
142 CALL LBL3
143 L Z50.0 R F MAX M3
144 L Z0 R F MAX M91
145 ;--------------------
146 ;PROFILE MILL END RADS
147 L Z0 R F MAX M91 
148 ;25MM CARBIDE END MILL
149 TOOL CALL 7 Z S1000
150 L X-20.0 Y-30.0 R F5000
151 L 50.0 R F MAX M3
152 L Z-47 F1570
153 L X60 Y-30 F1000
154 L Y0 RL
155 L X50 F100
156 CC X50.0 Y50.0 
157 C X50.0 Y100.0 DR- R F50 M
158 L X60
159 L Y130 R0 F1000
160 L Z50
161 L X235 F MAX
162 L Z-45
163 L Y100 RL F100
164 L X245 
165 CC X245.0 Y50.0 
166 C X245.0 Y0.0 DR- R F50 M
167 L Y-30 R0
168 L Z50
169 L X0 F MAX
170 M09
171 M05
172 L Z0 R F MAX M91
173 END PGM EXAMPLE_2 MM