Mała szlifierka na CNC

Kod: Zaznacz cały

( ------------------------------ )
(   Frezowanie po obwodzie  )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2013-07-24 12:40> )
( ------------------------------ )

o<frezowanie_po_obwodzie> sub

#<obr> = #1 (=1500 obroty)
#<liczba_operacji> = #2 (=20 liczba operacji)
#<kat> = #3 (=-17 kąt)
#<predkosc> = #4 (=100 prędkość)
#<a_poczatkowe> = #5 (=0 A początkowe)
#<xpocz> = #6 (=0 X poczatkowy)
#<xkonc> = #7 (=57 X końcowy)
#<ypocz> = #8 (=0 Y początkowy)
#<ykonc> = #9 (=0 Y końcowy)
#<glebokosc> = #10 (=-2 głębokość)
#<skok> = #11 (=0.5 skok)
#<zpocz> = #12 (=0 Z początkowy)
#<woda> = #13 (=1 <> chłodzenie)
#<w_z> = #14 (wyjazd Z)
#<w_x> = #15 (wyjazd X)
#<w_y> = #16 (wyjazd Y)

( ------------------------------ )

#<operacja> = 0
g0 z5
g0 x#<xpocz> y#<ypocz>

m3 s#<obr>
o1 if [#<woda> eq 1]
m8
o1 endif

o100 while [#<operacja> lt #<liczba_operacji>]
  g0 a[#<a_poczatkowe> + [#<operacja> * #<kat>]]
	
( --- tu operacja --- )

#<akt_z> = #<zpocz>
o200 while [#<akt_z> gt #<glebokosc>]
  #<akt_z> = [#<akt_z> - #<skok>]
	o210 if [#<akt_z> lt #<glebokosc>]
	  #<akt_z> = #<glebokosc>
	o210 endif

  g0 z#<akt_z>
	g1 x#<xkonc> y#<ykonc> f#<predkosc>          
  g0 z5
  g0 x#<xpocz> y#<ypocz>
	
o200 endwhile

( --- koniec operacji --- )

  #<operacja> = [#<operacja> + 1]
o100 endwhile

g0 z#<w_z>
g0 x#<w_x>
g0 y#<w_y>

o<frezowanie_po_obwodzie> endsub