Skosy najłatwiejsza metoda

Kod: Zaznacz cały

0  BEGIN PGM FK TEST MM 
1  BLK FORM CYLINDER Z R15 L30
2  TOOL CALL 2010 Z S8000 ;FREZ 1
3  CYCL DEF 20 DANE KONTURU ~
    Q1=-10   ;GLEBOKOSC FREZOWANIA ~
    Q2=+0.8  ;ZACHODZENIE TOROW ~
    Q3=+0    ;NADDATEK NA STRONE ~
    Q4=+0    ;NADDATEK NA DNIE ~
    Q5=+0    ;WSPOLRZEDNE POWIERZ. ~
    Q6=+2    ;BEZPIECZNA WYSOKOSC ~
    Q7=+50   ;BEZPIECZNA WYSOKOSC ~
    Q8=+0    ;PROMIEN ZAOKRAGLENIA ~
    Q9=+1    ;KIERUNEK OBROTU
4  CYCL DEF 22 FREZ.ZGR.WYBRANIA ~
    Q10=-2    ;GLEBOKOSC DOSUWU ~
    Q11=+1000 ;WARTOSC POSUWU WGL. ~
    Q12=+1000 ;POSUW PRZY ROZWIERC. ~
    Q18=+0    ;NARZ.DO OBR.ZGRUB. ~
    Q19=+0    ;POSUW PRZY R. WAHAD. ~
    Q208=+99999 ;POSUW RUCHU POWROTN. ~
    Q401=+100  ;WSPOLCZYNNIK POSUWU ~
    Q404=+0    ;STRAT.PRZEC.WYKONCZ.
5  CYCL DEF 14.0 GEOMETRIA KONTURU
6  CYCL DEF 14.1 PODPR.KONTURU1
7  M3 M8 M99
8  TOOL CALL 3028 Z S8000 ;FREZ 1 KULA
9  Q1000 = 0
10 LBL 2
11 Q1000 = Q1000 + 2
12 Q1001 = ( 1 + 0.5 ) - ( ( 1 * SIN ( Q1000 ) ) + ( 0.5 * SIN ( Q1000 ) ) )
13 Q1002 = ( 1 + 0.5 ) - ( ( 1 * COS ( Q1000 ) ) + ( 0.5 * COS ( Q1000 ) ) )
14 CYCL DEF 25 KONTUR OTWARTY ~
    Q1=-Q1002 ;GLEBOKOSC FREZOWANIA ~
    Q3=-Q1001 ;NADDATEK NA STRONE ~
    Q5=+0    ;WSPOLRZEDNE POWIERZ. ~
    Q7=+5    ;BEZPIECZNA WYSOKOSC ~
    Q10=-Q1002 ;GLEBOKOSC DOSUWU ~
    Q11=+1000 ;WARTOSC POSUWU WGL. ~
    Q12=+1000 ;POSUW PRZY ROZWIERC. ~
    Q15=+1    ;RODZAJ FREZOWANIA
15 M99
16 FN 12: IF +Q1000 LT +60 GOTO LBL 2
17 LBL 3
18 Q1001 = Q1001 - 0.005
19 Q1002 = Q1002 + 0.005 * TAN 60
20 CYCL DEF 25 KONTUR OTWARTY ~
    Q1=-Q1002 ;GLEBOKOSC FREZOWANIA ~
    Q3=-Q1001 ;NADDATEK NA STRONE ~
    Q5=+0    ;WSPOLRZEDNE POWIERZ. ~
    Q7=+5    ;BEZPIECZNA WYSOKOSC ~
    Q10=-Q1002 ;GLEBOKOSC DOSUWU ~
    Q11=+1000 ;WARTOSC POSUWU WGL. ~
    Q12=+1000 ;POSUW PRZY ROZWIERC. ~
    Q15=+1    ;RODZAJ FREZOWANIA
21 M99
22 FN 11: IF +Q1001 GT +0 GOTO LBL 3
23 M30
24 LBL 1
25 L  X-3  Y+10 RL
26 FPOL  X+0  Y+0
27 FL  AN+180
28 FC R0.7 DR+  CCPR+11  CCPA+120
29 FSELECT2
30 FL  AN+240 PDX+0 PDY+0 D10
31 FSELECT1
32 FL  AN+210 PDX+0 PDY+0 D10
33 FSELECT1
34 FC R0.7 DR+  CCPR+11  CCPA+150
35 FSELECT2
36 FL  AN+270 PDX+0 PDY+0 D10
37 FSELECT1
38 FL  AN+240 PDX+0 PDY+0 D10
39 FSELECT1
40 FC R0.7 DR+  CCPR+11  CCPA+180
41 FSELECT2
42 FL  AN+300 PDX+0 PDY+0 D10
43 FSELECT1
44 FL  AN+270 PDX+0 PDY+0 D10
45 FSELECT1
46 FC R0.7 DR+  CCPR+11  CCPA+210
47 FSELECT2
48 FL  AN+330 PDX+0 PDY+0 D10
49 FSELECT1
50 FL  AN+300 PDX+0 PDY+0 D10
51 FSELECT1
52 FC R0.7 DR+  CCPR+11  CCPA+240
53 FSELECT2
54 FL  AN+0 PDX+0 PDY+0 D10
55 FSELECT1
56 FL  AN+330 PDX+0 PDY+0 D10
57 FSELECT1
58 FC R0.7 DR+  CCPR+11  CCPA+270
59 FSELECT2
60 FL  AN+30 PDX+0 PDY+0 D10
61 FSELECT1
62 FL  AN+0 PDX+0 PDY+0 D10
63 FSELECT1
64 FC DR+ R0.7  CCPR+11  CCPA+300
65 FSELECT2
66 FL  AN+60 PDX+0 PDY+0 D10
67 FSELECT1
68 FL  AN+30 PDX+0 PDY+0 D10
69 FSELECT1
70 FC DR+ R0.7  CCPR+11  CCPA+330
71 FSELECT2
72 FL  AN+90 PDX+0 PDY+0 D10
73 FSELECT1
74 FL  AN+60 PDX+0 PDY+0 D10
75 FSELECT1
76 FC R0.7 DR+  CCPR+11  CCPA+0
77 FSELECT2
78 FL  AN+120 PDX+0 PDY+0 D10
79 FSELECT1
80 FL  AN+90 PDX+0 D10 PDY+0
81 FSELECT1
82 FC R0.7 DR+  CCPR+11  CCPA+30
83 FSELECT2
84 FL  AN+150 PDX+0 PDY+0 D10
85 FSELECT1
86 FL  AN+120 PDX+0 PDY+0 D10
87 FSELECT1
88 FC DR+ R0.7  CCPR+11  CCPA+60
89 FSELECT2
90 FL  AN+180 PDX+0 PDY+0 D10
91 FSELECT1
92 FL  AN+150 PDX+0 PDY+0 D10
93 FSELECT1
94 FC R0.7 DR+  CCPR+11  CCPA+90
95 FSELECT2
96 FL  AN+210 PDX+0 PDY+0 D10
97 FSELECT1
98 FL  AN+180 PDX+0 PDY+0 D10  X-3
99 LBL 0
100 END PGM FK TEST MM