witam wszystkich mam problem z napisaniem programu na elipse na starym sterowaniu TNC 155 problem polega na tym ze niewszystkie dzialania na Q parametrach da sie wpisac np. dzialania w nawiasach czy jest innny sposob zeby to napisac????
Bede wdzieczny za pomoc!!!!!
ELIPSA
-
Autor tematu - Specjalista poziom 1 (min. 100)
- Posty w temacie: 3
- Posty: 197
- Rejestracja: 19 lut 2014, 23:41
- Lokalizacja: hyt
wackon,
JAK TO ROZPISAC ZEBY SZLO NA TNC 155??????
BLOK 36 I 37
1 FN 0: Q1 =+50
2 FN 0: Q2 =+50
3 FN 0: Q3 =+90
4 FN 0: Q4 =+50
9 FN 0: Q9 =+2000
12 FN 0: Q14 =40
12 FN 4: Q14 =+Q14 DIV +Q9
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2 X+100 Y+100 Z+0
15 TOOL CALL 1 Z S1000
16 L Z+200 R0 FMAX M3
17 CALL LBL 10
18 L Z+100 R0 FMAX M2
19 LBL 10
20 CYCL DEF 7.0 PUNKT BAZOWY
21 CYCL DEF 7.1 X+Q1
22 CYCL DEF 7.2 Y+Q2
23 CYCL DEF 10.0 OBROT
24 CYCL DEF 10.1 ROT+90
30 L X+0 Y+0 R0 FMAX M3
31 L Z+0 R0 FMAX
33 LBL 1
33 FN0:
34 FN1:Q36=Q36++5
34 FN1: Q37=Q37++1
36 Q21=Q3 * COS Q36 ???????????????
37 Q22 = Q4 * SIN Q36???????????
37 L IZ-Q14 R0 FQ11
38 L X+Q21 Y+Q22 R0 FQ11
39 FN 10: IF +Q37 NE +Q9 GOTO LBL 1
40 CYCL DEF 10.0 OBROT
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 PUNKT BAZOWY
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
46 LBL 0
46 FN 2: Q14 =+Q14 -+1
46 FN 10:IF +Q14 NE+0 GOTO LBL1
46 L Z+100 R0 FMAX
47 END PGM ELIPSA MM
JAK TO ROZPISAC ZEBY SZLO NA TNC 155??????
BLOK 36 I 37
1 FN 0: Q1 =+50
2 FN 0: Q2 =+50
3 FN 0: Q3 =+90
4 FN 0: Q4 =+50
9 FN 0: Q9 =+2000
12 FN 0: Q14 =40
12 FN 4: Q14 =+Q14 DIV +Q9
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2 X+100 Y+100 Z+0
15 TOOL CALL 1 Z S1000
16 L Z+200 R0 FMAX M3
17 CALL LBL 10
18 L Z+100 R0 FMAX M2
19 LBL 10
20 CYCL DEF 7.0 PUNKT BAZOWY
21 CYCL DEF 7.1 X+Q1
22 CYCL DEF 7.2 Y+Q2
23 CYCL DEF 10.0 OBROT
24 CYCL DEF 10.1 ROT+90
30 L X+0 Y+0 R0 FMAX M3
31 L Z+0 R0 FMAX
33 LBL 1
33 FN0:
34 FN1:Q36=Q36++5
34 FN1: Q37=Q37++1
36 Q21=Q3 * COS Q36 ???????????????
37 Q22 = Q4 * SIN Q36???????????
37 L IZ-Q14 R0 FQ11
38 L X+Q21 Y+Q22 R0 FQ11
39 FN 10: IF +Q37 NE +Q9 GOTO LBL 1
40 CYCL DEF 10.0 OBROT
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 PUNKT BAZOWY
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
46 LBL 0
46 FN 2: Q14 =+Q14 -+1
46 FN 10:IF +Q14 NE+0 GOTO LBL1
46 L Z+100 R0 FMAX
47 END PGM ELIPSA MM
-
- Specjalista poziom 2 (min. 300)
- Posty w temacie: 1
- Posty: 335
- Rejestracja: 28 lip 2007, 00:05
- Lokalizacja: Ostrów Wlkp.
Witam
masz kolego tak na szybko na Hh 155 działa nawet na 150
0 BEGIN PGM 19 MM
1 BLK FORM 0.1 Z X-100 Y-50 Z-10
2 BLK FORM 0.2 X+100 Y+50 Z+0
3 TOOL CALL 1 Z S1250
4
5
6 L Z+50 R0 F9999 M3
7 L
8 LBL 1
9 FN 0: Q20 =+10 dokładność
10 FN 0: Q21 =+0 punkt startu
11 FN 0: Q22 =+50 długośc elipsy w y
12 FN 0: Q23 =+100 długość elipsy w x
13 FN 4: Q22 =+Q22 DIV +2
14 FN 4: Q23 =+Q23 DIV +2
15 LBL 2
16 FN 6: Q14 = SIN -Q21
17 FN 7: Q15 = COS -Q21
18 FN 3: Q24 =+Q14 * +Q22
19 FN 3: Q25 =+Q15 * +Q23
20 L X+Q25 Y+Q24 R0 F500
21 L Z-5 R0
22 FN 1: Q21 =+Q21 + +Q20
23 FN 12: IF +Q21 LT +360.1 GOTO LBL 2
24 L Z+100 R0 F9999 M30
25 END PGM 19 MM
masz kolego tak na szybko na Hh 155 działa nawet na 150

0 BEGIN PGM 19 MM
1 BLK FORM 0.1 Z X-100 Y-50 Z-10
2 BLK FORM 0.2 X+100 Y+50 Z+0
3 TOOL CALL 1 Z S1250
4
5
6 L Z+50 R0 F9999 M3
7 L
8 LBL 1
9 FN 0: Q20 =+10 dokładność
10 FN 0: Q21 =+0 punkt startu
11 FN 0: Q22 =+50 długośc elipsy w y
12 FN 0: Q23 =+100 długość elipsy w x
13 FN 4: Q22 =+Q22 DIV +2
14 FN 4: Q23 =+Q23 DIV +2
15 LBL 2
16 FN 6: Q14 = SIN -Q21
17 FN 7: Q15 = COS -Q21
18 FN 3: Q24 =+Q14 * +Q22
19 FN 3: Q25 =+Q15 * +Q23
20 L X+Q25 Y+Q24 R0 F500
21 L Z-5 R0
22 FN 1: Q21 =+Q21 + +Q20
23 FN 12: IF +Q21 LT +360.1 GOTO LBL 2
24 L Z+100 R0 F9999 M30
25 END PGM 19 MM
Jak pytam to znaczy że nie wiem ,jak wiem to odpowiem i pomogę ,więc doceń to -tak jak ja doceniam Cię !!!!