0  BEGIN PGM 2140_DE MM 
1  ;Programm zur Erstellung eines Zapfens mit der Kontur eines
2  ;P4C Polygonprofils nach DIN 32712
3  BLK FORM 0.1 Z X+0 Y+0 Z-25
4  BLK FORM 0.2  X+100  Y+100  Z+0
5  ;
6  ;Werkzeugaufruf Schaftfraeser D20
7  TOOL CALL 13 Z S5000
8  ;
9  ;Schnittdaten
10 Q50 = 20 ;FRAESTIEFE
11 Q51 = 3 ;ZUSTELLTIEFE
12 Q52 = 2 ;SICHERHEITABSTAND
13 Q53 = 150 ;VORSCHUB TIEFENZUSTELLUNG
14 Q54 = 500 ;VORSCHUB FRAESEN
15 ;
16 ;Parameter fuer P4C Polygon
17 Q28 = 141 ;ROHTEILDURCHMESSER
18 Q29 = 75 ;AUSSENKREISDURCHMESSER (d1)
19 Q30 = 65 ;INNENKREISDURCHMESSER (d2)
20 Q31 = 6 ;EXZENTERGROESSE (e)
21 Q36 = 50 ;ZENTRUM VOM POLYGON IN X-ACHSE
22 Q37 = 50 ;ZENTRUM VOM POLYGON IN Y-ACHSE
23 Q38 = 0 ;ROTATION
24 ;
25 ;===========================================
26 CYCL DEF 7.0 NULLPUNKT
27 CYCL DEF 7.1  X+Q36
28 CYCL DEF 7.2  Y+Q37
29 CYCL DEF 10.0 DREHUNG
30 CYCL DEF 10.1  ROT+Q38
31 ;
32 ;vorfertigen der Welle
33 CYCL DEF 257 KREISZAPFEN ~
    Q223=+Q29  ;FERTIGTEIL-DURCHM. ~
    Q222=+Q28  ;ROHTEIL-DURCHMESSER ~
    Q368=+0    ;AUFMASS SEITE ~
    Q207=+Q54  ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-Q50  ;TIEFE ~
    Q202=+Q51  ;ZUSTELL-TIEFE ~
    Q206=+Q53  ;VORSCHUB TIEFENZ. ~
    Q200=+Q52  ;SICHERHEITS-ABST. ~
    Q203=+0    ;KOOR. OBERFLAECHE ~
    Q204=+50   ;2. SICHERHEITS-ABST. ~
    Q370=+1    ;BAHN-UEBERLAPPUNG ~
    Q376=-1    ;STARTWINKEL
34 L  X+0  Y+0 R0 FMAX M3 M99
35 ;
36 ;fraesen des P4C-Profils
37 CYCL DEF 14.0 KONTUR
38 CYCL DEF 14.1 KONTURLABEL1
39 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-Q50  ;FRAESTIEFE ~
    Q3=+0    ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+Q52  ;SICHERE HOEHE ~
    Q10=-Q51  ;ZUSTELL-TIEFE ~
    Q11=+Q53  ;VORSCHUB TIEFENZ. ~
    Q12=+Q54  ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART
40 L M99
41 CYCL DEF 10.0 DREHUNG
42 CYCL DEF 10.1 IROT-90
43 L M99
44 CYCL DEF 10.0 DREHUNG
45 CYCL DEF 10.1 IROT-90
46 L M99
47 CYCL DEF 10.0 DREHUNG
48 CYCL DEF 10.1 IROT-90
49 L M99
50 ;
51 CYCL DEF 10.0 DREHUNG
52 CYCL DEF 10.1  ROT+0
53 CYCL DEF 7.0 NULLPUNKT
54 CYCL DEF 7.1  X+0
55 CYCL DEF 7.2  Y+0
56 ;
57 ;Programm Ende
58 L  Z+100 R0 FMAX M30
59 ;
60 ;Unterprogramm
61 ;Konturberechnung
62 LBL 1
63 Q35 = - 26.5
64 LBL 2
65 Q41 = ( ( Q30 / 2 + Q31 ) - Q31 * COS ( 4 * Q35 ) ) * COS Q35 - 4 * Q31 * SIN ( 4 * Q35 ) * SIN Q35
66 Q42 = ( ( Q30 / 2 + Q31 ) - Q31 * COS ( 4 * Q35 ) ) * SIN Q35 + 4 * Q31 * SIN ( 4 * Q35 ) * COS Q35
67 L  X+Q41  Y+Q42 RR
68 Q35 = Q35 + 0.5
69 FN 10: IF +Q35 NE +27 GOTO LBL 2
70 LBL 0
71 END PGM 2140_DE MM