Już 9 miesięcy - dawno o tym zapomniałem.kamar pisze:No i nie doczekałem się
LinuxCNC moje początki
-
- Lider FORUM (min. 2000)
- Posty w temacie: 40
- Posty: 16223
- Rejestracja: 18 wrz 2010, 06:17
- Lokalizacja: Kozienice
- Kontakt:
A proszę To jest wprawdzie na gwint stożkowy ale zaptaszkowanie "gwint normalny" daje zwykłe gwinty chyba stabilniejsze niż z G76.
Kod: Zaznacz cały
( ------------------------------ )
( G W I N T S T O Ż E K )
( ------------------------------ )
( Kamar )
( Time-stamp: <2017-10-06 09:41> )
( ------------------------------ )
(info: Gwint na stożku)
o<gwint_stozek_G33> sub
#<nr> = #1 (=1 numer narzędzia)
#<obr> = #2 (=200 obroty)
#<x_pocz> = #3 (=60 średnica początkowa X)
#<x_biez> = #4 (=60 średnica aktualna X)
#<zwykly> = #5 (=1 <> gwint normalny)
#<x_konc> = #6 (=30 średnica końcowa X)
#<z_pocz> = #7 (=0 początek gwintu Z)
#<skok> = #8 (=5 skok gwintu [P])
#<dobieranie> = #9 (=0.1 dobieranie)
#<dlugosc> = #10 (=100 długość gwintu [Z])
#<rodzaj> = #11 (=0 <> zewnętrzny )
#<glebokosc> = #12 (=5 głębokość gwintu)
#<wyjazd> = #13 (=2 wyjazd z gwintu)
#<woda> = #14 (=1 <> chłodzenie)
g18 g61 g7
m3 s#<obr>
o100 if [#<woda> eq 1]
m8
o100 endif
o200 if[#<zwykly> EQ 1]
#<x_konc> = #<x_pocz>
o200 endif
o500 if[#<rodzaj> EQ 0]
(wewnetrzny)
#<akt_glebokosc> = [#<x_biez> - #<x_pocz>]
G0 X#<x_pocz> Z[#<z_pocz> + 5]
o1000 while [#<akt_glebokosc> LT #<glebokosc>]
#<akt_glebokosc> = [#<akt_glebokosc> + #<dobieranie>]
o1010 if [#<akt_glebokosc> GT #<glebokosc>]
#<akt_glebokosc> = #<glebokosc>
o1010 endif
#<x_akt> = [#<x_pocz> + #<akt_glebokosc>]
(debug, #<x_akt>)
G0 X[#<x_pocz> + #<akt_glebokosc>] Z#<z_pocz>
G33 K#<skok> X[#<x_konc> + #<akt_glebokosc>] Z[#<z_pocz> - #<dlugosc>]
G0 X[#<x_konc> - #<wyjazd>]
G0 X[#<x_pocz> - #<wyjazd>] Z#<z_pocz>
o1000 endwhile
o500 else
(zewnetrzny)
#<akt_glebokosc> = [#<x_pocz> - #<x_biez>]
G0 X#<x_pocz> Z[#<z_pocz> + 5]
o2000 while [#<akt_glebokosc> LT #<glebokosc>]
#<akt_glebokosc> = [#<akt_glebokosc> + #<dobieranie>]
o2010 if [#<akt_glebokosc> GT #<glebokosc>]
#<akt_glebokosc> = #<glebokosc>
o2010 endif
#<x_akt> = [#<x_pocz> - #<akt_glebokosc>]
(debug, #<x_akt>)
G0 X[#<x_pocz> - #<akt_glebokosc>] Z#<z_pocz>
G33 K#<skok> X[#<x_konc> - #<akt_glebokosc>] Z[#<z_pocz> - #<dlugosc>]
G0 X[#<x_konc> + #<wyjazd>]
G0 X[#<x_pocz> + #<wyjazd>] Z#<z_pocz>
o2000 endwhile
o500 endif
m30
o<gwint_stozek_G33> endsub
-
- Lider FORUM (min. 2000)
- Posty w temacie: 2
- Posty: 7549
- Rejestracja: 25 gru 2010, 21:55
- Lokalizacja: LUBELSKIE
Dzięki Kamar za suba. Tak jakos nie bylo wielkiej potrzeby na gwinty z CNC. Ale mój najnowszy plan zaklada zamknięcie tych wszystkich tematów do wiosny, a póki co myślę nad zaginarką do blach bo muszę podokańczać wszelkie osłony i pulpity do frezarek. Niby mam malutką taką na 530mm ale umyślalem sobie zrobić ciut lepszą i metrową. Ale na to zapewne zalożę osobny temacik. Moze już po niedzieli.