Kod: Zaznacz cały

( ------------------------------ )
(  O T W O R    D O K L A D N Y  )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-10-23 12:30> )
( ------------------------------ )

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

o<otwor> sub

#<frez> = #1 (=6 frez)
#<sr_otworu> = #2 (=20 średnica)
#<pr_wjazdu> = #3 (=0.1 promień wjazdu)
#<glebokosc> = #4 (=-10 głębokość )
#<glebokosc_poczatkowa> = #5 (=0 Z początkowe)
#<predkosc_bok> = #6 (=60 prędkość bok)
#<predkosc_dol> = #7 (=30 prędkość dół)
#<skok> = #8 (=2 skok)
#<rodzaj> = #9 (=0 <> koło)
#<woda> = #10 (=1 <> chlodzenie)
( ------------------------------ )

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

g17 G21 G61

(G0 X0 Y0)
M3 s1

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

o2 if [#<rodzaj> eq 0]
(otwór)

G0 X[-1 * [#<promien> - #<pr_wjazdu>]] Y#<pr_wjazdu>
G0 Z1
G1 Z0 f#<predkosc_dol>

#<akt_glebokosc> = #<glebokosc_poczatkowa>
o100 while [#<akt_glebokosc> gt #<glebokosc>]
  #<akt_glebokosc> = [#<akt_glebokosc> - #<skok>]

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

  G1 Z#<akt_glebokosc> F#<predkosc_dol>
	G3 X[#<promien> * -1] Y0 I0 J[-1 * #<pr_wjazdu>] F#<predkosc_bok>
	G3 X[#<promien> * -1] Y0 I#<promien> J0
	G3 X[-1 * [#<promien> - #<pr_wjazdu>]] Y[#<pr_wjazdu> * -1] I[#<pr_wjazdu>] J0
	G1 Y#<pr_wjazdu>

o100 endwhile

o2 else
(koło)
#<promien> = [#<pr_otworu> + #<pr_freza>] ( dojazd )

G0 X[-1 * [#<promien> + #<pr_wjazdu>]] Y#<pr_wjazdu>
G0 Z1
G1 Z0 f#<predkosc_dol>

#<akt_glebokosc> = #<glebokosc_poczatkowa>
o200 while [#<akt_glebokosc> gt #<glebokosc>]
  #<akt_glebokosc> = [#<akt_glebokosc> - #<skok>]

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

  G1 Z#<akt_glebokosc> F#<predkosc_dol>
	G2 X[#<promien> * -1] Y0 I0 J[-1 * #<pr_wjazdu>] F#<predkosc_bok>
	G3 X[#<promien> * -1] Y0 I#<promien> J0
	G2 X[-1 * [#<promien> + #<pr_wjazdu>]] Y[#<pr_wjazdu> * -1] I[#<pr_wjazdu> * -1] J0
  (G1 X[-1 * [#<promien> + #<pr_wjazdu>]] Y#<pr_wjazdu>)
	G1 Y#<pr_wjazdu>

o200 endwhile
o2 endif



g0 z5


o<otwor> endsub