0 BEGIN PGM CASE_2_en MM 1 ; Section with loaded values 2 Q1 = +6 ; Number of operations 3 Q2 = Q1 - +1 ; Calculation of repetitions 4 Q3 = -60 ; Starting angle 5 ; Beginning of main program 6 BLK FORM 0.1 Z X-50 Y-50 Z-50 7 BLK FORM 0.2 X+50 Y+50 Z+0 8 TOOL CALL 5 Z S2000 F200 9 L X+0 Y+0 Z+200 A+0 C+0 R0 FMAX 10 ; 11 ; Program-section repeat 12 LBL 9 13 ; Shift the datum of the rotary axis to the calculated angle 14 CYCL DEF 7.0 NULLPUNKT 15 CYCL DEF 7.1 CQ3 16 ; Rotate the reference system 17 CYCL DEF 10.0 DREHUNG 18 CYCL DEF 10.1 ROTQ3 19 PLANE SPATIAL SPA-80 SPB+0 SPC+0 TURN F5000 SEQ- TABLE ROT ; Tilt the working plane 20 PLANE RESET STAY ; Mathematically reset the working plane 21 M128 ; Automatically compensate for tool inclination 22 L X+0 Y+10 Z+50 A-80 C+0 FMAX ; Pre-position and incline the tool 23 L X+0 Y+10 Z+10 F2000 ; Tool infeed 24 L X+0 Y+90 Z-20 A-15 C+0 ; Machine the contour and change the inclination 25 L X+0 Y+90 Z+50 ; Retract the tool 26 L X+0 Y+10 Z+50 FMAX ; Pre-position the tool 27 M129 ; Deactivate M128 28 Q3 = Q3 + ( +360 / Q1 ) ; Calculate angle for next machining operation 29 CALL LBL 9 REPQ2 30 ; 31 ; End the program, including resetting and retraction 32 * - ... 33 CALL LBL "RESET" 34 ; 35 M30 36 ; 37 * - LBL RESET 38 LBL "RESET" 39 M129 40 CALL LBL "SAFE" 41 CYCL DEF 8.0 SPIEGELUNG 42 CYCL DEF 8.1 43 CYCL DEF 10.0 DREHUNG 44 CYCL DEF 10.1 ROT+0 45 PLANE RESET TURN FMAX 46 CYCL DEF 7.0 NULLPUNKT 47 CYCL DEF 7.1 X+0 48 CYCL DEF 7.2 Y+0 49 CYCL DEF 7.3 Z+0 50 LBL 0 51 ; 52 * - LBL SAFE 53 LBL "SAFE" 54 M140 MB MAX M3 55 L Z+300 R0 FMAX M91 56 L X+400 Y-300 R0 FMAX M91 57 LBL 0 58 END PGM CASE_2_en MM