Suby ngcgui

Kod: Zaznacz cały

( ------------------------------ )
(  O T W O R    D O K L A D N Y  )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2015-10-01 13:27> )

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

(info: Wycinanie spiralą dokładnego otworu lub kółka)

o<otwor_spirala> sub

#<obr> = #1 (=1500 obroty)
#<frez> = #2 (=8 frez)
#<sr_otworu> = #3 (=20 średnica)
#<glebokosc> = #4 (=-10 głębokość)
#<predkosc> = #5 (=60 prędkość)
#<skok> = #6 (=2 skok)
#<woda> = #7 (=1 <> chlodzenie)
#<w_z> = #8 (wyjazd Z)
#<w_x> = #9 (wyjazd X)
#<w_y> = #10 (wyjazd Y)

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

#<promien_freza> = [#<frez> / 2] ( promien freza )
#<promien_otworu> = [#<sr_otworu> / 2] ( promien otworu )
#<promien> = [#<promien_otworu>  - #<promien_freza>] ( dojazd )

g0 z5
g0 x0 y0 
m3 s#<obr>

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


#1 = 0
G0 X[-1 * #<promien>] F#<predkosc>
G0 Z1
g1 z0

#<akt_z> = 0
o100 while [#<akt_z> gt #<glebokosc>]
#<akt_z> = [#<akt_z> - #<skok>]

( jezeli za gleboko to jade na max )
o110 if [#<akt_z> lt #<glebokosc>]
#<akt_z> = #<glebokosc>
o110 endif


G2 X0 Y#<promien> R#<promien> Z[#<akt_z> + [0.75 * #<skok>]]
G2 X#<promien> Y0 R#<promien> Z[#<akt_z> + [0.5 * #<skok>]]
G2 X0 Y[-1 * #<promien>] R#<promien> Z[#<akt_z> + [0.25 * #<skok>]]
G2 X[-1 * #<promien>] Y0 R#<promien> Z#<akt_z>

o100 endwhile

( rownanie dolu )
G2 X0 Y#<promien> R#<promien> Z#<akt_z>
G2 X#<promien> Y0 R#<promien> 
G2 X0 Y[-1 * #<promien>] R#<promien>
G2 X[-1 * #<promien>] Y0 R#<promien>

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

o<otwor_spirala> endsub