Dopiero tokarka zrobiona jako tako i frezarka byle jak. A jeszcze ostrzałka i plazma czeka.
[ Dodano: 2012-02-05, 20:01 ]
To jeszcze procedurki na toczenie czoła ; segery i tokarka na razie będzie
Kod: Zaznacz cały
( ------------------------------ )
( C Z O Ł O )
( ------------------------------ )
( Kamar )
( Time-stamp: <05-02-2012 17:31> )
( ------------------------------ )
(info: Czoło )
o<czolo> sub
#<sr_pocz> = #1 (=100 Średnica początkowa)
#<sr_koncowa> = #2 (=0 Średnica końcowa)
#<poczatek> = #3 (=0 Początek)
#<koniec> = #4 (-3 Koniec)
#<dobieranie> = #5 (2 Dobieranie)
#<posuw> = #6 (60 Posuw)
g61
m3 s1
M8
o1 if [#<poczatek> lt #<koniec>]
(msg, Początek musi być większy niż koniec!)
m30
o1 endif
g0 z[#<poczatek> + 1]
g0 x[#<sr_pocz> + 0.5]
#<akt_pozycja> = #<poczatek>
o100 while [#<akt_pozycja> gt #<koniec>]
#<akt_pozycja> = [#<akt_pozycja> - #<dobieranie>]
o102 if [#<akt_pozycja> lt #<koniec>]
#<akt_pozycja> = #<koniec>
o102 endif
g0 z#<akt_pozycja>
g1 x#<sr_koncowa> f#<posuw>
g0 z[#<akt_pozycja> + 0.5]
g0 x[#<sr_pocz> + 0.5]
o100 endwhile
m5
g0 x[#<sr_pocz> + 2]
o<czolo> endsub Kod: Zaznacz cały
( ------------------------------ )
( S E G E R )
( ------------------------------ )
( Kamar )
( Time-stamp: <2012-02-05 11:22> )
( ------------------------------ )
(info: seger )
o<seger> sub
#<sr_pocz> = #1 (=40 Średnica początkowa)
#<sr_koncowa> = #2 (=37 Średnica końcowa)
#<z_pocz> = #3 (=0 Z początkowe)
#<noz> = #4 (=2 Szerokość noża)
#<kanal> = #5 (=2 szerokość kanałku)
#<posuw> = #6 (=60 Posuw)
#<woda> = #7 (=1 Woda)
g61
m3 s1
o1 if [#<woda> eq 1]
M8
o1 endif
o100 if [#<sr_pocz> gt #<sr_koncowa>]
g0 z#<z_pocz>
x[#<sr_pocz> +1]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> +1]
o101 if [#<kanal> gt #<noz>]
g0 z[#<z_pocz>+[#<kanal>-#<noz>]]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> +1]
o101 endif
o100 endif
o200 if [#<sr_pocz> lt #<sr_koncowa>]
g0 z1
g0 x[#<sr_pocz> -1]
z#<z_pocz>
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> - 1]
o102 if [#<kanal> gt #<noz>]
g0 z[#<z_pocz>+[#<kanal>-#<noz>]]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> - 1]
o102 endif
g0 z10
o200 endif
o<seger> endsub
ale w co się wpisuje G-kody takie pisane z ręki?
