Sześciokąt
: 18 gru 2010, 12:48
Napisałem mały programik na sześciokąt, podziele się z kolegami może się komuś przyda
Q1 - wpisać dowolną szerokość sześciokąta
0 BEGIN PGM Szesciokat_par MM
1 BLK FORM 0.1 Z X-20 Y-20 Z-12
2 BLK FORM 0.2 X+20 Y+20 Z+0
3 TOOL CALL 3 Z S3500
4 LBL 1
5 * - **
6 Q1 = 8 ;szeroksc szesciokata
7 * - **
8 Q4 = Q1 / 2
9 Q5 = TAN 30 * Q4
10 FN 8: Q6 =+Q4 LEN +Q5
11 APPR CT X-Q5 Y+Q4 CCA45 R+15 RL F AUTO
12 L X+Q5
13 L X+Q6 Y+0
14 L X+Q5 Y-Q4
15 L X-Q5
16 L X-Q6 Y+0
17 L X-Q5 Y+Q4
18 DEP CT CCA45 R+15
19 LBL 0
20 ;******
21 L X-30 Y+30 FMAX
22 L Z+100 FMAX M3 M8
23 CYCL DEF 14.0 GEOMETRIA KONTURU
24 CYCL DEF 14.1 PODPR.KONTURU1
25 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-11 ;GLEBOKOSC FREZOWANIA ~
Q3=+0 ;NADDATEK NA STRONE ~
Q5=+0 ;WSPOLRZEDNE POWIERZ. ~
Q7=+30 ;BEZPIECZNA WYSOKOSC ~
Q10=-0.3 ;GLEBOKOSC DOSUWU ~
Q11=+500 ;WARTOSC POSUWU WGL. ~
Q12=+1500 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
26 CYCL CALL
27 TOOL CALL 0
28 M30
Q1 - wpisać dowolną szerokość sześciokąta
0 BEGIN PGM Szesciokat_par MM
1 BLK FORM 0.1 Z X-20 Y-20 Z-12
2 BLK FORM 0.2 X+20 Y+20 Z+0
3 TOOL CALL 3 Z S3500
4 LBL 1
5 * - **
6 Q1 = 8 ;szeroksc szesciokata
7 * - **
8 Q4 = Q1 / 2
9 Q5 = TAN 30 * Q4
10 FN 8: Q6 =+Q4 LEN +Q5
11 APPR CT X-Q5 Y+Q4 CCA45 R+15 RL F AUTO
12 L X+Q5
13 L X+Q6 Y+0
14 L X+Q5 Y-Q4
15 L X-Q5
16 L X-Q6 Y+0
17 L X-Q5 Y+Q4
18 DEP CT CCA45 R+15
19 LBL 0
20 ;******
21 L X-30 Y+30 FMAX
22 L Z+100 FMAX M3 M8
23 CYCL DEF 14.0 GEOMETRIA KONTURU
24 CYCL DEF 14.1 PODPR.KONTURU1
25 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-11 ;GLEBOKOSC FREZOWANIA ~
Q3=+0 ;NADDATEK NA STRONE ~
Q5=+0 ;WSPOLRZEDNE POWIERZ. ~
Q7=+30 ;BEZPIECZNA WYSOKOSC ~
Q10=-0.3 ;GLEBOKOSC DOSUWU ~
Q11=+500 ;WARTOSC POSUWU WGL. ~
Q12=+1500 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
26 CYCL CALL
27 TOOL CALL 0
28 M30