Eeee ! a już myślałem że Bartus robi napęd parowy do swojej blaszanki
pzd.
Poręba TR-55 cd. modernizacji
-
kamar
Autor tematu - Lider FORUM (min. 2000)
- Posty w temacie: 192
- Posty: 16283
- Rejestracja: 18 wrz 2010, 06:17
- Lokalizacja: Kozienice
- Kontakt:
Re: Poręba TR-55 cd. modernizacji
Jako że maszynka miała już dawno obiecane wózki na poprzecznym, to przez weekend postanowiłem przygotować dokumentację.
I od tego, Panie Bartku, się zaczyna modernizację
Suport poprzeczny wygląda teraz tak :
W planie wstawienie szyn HGR 25 mocowanych od dołu i chyba sześciu wózków HGH. To się jeszcze zobaczy jak się będą mieścić
Dodane 22 minuty 50 sekundy:
Wstępnie to tak ma wyglądać:
I od tego, Panie Bartku, się zaczyna modernizację
Suport poprzeczny wygląda teraz tak :
W planie wstawienie szyn HGR 25 mocowanych od dołu i chyba sześciu wózków HGH. To się jeszcze zobaczy jak się będą mieścić
Dodane 22 minuty 50 sekundy:
Wstępnie to tak ma wyglądać:
-
IMPULS3
- Lider FORUM (min. 2000)
- Posty w temacie: 68
- Posty: 7619
- Rejestracja: 25 gru 2010, 21:55
- Lokalizacja: LUBELSKIE
Re: Poręba TR-55 cd. modernizacji
kamar pisze: mam przydatne suby do wytaczania tych faz
I żaden chętny jeszcze sie nie odezwał?
Ja tam bym przygarnąl. 
kamar pisze:Jako, że maszynka miała już dawno obiecane wózki na poprzecznym,
A powód zmiany to tak bez powodu czy coś jest nie teges z jaskółką?
-
kamar
Autor tematu - Lider FORUM (min. 2000)
- Posty w temacie: 192
- Posty: 16283
- Rejestracja: 18 wrz 2010, 06:17
- Lokalizacja: Kozienice
- Kontakt:
Re: Poręba TR-55 cd. modernizacji
Teges nie teges ale swoje lata ma. Na wózkach będzie lepiej a i zakres się da zwiększyć.
Suby odszukam w poniedziałek.
Suby odszukam w poniedziałek.
-
tristar0
- Lider FORUM (min. 2000)
- Posty w temacie: 11
- Posty: 3052
- Rejestracja: 21 sty 2020, 17:48
- Lokalizacja: Toruń miasto Tadeusza R
Re: Poręba TR-55 cd. modernizacji
Czyli dziadek kamar posunął babkę porębę do przodu 
a ze mnie się śmieje że zabytek chce odpalać , tyle że w tym moim zabytku to skrzynka biegów to w całości do wywalenie bo hałas taki że myśli nie słychać .chyba że ma ktoś dwa koła 48 zębów moduł 2,5 na zbyciu ?
a ze mnie się śmieje że zabytek chce odpalać , tyle że w tym moim zabytku to skrzynka biegów to w całości do wywalenie bo hałas taki że myśli nie słychać .chyba że ma ktoś dwa koła 48 zębów moduł 2,5 na zbyciu ?Mam wyrypane na wszelkiej maści proroków ,mędrców i wszystkich którzy stawiają się ponad innymi ,i tak ich zjedzą robaki
-
kamar
Autor tematu - Lider FORUM (min. 2000)
- Posty w temacie: 192
- Posty: 16283
- Rejestracja: 18 wrz 2010, 06:17
- Lokalizacja: Kozienice
- Kontakt:
Re: Poręba TR-55 cd. modernizacji
A proszę
Kod: Zaznacz cały
( ------------------------------ )
( W E W N E T R Z N A )
( ------------------------------ )
( Kamar )
( Time-stamp: <2021-04-24 17:08> )
( ------------------------------ )
(info: Średnica wewnętrzna )
o<wew_dobieranie> sub
#<nr> = #1 (=1 numer narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<sr_pocz> = #4 ( średnica pocz.)
#<sr_koncowa> = #5 ( średnica koń.)
#<dobieranie> = #6 (=2 dobieranie)
#<poczatek> = #7 (=0 koniec wybierania)
#<dobieranie_z> = #8 (=2 dobieranie Z)
#<posuw> = #9 (=0.2 posuw)
#<w_z> = #10 ( Z do zmiany)
#<w_x> = #11 ( X do zmiany)
#<korekta> = #12 (=0 <> Korekta)
#<woda> = #13 (=0 <> chłodzenie)
#<stala_predkosc> = #14 (=0 <> stała prędkość skrawania)
#<obroty_max> = #15 (=250 obroty max)
#<predkosc_skrawania> = #16 (=200 prędkość skrawania)
o9 if [#<posuw> gt 1 ]
(msg, Za duży posuw!)
m2
o9 endif
o3 if [#<w_x> GT #<sr_koncowa>]
(msg, Wyjazd X jest większy niż średnica końcowa!)
m2
o3 endif
o13 if [#<stala_predkosc> eq 1]
g96 d#<obroty_max> s#<predkosc_skrawania>
o13 endif
M6 T#<nr> G43
o2 if [#<odboczka> eq 1]
#<obr> = [#<obr> * 8]
o2 endif
g61
m3 s#<obr>
o1 if [#<woda> eq 1]
M8
o1 endif
#<akt_z> = #<poczatek>
g0 x#<sr_pocz>
g0 z[#<poczatek> + 0.5]
o100 if [#<korekta> eq 0]
o10 while [#<sr_pocz> lt #<sr_koncowa>]
#<akt_z> = [#<akt_z> + #<dobieranie_z>]
#<sr_pocz> = [#<sr_pocz> + #<dobieranie>]
o202 if [#<sr_pocz> gt #<sr_koncowa>]
#<sr_pocz> = #<sr_koncowa>
o202 endif
g0 x#<sr_pocz>
g1 z#<poczatek> f#<posuw>
g1 x[#<sr_pocz> - 3]
g0 z[#<akt_z> + 0.5]
o10 endwhile
o100 else
#<akt_z> = [#<akt_z> + #<dobieranie_z>]
g0 x#<sr_koncowa>
g1 z#<poczatek> f#<posuw>
g1 x[#<sr_koncowa> - 3]
g0 z[#<akt_z> + 0.5]
o100 endif
g0 z#<w_z>
g0 x#<w_x>
o<wew_dobieranie> endsub
Kod: Zaznacz cały
( ------------------------------ )
( Z E W N E T R Z N A )
( ------------------------------ )
( Kamar )
( Time-stamp: <2021-04-24 17:02> )
( ------------------------------ )
(info: Średnica zewnętrzna - Poręba)
o<zew_dobieranie> sub
#<nr> = #1 (=1 nr narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<sr_pocz> = #4 ( średnica pocz.)
#<sr_koncowa> = #5 ( średnica koń.)
#<dobieranie> = #6 (=2 dobieranie)
#<poczatek> = #7 (=0 koniec wybierania)
#<posuw> = #8 (=0.2 posuw)
#<dobieranie_z> = #9 (=0 dobieranie z)
#<w_z> = #10 ( Z do zmiany)
#<w_x> = #11 ( X do zmiany)
#<woda> = #12 (=0 <> chłodzenie)
#<korekta> = #13 (=0 <> korekta)
#<stala_predkosc> = #14 (=0 <> stała prędkość skrawania)
#<obroty_max> = #15 (=250 obroty max)
#<predkosc_skrawania> = #16 (=200 prędkość skrawania)
o9 if [#<posuw> gt 1 ]
(msg, Za duży posuw!)
m2
o9 endif
o3 if [#<w_x> LT #<sr_koncowa>]
(msg, Wyjazd X jest mniejszy niż średnica końcowa!)
m2
o3 endif
o13 if [#<stala_predkosc> eq 1]
g96 d#<obroty_max> s#<predkosc_skrawania>
o13 endif
M6 T#<nr> G43
o2 if [#<odboczka> eq 1]
#<obr> = [#<obr> * 8]
o2 endif
g61 g80
m3 s#<obr>
o1 if [#<woda> eq 1]
M8
o1 endif
#<akt_z> = #<poczatek>
g0 x[#<sr_pocz> + 1]
g0 z[#<poczatek> + 1]
o1000 if [#<korekta> eq 0]
o10 while [#<sr_pocz> gt #<sr_koncowa>]
#<akt_z> = [#<akt_z> + #<dobieranie_z>]
#<sr_pocz>=[#<sr_pocz> - #<dobieranie>]
o402 if [#<sr_pocz> lt #<sr_koncowa>]
#<sr_pocz> = #<sr_koncowa>
o402 endif
g0 x#<sr_pocz>
g1 z#<poczatek> f#<posuw>
g1 x[#<sr_pocz> + #<dobieranie>]
g0 z[#<akt_z> + 1]
o10 endwhile
o1000 else
#<akt_z> = [#<akt_z> + #<dobieranie_z>]
g0 x#<sr_koncowa> z[#<poczatek>+1]
g1 z#<poczatek> f#<posuw>
g1 x[#<sr_koncowa> + #<dobieranie>]
g0 z[#<akt_z> + 1]
o1000 endif
g0 x#<w_x>
g0 z#<w_z>
o<zew_dobieranie> endsub
