0 BEGIN PGM 4240_en MM 
1 ;NC program for machining four workpieces 
2 ;using a pyramid fixture.
3 ;The control mills a chamfer of 5 x 45 
4 ;degrees on each of the workpieces of 
5 ;60 mm x 60 mm x 60 mm. The machining 
6 ;operation is carried out using an 
7 ;inclined end mill.
8 ;
9 ;The workpieces are clamped on a pyramid 
10 ;fixture at an angle of 45 degrees.
11 ;
12 ;The workpieces are set up as follows:
13 ;Workpiece 1 -> PRESET 6 --> Front
14 ;Workpiece 2 -> PRESET 7 --> Right
15 ;Workpiece 3 -> PRESET 8 --> Rear
16 ;Workpiece 4 -> PRESET 9 --> Left
17 ;
18 ;Workpiece machining is programmed in 
19 ;the "MACHINING" subprogram.
20 ;The control executes this subprogram at 
21 ;every preset, taking into account the
22 ;respective angle for alignment.
23 ;Please keep in mind that the angles for 
24 ;aligning the pyramid fixture must have 
25 ;been saved to the parameters 
26 ;QR170, QR171, and QR172, respectively.
27 ;The "MACHINING" subprogram first contains
28 ;the definition of the tool. Then the 
29 ;control calls an LBL "TILT..." and the
30 ;LBL "MILL" for every surface to be machined.
31 ;For each machining operation, the "TILT..."
32 ;subprograms define the datum shift and the
33 ;tilting of the working plane relative to
34 ;the workpiece coordinate system.
35 ;The control then calls the LBL"TILT_NEW".
36 ;In this subprogram, the control then uses
37 ;the angles for defining the clamping
38 ;position, the datum shift, and the
39 ;tilting of the working plane to calculate
40 ;the resulting solid angle and the datum
41 ;shift. This angle and datum shift are
42 ;activated by the control. It then executes
43 ;the machining operation programmed
44 ;in LBL "MILL".
45 ;
46 * -Definition of side 1 FRONT
47 CYCL DEF 247 PRESETTING ~
   Q339=+6    ;PRESET NUMBER
48 ;SPA aligned = QR170
QR170 = 45
49 ;SPB aligned = QR171
QR171 = 0
50 ;SPC aligned = QR172
QR172 = 0
51 CALL LBL "MACHINING"
52 ;
53 * -Definition of side 2 RIGHT
54 CYCL DEF 247 PRESETTING ~
   Q339=+7    ;PRESET NUMBER
55 ;SPA aligned = QR170
QR170 = 45
56 ;SPB aligned = QR171
QR171 = 0
57 ;SPC aligned = QR172
QR172 = 90
58 CALL LBL "MACHINING"
59 ;
60 * -Definition of side 3 REAR
61 CYCL DEF 247 PRESETTING ~
   Q339=+8    ;PRESET NUMBER
62 ;SPA aligned = QR170
QR170 = 45
63 ;SPB aligned = QR171
QR171 = 0
64 ;SPC aligned = QR172
QR172 = 180
65 CALL LBL "MACHINING"
66 ;
67 * -Definition of side 4 LEFT
68 CYCL DEF 247 PRESETTING ~
   Q339=+9    ;PRESET NUMBER
