cnc.info.pl - FORUM CNC

Witam
ma ktoś programik na kulę wklęsłą taki w miarę uniwersalny aby można było zmieniać promień i frezować rożne średnice ?

G90G0G54X-10.Y0M3 S4500
G43Z50.H1M8
#1=0.5
WHILE[#1LE50.]DO1
#2=50.-#1
#3=SQRT[2500.-[#2*#2]]
G1Z#1F20
X-#3F500
G2I#3
#1=#1+0.5
END1
G0Z50.M5
M30

Ma ktoś prostszy program ? jak tak to proszę o przykład
0 BEGIN PGM 7 MM
1 BLK FORM 0.1 Z X-90,000 Y-50,000 Z-20,000
2 BLK FORM 0.2 X+90,000 Y+50,000 Z+3,000
3 TOOL DEF 1 L+0,000 R+3,050
4 TOOL CALL 1 Z S 2500
5 L R F M13
6 FN 0 : Q10 = +3,100
7 FN 0 : Q35 = +50,000
8 CALL LBL 99 REP
9 L Z+5,000 R0 F9998 M
10 FN 0 : Q10 = +3,000
11 FN 0 : Q35 = +75,000
12 CALL LBL 99 REP
13 L Z+100,000 R0 F9998 M30
14 LBL 99
15 FN 0 : Q1 = +0,000
16 FN 0 : Q2 = +0,000
17 FN 0 : Q3 = +0,000
18 FN 0 : Q4 = +0,000
19 FN 0 : Q5 = +0,000
20 FN 0 : Q8 = +20
21 FN 0 : Q9 = +0,001
22 L R F M
23 FN 0 : Q10 = +Q10
24 L R F M
25 FN 0 : Q11 = -30,000
26 FN 0 : Q12 = -90,000
27 FN 0 : Q30 = +10,000
28 FN 0 : Q31 = +300,000
29 FN 0 : Q35 = +Q35
30 L X+0,000 Y-Q2 R0 F MAX M
31 L R F M
32 FN 2 : Q70 = +Q12 - +Q11
33 FN 4 : Q50 = +Q70 DIV +Q35
34 FN 1 : Q51 = +Q50 + +Q11
35 FN 2 : Q55 = +Q8 - +Q10
36 LBL 40
37 FN 6 : Q56 = SIN +Q51
38 FN 7 : Q57 = COS +Q51
39 FN 3 : Q58 = +Q56 * +Q55
40 FN 3 : Q59 = +Q57 * +Q55
41 FN 0 : Q21 = +Q59
42 FN 0 : Q22 = +Q58
43 FN 1 : Q51 = +Q51 + +Q50
44 FN 2 : Q44 = +Q21 - +Q9
45 CALL LBL 33 REP
46 FN 10 : IF +Q51 NE +Q12 GOTO LBL 40
47 L Z+10,000 R0 F MAX M
48 LBL 0
49 LBL 33
50 L X+0,000 Y-Q2 Z+Q22 R0 FQ30 M
51 L X+Q9 Y-Q44 R0 FQ31 M
52 CC X+0,000 Y-0
53 CP IPA 360 DR +
54 L X+0,000 Y-0 R F M
55 LBL 0
56 END PGM 7 MM

Witam kolegę oto mój programik który sam pisałem na półkule wypukłą
ale przekształciłem go na wklęsłą dla kolegi myślę że jest prosty i zrozumiały

0 BEGIN PGM PÓLKULA WKLĘSŁA MM
1 BLK FORM 0.1 Z X-30 Y-30 Z-40
2 BLK FORM 0.2 X+30 Y+30 Z+0
3 TOOL CALL 1 Z S1000
4 ;FREZ KULOWY-R5
5 CYCL DEF 7.0 PUNKT BAZOWY
6 CYCL DEF 7.1 Z-28
7 FN 0: Q1 =+28-PROMIEŃ KULI
8 FN 0: Q2 =+90-KĄT PROMIENIA KULI
9 FN 0: Q3 =+0
10 FN 0: Q5 =+1-SKOK W STOPNIACH NA 1 OBRÓT
11 L Z+100 R0 FMAX M3
12 L X+0 Y+0 R0 FMAX
13 LBL 1
14 FN 6: Q10 = SIN +Q2
15 FN 7: Q11 = COS +Q2
16 FN 3: Q12 =+Q11 * +Q1
17 FN 3: Q13 =+Q10 * +Q1
18 FN 1: Q13 =+Q13 + -Q3
19 FN 1: Q13 =+Q13 + -Q108
20 FN 1: Q15 =+Q12 + -Q1
21 L Z-Q15 R0 F1000
22 L X-Q13 R0 F1000
23 CC X+0 Y+0
24 C IX+0 IY+0 DR+ F1000
25 L X+0 R0 F1000
26 LBL 0
27 FN 1: Q2 =+Q2 + -Q5
28 FN 11: IF +Q2 GT -Q5 GOTO LBL 1
29 L Z+100 R0 FMAX M30
30 END PGM MM

Witam
Dziękuję za odzew
kolego rafa30 próbowałem Twój programik niestety jest błąd na samym końcu zagłębia się w materiał tak pokazuje mi na symulatorze co kolega przypisał pod parametr Q108 ?bo on chyba psuje całą robotę

Racja Q108 ma chyba kompensacje na zewnatrz bo zapomnialem zmienic mozna tez usunac Q108 i promien kuli zmniejszyc o promien freza i powinno byc ok

[ Dodano: 2017-03-07, 18:57 ]
Jest tam tez -Q3 nie na darmo to odległosc dodana do R kuli gdy wpiszemy np Q3=50 to mozemy zrobic promien w otworze

[ Dodano: 2017-03-07, 18:59 ]
Ale Q3 w tym przypadku bedzie-50 jak sie nie myle

[ Dodano: 2017-03-08, 00:00 ]
Kolego Łuki31 sprawdziłem ten program na symulatorze i faktycznie na końcu
zagłębia się w materiał ale tylko dlatego że symulator HH pokazuje frez walcowy
i dlatego to tak wygląda zmien promień narzędzia na R 1 to zobaczysz że ładnie
Ci pokarze całą pułkulę do samego dołu a jak będziesz obrabiał na maszynie
to koniecznie musisz mieć frez promieniowy i bez problemu to zrobisz

[ Dodano: 2017-03-08, 00:02 ]
mi tak pokazuje jak dałem promień narzędzia R 1

Witam
i nikt już nic nie ma do porównania ? aby sprawić i porównać jak u kogo działa

Kolego zobacz na ten kod:

0 BEGIN PGM kula MM
1 BLK FORM 0.1 Z X-80 Y-80 Z+0
2 BLK FORM 0.2 X+80 Y+80 Z+70
3 CYCL DEF 7.0 PUNKT BAZOWY
4 CYCL DEF 7.1 Z+Q108
5 TOOL CALL 21 Z S10000 F1500 DL-Q108
6 * - ************************
7 FN 0: Q1 =+70 ; PROMIEN PODSTAWY KULI
8 FN 0: Q2 =+0.5 ; PRZYROST KATOWY
9 FN 0: Q3 =+Q2 ; DLA PRZELICZENIA
10 FN 0: Q4 =+90 ; KAT KONCOWY
11 FN 2: Q1 =+Q1 - +Q108
12 * - **************************
13 L X+Q1 Y+0 Z+Q1 F AUTO M13
14 L Z+0
15 CC X+0 Y+0
16 C X+Q1 Y+0 DR-
17 LBL 1
18 Q11 = SIN Q2 * Q1
19 Q10 = COS Q2 * Q1
20 L X+Q10
21 L Z-Q11
22 CC X+0 Y+0
23 C X+Q10 Y+0 DR-
24 FN 1: Q2 =+Q2 + +Q3
25 FN 11: IF +Q4 GT +Q2 GOTO LBL 1
26 L Z+100 R0 FMAX
27 M30
28 END PGM kula MM


Nie mogę go w tym momencie sprawdzić bo nie mam dostępu do symulatora ani maszyny.