Ostrzałka CNC

Kod: Zaznacz cały

( ------------------------------ ) 
(   F R E Z Y   M O D U L O W E  ) 
( ------------------------------ ) 
( Kamar                          ) 
( Time-stamp: <2013-05-03 18:44> ) 
( ------------------------------ ) 
(          USTAWIENIA            ) 
( ------------------------------ ) 

(info: Ostrzenie frezow modulowych) 

o<frezy_modulowe> sub

#<liczba_zebow> = #1 (=9 liczba zębów) 
#<glebokosc> = #2 (=10 głębokość ABS) 
#<szerokosc> = #3 (=43 szerokość) 
#<dobor> = #4 (=0.2 dobór) 
#<korekta_kata_st> = #5 (=2  kąt - stopnie) 
#<korekta_kata_min> = #6 (=35 ... i minuty) 
#<dojazd> = #7 (=20 dojazd) 
#<wyjazd> = #8 (=30 wyjazd) 
#<predkosc> = #9 (=1700 prędkość) 

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

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

( zamiana stopni i minut na kat ) 
#<korekta_kata> = [[100 * #<korekta_kata_min>] / 60] 
#<korekta_kata> = [#<korekta_kata_st> + [#<korekta_kata> / 100]] 

#<korekta_pocz> = [#<dojazd> * tan[#<korekta_kata>]] 
#<korekta_koncowa> = [#<wyjazd> * tan[#<korekta_kata>]] 

#<zab> = 0
#<akt_glebokosc> = 0
#<glebokosc> = [#<glebokosc> * -1] 

g0 z1
y0 x0 
 a0

m3 s1

o100 while [#<zab> lt #<liczba_zebow>] 
  g0 x[#<dojazd> * -1] 
  #<kat> = [#<zab> * [360 / #<liczba_zebow>]] 
  g0 a[#<kat> - #<korekta_pocz>]      	( ustawiam zab i korekte pocz) 
  o200 while [#<akt_glebokosc> gt #<glebokosc>]     	  
    #<akt_glebokosc> = [#<akt_glebokosc> - #<dobor>] 
    o220 if [#<glebokosc> gt #<glebokosc>] 
      #<glebokosc> = #<glebokosc> 
    o220 endif		
    g0 z#<akt_glebokosc> 
    g1 x[#<szerokosc> + #<wyjazd>] a[#<kat> + #<korekta_kata> + #<korekta_koncowa>] f#<predkosc> 
		g0 x[#<dojazd> * -1] 
		g0 a[#<kat> - #<korekta_pocz>] 

  o200 endwhile
  g0 z1
  #<zab> = [#<zab> + 1] ( jeden do kroku ) 
  #<akt_glebokosc> = 0; 
o100 endwhile
o<frezy_modulowe> endsub

Kod: Zaznacz cały

( ------------------------------ ) 
(       O S T R Z A L K A        ) 
(     frezy palcowe - spirala   ) 
( ------------------------------ ) 
( Kamar                          ) 
( Time-stamp: <2013-05-05 12:17> ) 

( ------------------------------ ) 
(          USTAWIENIA            ) 
( ------------------------------ ) 

(info: Ostrzenie spirali) 
o<ostrze_spirala> sub

#<srednica> = #1 (=30 średnica) 
#<kat> = #2 (=15 kąt spirali) 
#<dlugosc> =  #3 (=50 długość) 
#<liczba_piorek> = #4 (=6 ilość ostrzy) 
#<skok> = #5 (=0.1 dobieranie) 
#<liczba_krokow> =  #6 (=10 ilość cykli) 
#<predkosc> = #7 (=40 prędkość) 

#<kat>=[90-#<kat>] 

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


( licze kat A ) 
#<kat_A> = 0 
#<kat_A> = [#<srednica> * 3.1415] ( obwod = d * PI ) 
#<tan> = [TAN[#<kat>]] 
#<b> = [#<dlugosc> / #<tan>] 
 ( b = dlugosc / TAN kat ) 
#<kat_A> = [360 * [#<b> / #<kat_A>]] ( A = 360 * [b / obwod] ) 

#<piorko> = -1
#<aktualny_Y> = 0
#<krok> = 0

m3 s1 m8
g0 x-1 y-1 z0
g0 a0

o200 while [#<krok> lt #<liczba_krokow>] 

    G0 Y#<aktualny_Y> 
     o300 while [#<piorko> lt #<liczba_piorek>] 
     	   #<aktualny_kat> = [#<piorko> * [360 / #<liczba_piorek>]] 
	 g0 a-[#<aktualny_kat>] ( ustawiam piorko ) 
          g1 x-0.5 f#<predkosc> 
	g1 x0
	  g1 y[#<aktualny_Y> + #<skok>] ( dodaje skok ) 
	  g1 x#<dlugosc> a-[#<aktualny_kat> + #<kat_A>] f#<predkosc> ( ostrze piorko ) 
	  g0 y-1
	  g0 x-1 a-[#<aktualny_kat>] 
	  #<piorko> = [#<piorko> + 1] 
   o300 endwhile
   #<piorko> = 0
   #<aktualny_Y> = [#<aktualny_Y> + #<skok>] ( dodaje skok ) 
   #<krok> = [#<krok> + 1] ( jeden do kroku ) 
o200 endwhile

g0 y-40
m5
o<ostrze_spirala> endsub