Kod: Zaznacz cały

( ------------------------------ )
(     K O L O    S K O S N E     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-12-28 15:29> )

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

o<kolo_skosne> sub

#<obr> = #1 (=1500 obroty)
#<srednica> = #2 (=59 średnica)
#<kat> = #3 (=30 kąt)
#<dlugosc> = #4 (=50 długość)
#<liczba_zebow> = #5 (=16 liczba zębów)
#<predkosc> = #6 (=40 predkość)
#<woda> = #7 (=0  <> chłodzenie)
#<w_z> = #8 (wyjazd Z)
#<w_x> = #9(wyjazd X)
#<w_y> = #10 (wyjazd Y)

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

#<promien> = [[#<srednica> /2] * -1]
( ---------------------- )


( 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] )

#<zab> = 0

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

g0 x[#<promien> - 1] z1

o300 while [#<zab> lt #<liczba_zebow>]
     #<aktualny_kat> = [#<zab> * [360 / #<liczba_zebow>]]
     g0 y#<aktualny_kat> ( ustawiam zab )
     g0 x#<promien>
     g1 z[#<dlugosc> * -1] y[#<aktualny_kat> + #<kat_a>] f#<predkosc> ( ostrze zab )
     g0 x[#<promien> -1]
     g0 z1 y#<aktualny_kat>
     #<zab> = [#<zab> + 1]
o300 endwhile

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

o<kolo_skosne> endsub

Kod: Zaznacz cały

( ------------------------------ )
(         F R E Z A R K A        )
(                                )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2014-10-14 12:00> )

(info: Koła skośne Y)

o<kola_skosne_y> sub

#<srednica_wierzcholkowa> = #1 (=68 srednica wierzcholkowa)
#<srednica_dna_zeba> = #2 (=59 srednica dna zeba)
#<kat> = #3 (=61.5 kat)
#<dlugosc> = #4 (=50 dlugosc)
#<liczba_zebow> = #5 (=16 liczba_zebow)
#<dobieranie> = #6 (=2 dobieranie)
#<predkosc> = #7 (=80 predkosc)

( ---------------------- )
g61

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

(licze krok)
#<z_koncowe> = [0 - [[#<srednica_wierzcholkowa> / 2] - [#<srednica_dna_zeba> / 2]]]

#<zab> = 0
#<aktualny_Z> = 0
#<krok> = 0

m3 s1 
m8
g0 Z5
g0 x0 y[#<dlugosc> / 2 * -1]

o300 while [#<zab> lt #<liczba_zebow>]
  #<aktualny_kat> = [#<zab> * [360 / #<liczba_zebow>]]

  o200 while [#<aktualny_Z> gt #<z_koncowe>]
    #<aktualny_Z> = [#<aktualny_Z> - #<dobieranie>] ( odejmuje skok )
    o250 if [#<aktualny_Z> lt #<z_koncowe>]
      #<aktualny_Z> = #<z_koncowe>
    o250 endif
    
	  g0 A[#<aktualny_kat> - [#<kat_a> / 2]]( ustawiam zab )
    g0 Z#<aktualny_Z>
    ( g1 x-0.5 f#<predkosc>)
	  g1 X[#<dlugosc> * COS[#<kat>]] Y[#<dlugosc> / 2] A[#<aktualny_kat> + [#<kat_a> / 2]] f#<predkosc> ( ostrze zab )
	  g0 Z2
	  g0 X0 Y[[#<dlugosc> / 2] * -1] A[#<aktualny_kat> - [#<kat_a> / 2]]

    #<krok> = [#<krok> + 1] ( jeden do kroku )
  o200 endwhile
	#<zab> = [#<zab> + 1]
  #<aktualny_Z> = 0
o300 endwhile

g0 Z5 
g0 y0
m5

o<kola_skosne_y> endsub 

Kod: Zaznacz cały

( ------------------------------ )
( Faza wewnętrzna - PORĘBA   )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2018-04-11 13:25> )
( ------------------------------ )

(info: Faza wewnętrzna )

o<faza_wew> sub

#<nr> = #1 (=1 numer narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<sr_pocz> = #4 ( Średnica pocz. materiału)
#<sr_stozka> = #5 ( Średnica pocz. stożka)
#<sr_konc> =#6  ( Średnica koń. stożka)
#<kat> = #7 (=30 kąt...)
#<dlugosc> = #8 (=0 ... albo długość stożka)
#<z_poczatkowy> = #9 (=0 Z początkowy)
#<dobieranie> = #10 (=2 Dobieranie)
#<posuw> = #11 (=0.2 Posuw)
#<w_z> = #12 (  Z  do zmiany)
#<w_x> = #13 (  X  do zmiany)
#<woda> = #14 (=1 <> chłodzenie)


(o9 if [#<posuw> gt 1 ])
  (msg, Za duży posuw!)
(  m2)
(o9 endif)

M6 T#<nr> G43

g7
g61

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

#<akt_z> = #<z_poczatkowy>
#<akt_x> = #<sr_pocz>

o5 if [#<kat> eq 0]
	(	#<kroki> = FUP[[#<sr_stozka> - #<sr_pocz>] / #<dobieranie> / 2])
	(	#<dobieranie_z> = [#<dlugosc> / #<kroki>])
	(#<dobieranie_z> = [[[#<dlugosc> - #<z_poczatkowy>] * #<dobieranie_z>] / [#<sr_stozka> - #<sr_pocz>]])
	#<dobieranie_z> = [[#<dlugosc> - #<z_poczatkowy>] * [#<dobieranie> / [#<sr_stozka> - #<sr_pocz>]]]
o5 else
  #<dobieranie_z> = #<dobieranie>
o5 endif

o100 while [#<akt_x> lt #<sr_stozka>]

  #<akt_x> = [#<akt_x> + #<dobieranie>]
  o110 if [#<akt_x> gt #<sr_stozka>]
    #<akt_x> = #<sr_stozka>
  o110 endif

  #<akt_z> = [#<akt_z> - #<dobieranie_z>]

  g0 z[#<z_poczatkowy> + 0.5]
  g0 x#<akt_x>

  g1 z#<z_poczatkowy> f#<posuw>

  o10 if [#<kat> eq 0]
    g1 x#<sr_konc> z#<dlugosc> f#<posuw>
  o10 else 
	  (  #<akt_z> = [#<z_poczatkowy> + #<dobieranie_z>])
	  (  g1 x#<sr_pocz> z[[#<akt_z>/tan[#<kat>]] / 2] f#<posuw>)
	  g1 X#<sr_konc> Z[#<z_poczatkowy> - [[#<akt_x> - #<sr_konc>] / [2 * tan[#<kat>]]]] F#<posuw>
  o10 endif


o100 endwhile

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

o<faza_wew> endsub