69 ;SPA aligned = QR170
QR170 = 45
70 ;SPB aligned = QR171
QR171 = 0
71 ;SPC aligned = QR172
QR172 = 270
72 CALL LBL "MACHINING"
73 ;
74 ;Reset all coordinate transformations
75 CALL LBL "RESET"
76 ;
77 ;End of program
78 M30
79 ;
80 ;Subprograms
81 * - MACHINING
82 LBL "MACHINING"
83 * - Milling of surface 45
84 TOOL CALL "D16" Z S9000 F2000
85 CALL LBL "SAFE"
86 CALL LBL "TILT1"
87 CALL LBL "MILL"
88 CALL LBL "TILT2"
89 CALL LBL "MILL"
90 CALL LBL "TILT3"
91 CALL LBL "MILL"
92 CALL LBL "TILT4"
93 CALL LBL "MILL"
94 LBL 0
95 ;
96 * - Milling
97 LBL "MILL"
98 L  X-20  Y+5  Z+50 R0 FMAX
99 L  Z+5 R0 FMAX
100 L  Z+0 R0 F2000
101 APPR LT  X+0  Y-1 LEN10 RL F AUTO
102 L  X+60
103 DEP LT LEN10
104 L  Z+50 R0 FMAX
105 LBL 0
106 ;
107 * - Tilting to 0 degrees
108 LBL "TILT0"
109 PLANE RESET STAY
110 CYCL DEF 7.0 DATUM SHIFT
111 CYCL DEF 7.1  X+0
112 CYCL DEF 7.2  Y+0
113 CYCL DEF 7.3  Z+0
114 CALL LBL "SAFE"
115 PLANE SPATIAL SPA+0 SPB+0 SPC+0 STAY SEQ-
116 ;Conversion to plane
117 CALL LBL "TILT_NEW"
118 LBL 0
119 ;
120 * - Tilting 1
121 LBL "TILT1"
122 PLANE RESET STAY
123 CYCL DEF 7.0 DATUM SHIFT
124 CYCL DEF 7.1  X-30
125 CYCL DEF 7.2  Y-30
126 CYCL DEF 7.3  Z-5
127 CALL LBL "SAFE"
128 PLANE SPATIAL SPA+45 SPB+0 SPC+0 STAY SEQ-
129 ;Conversion to plane
130 CALL LBL "TILT_NEW"
131 LBL 0
132 ;
133 * - Tilting 2
134 LBL "TILT2"
135 PLANE RESET STAY
136 CYCL DEF 7.0 DATUM SHIFT
137 CYCL DEF 7.1  X+30
138 CYCL DEF 7.2  Y-30
139 CYCL DEF 7.3  Z-5
140 CALL LBL "SAFE"
141 PLANE SPATIAL SPA+45 SPB+0 SPC+90 STAY SEQ-
142 ;Conversion to plane
143 CALL LBL "TILT_NEW"
144 LBL 0
145 ;
146 * - Tilting 3
147 LBL "TILT3"
148 PLANE RESET STAY
149 CYCL DEF 7.0 DATUM SHIFT
150 CYCL DEF 7.1  X+30
151 CYCL DEF 7.2  Y+30
152 CYCL DEF 7.3  Z-5
153 CALL LBL "SAFE"
154 PLANE SPATIAL SPA+45 SPB+0 SPC+180 STAY SEQ-
155 ;Conversion to plane
156 CALL LBL "TILT_NEW"
157 LBL 0
158 ;
159 * - Tilting 4
160 LBL "TILT4"
161 PLANE RESET STAY
162 CYCL DEF 7.0 DATUM SHIFT
163 CYCL DEF 7.1  X-30
164 CYCL DEF 7.2  Y+30
165 CYCL DEF 7.3  Z-5
166 CALL LBL "SAFE"
167 PLANE SPATIAL SPA+45 SPB+0 SPC+270 STAY SEQ-
168 ;Conversion to plane
169 CALL LBL "TILT_NEW"
170 LBL 0
171 ;
172 * - Safe position
173 LBL "SAFE"
174 M3
175 L  Z+300 R0 FMAX M91
176 L  X+400  Y-300 R0 FMAX M91
177 LBL 0
178 ;
179 * - Resetting all coordinate transformations
180 LBL "RESET"
181 CALL LBL "SAFE"
182 PLANE RESET TURN FMAX
183 CYCL DEF 7.0 DATUM SHIFT
184 CYCL DEF 7.1  X+0
185 CYCL DEF 7.2  Y+0
186 CYCL DEF 7.3  Z+0
187 CYCL DEF 8.0 MIRRORING
188 CYCL DEF 8.1
189 CYCL DEF 10.0 ROTATION
190 CYCL DEF 10.1  ROT+0
191 CYCL DEF 11.0 SCALING FACTOR
192 CYCL DEF 11.1 SCL 1
193 LBL 0
194 ;
195 * - Conversion of angles
196 LBL "TILT_NEW"
197 ;Reading of 3-D ROT
198 FN 18: SYSREAD Q170 = ID210 NR5 IDX1 ;3D-ROT SPA
199 FN 18: SYSREAD Q171 = ID210 NR5 IDX2 ;3D-ROT SPB
200 FN 18: SYSREAD Q172 = ID210 NR5 IDX3 ;3D-ROT SPC
201 PLANE RESET STAY
202 ;Reading the datum shift
203 FN 18: SYSREAD Q175 = ID220 NR2 IDX1 ;Datum shift in X
204 FN 18: SYSREAD Q176 = ID220 NR2 IDX2 ;Datum shift in Y
205 FN 18: SYSREAD Q177 = ID220 NR2 IDX3 ;Datum shift in Z
206 ;Tilting of alignment
207 CYCL DEF 7.0 DATUM SHIFT
208 CYCL DEF 7.1  X+0
209 CYCL DEF 7.2  Y+0
210 CYCL DEF 7.3  Z+0
211 PLANE SPATIAL SPA+QR170 SPB+QR171 SPC+QR172 STAY
212 ;Datum shift to aligned surface
213 CYCL DEF 7.0 DATUM SHIFT
214 CYCL DEF 7.1 IX+Q175
215 CYCL DEF 7.2 IY+Q176
216 CYCL DEF 7.3 IZ+Q177
217 ;Tilting to the 3-D ROT read
218 PLANE RELATIV SPC+Q172 STAY
219 PLANE RELATIV SPB+Q171 STAY
220 CALL LBL "SAFE"
221 PLANE RELATIV SPA+Q170 TURN FMAX SEQ-
222 LBL 0
223 END PGM 4240_en MM