Kod: Zaznacz cały

( ------------------------------ )
(  O T W O R    D O K L A D N Y  )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2019-11-27 12:09> )
( POPRAWIONA WERSJA              )

( ------------------------------ )
(          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_pocz> = #4 (=0 Z początkowe)
#<glebokosc> = #5 (=-10 głębokość)
#<predkosc> = #6 (=60 prędkość)
#<skok> = #7 (=2 skok)
#<woda> = #8 (=1 <> chlodzenie)
#<w_z> = #9 (=5 wyjazd Z)
#<w_x> = #10 (=0 wyjazd X)
#<w_y> = #11 (=0 wyjazd Y)

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

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

( BEZPIECZNY DOJAZD - najpierw Z do góry )
G0 Z#<w_z>

( Uruchomienie wrzeciona )
M3 S#<obr>

( Włączenie chłodzenia jeśli potrzebne )
o1 if [#<woda> eq 1]
M8
o1 endif

( Dojazd do pozycji startowej X,Y na bezpiecznej wysokości )
G0 X[-1 * [#<promien> - 1]] Y0

( Zjazd do wysokości początkowej + 3mm dla łukowego wejścia )
G0 Z[#<glebokosc_pocz> + 3]

( Łukowe wejście w materiał - rampa spiralna )
G1 X[-1 * [#<promien> - 2]] Z[#<glebokosc_pocz> + 2] F[#<predkosc> / 2]
G2 X[-1 * [#<promien> - 1]] Y[-1] R1 Z[#<glebokosc_pocz> + 1]
G2 X[-1 * #<promien>] Y0 R1 Z#<glebokosc_pocz>

( Pętla spiralnego frezowania )
#<akt_z> = #<glebokosc_pocz>
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

    ( Spiralne zejście - pełny obrót z równomiernym spadkiem Z )
    G2 X0 Y#<promien> R#<promien> Z[#<akt_z> + [0.75 * #<skok>]] F#<predkosc>
    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

( Wygładzenie dna - pełny obrót na stałej głębokości )
G2 X0 Y#<promien> R#<promien> Z#<akt_z> F#<predkosc>
G2 X#<promien> Y0 R#<promien> 
G2 X0 Y[-1 * #<promien>] R#<promien>
G2 X[-1 * #<promien>] Y0 R#<promien>

( Bezpieczne zakończenie )
M5 ( stop wrzeciona )
M9 ( wyłączenie chłodzenia )
G0 Z#<w_z> ( wyjazd Z )
G0 X#<w_x> Y#<w_y> ( wyjazd do pozycji końcowej )

o<otwor_spirala> endsub