0  BEGIN PGM 2140_EN MM 
1  ;Program for milling a stud with the contour
2  ;of a P4C polygon profil according to
3  ;ISO 32712
4  BLK FORM 0.1 Z X+0 Y+0 Z-25
5  BLK FORM 0.2  X+100  Y+100  Z+0
6  ;
7  ;Tool call milling tool diameter 20mm
8  TOOL CALL 10 Z S5000
9  ;
10 ;Cutting data
11 Q50 = 20 ;MILLING DEPTH
12 Q51 = 3 ;PLUNGING DEPTH
13 Q52 = 2 ;SET UP CLEARANCE
14 Q53 = 150 ;FEED RATE FOR PLUNGING
15 Q54 = 500 ;FEED RATE FOR MILLING
16 ;
17 ;Parameter for P4C polygon
18 Q28 = 141 ;WORKPIECE BLANK DIAMETER
19 Q29 = 18 ;OUTSIDE DIAMETER (d1)
20 Q30 = 15 ;INSIDE DIAMETER (d2)
21 Q31 = 2 ;ECCENTRIC SIZE (e)
22 Q36 = 50 ;CENTER OF THE POLYGON IN X AXIS
23 Q37 = 50 ;CENTER OF THE POLYGON IN Y AXIS
24 Q38 = 0 ;ROTATION
25 ;
26 ;===========================================
27 CYCL DEF 7.0 DATUM SHIFT
28 CYCL DEF 7.1  X+Q36
29 CYCL DEF 7.2  Y+Q37
30 CYCL DEF 10.0 ROTATION
31 CYCL DEF 10.1  ROT+Q38
32 ;
33 ;Milling outside diameter
34 CYCL DEF 257 CIRCULAR STUD ~
    Q223=+Q29  ;FINISHED PART DIA. ~
    Q222=+Q28  ;WORKPIECE BLANK DIA. ~
    Q368=+0    ;ALLOWANCE FOR SIDE ~
    Q207=+Q54  ;FEED RATE FOR MILLNG ~
    Q351=+1    ;CLIMB OR UP-CUT ~
    Q201=-Q50  ;DEPTH ~
    Q202=+Q51  ;PLUNGING DEPTH ~
    Q206=+Q53  ;FEED RATE FOR PLNGNG ~
    Q200=+Q52  ;SET-UP CLEARANCE ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q370=+1    ;TOOL PATH OVERLAP ~
    Q376=-1    ;STARTING ANGLE
35 L  X+0  Y+0 R0 FMAX M3 M99
36 ;
37 ;Milling of the P4C-profil
38 CYCL DEF 14.0 CONTOUR
39 CYCL DEF 14.1 CONTOUR LABEL1
40 CYCL DEF 25 CONTOUR TRAIN ~
    Q1=-Q50  ;MILLING DEPTH ~
    Q3=+0    ;ALLOWANCE FOR SIDE ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q7=+Q52  ;CLEARANCE HEIGHT ~
    Q10=-Q51  ;PLUNGING DEPTH ~
    Q11=+Q53  ;FEED RATE FOR PLNGNG ~
    Q12=+Q54  ;FEED RATE F. ROUGHNG ~
    Q15=+1    ;CLIMB OR UP-CUT
41 L M99
42 CYCL DEF 10.0 ROTATION
43 CYCL DEF 10.1 IROT-90
44 L M99
45 CYCL DEF 10.0 ROTATION
46 CYCL DEF 10.1 IROT-90
47 L M99
48 CYCL DEF 10.0 ROTATION
49 CYCL DEF 10.1 IROT-90
50 L M99
51 ;
52 CYCL DEF 10.0 ROTATION
53 CYCL DEF 10.1  ROT+0
54 CYCL DEF 7.0 DATUM SHIFT
55 CYCL DEF 7.1  X+0
56 CYCL DEF 7.2  Y+0
57 ;
58 ;End of program
59 L  Z+100 R0 FMAX M30
60 ;
61 ;Sub program
62 ;Calculation of the contour points
63 LBL 1
64 Q35 = - 26.5
65 LBL 2
66 Q41 = ( ( Q30 / 2 + Q31 ) - Q31 * COS ( 4 * Q35 ) ) * COS Q35 - 4 * Q31 * SIN ( 4 * Q35 ) * SIN Q35
67 Q42 = ( ( Q30 / 2 + Q31 ) - Q31 * COS ( 4 * Q35 ) ) * SIN Q35 + 4 * Q31 * SIN ( 4 * Q35 ) * COS Q35
68 L  X+Q41  Y+Q42 RR
69 Q35 = Q35 + 0.5
70 FN 10: IF +Q35 NE +27 GOTO LBL 2
71 LBL 0
72 END PGM 2140_EN MM