Suby ngcgui

Kod: Zaznacz cały

( ------------------------------ )
(  Ł U K )
(                         )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2013-11-28 14:45> )
( ------------------------------ )


o<luk> sub
#<obr> = #1 (=1500 obroty)
#<frez> = #2 (=8 frez)
#<kat_poczatkowy> = #3 (=-60 kąt początkowy)
#<kat_koncowy> = #4 (=60 kąt końcowy)
#<sr_otworu> = #5 (=100 śr. otworu)
#<glebokosc> = #6 (=43 głębokość ABS)
#<glebokosc_poczatkowa> = #7 (=0 gł. początkowa)
#<predkosc_bok> = #8 (=300 prędkość bok)
#<predkosc_dol> = #9 (=100 prędkość dół)
#<skok> = #10 (=1 skok)
#<woda> = #11 (=1 <> chłodzenie)
#<w_z> = #12 (wyjazd Z)
#<w_x> = #13 (wyjazd X)
#<w_y> = #14 (wyjazd Y)

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

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



g17 G21 G61

#<x1> = [#<promien> * sin[#<kat_poczatkowy>]]
#<y1> = [#<promien> * cos[#<kat_poczatkowy>]]
(debug, X1 = #<x1>)
(debug, Y1 = #<y1>)
#<x2> = [#<promien> * sin[#<kat_koncowy>]]
#<y2> = [#<promien> * cos[#<kat_koncowy>]]
(debug, X2 = #<x2>)
(debug, Y2 = #<y2>)

G0 X#<x1> Y#<y1>
G0 Z5
M3 s#<obr>

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

G0 Z1
g1 z0 f#<predkosc_dol>

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

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

  G1 Z#<akt_glebokosc> F#<predkosc_dol>

  G2 X#<x2> Y#<y2> i[#<x1> * -1] j[#<y1> * -1] F#<predkosc_bok>
  g0 z2
  G0 X#<x1> Y#<y1>
  g0 z0.5
  g1 z#<akt_glebokosc> F#<predkosc_dol>

o100 endwhile

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

o<luk> endsub

Kod: Zaznacz cały

( ------------------------------ )
(       OTWORY LINIA             )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2019-02-19 10:54> )
( ------------------------------ )

(info: Wiercenie otworów w linii oś X lub Y   )

o<otwory_linia> sub

#<obr> = #1 (=1500 obroty)
#<odstep_X> = #2 (=20 odstęp X)
#<odstep_Y> = #3  (=30 odstęp Y)
#<liczba_otworow> = #4 (=5 liczba otworów)
#<glebokosc> = #5 (=-10 głębokość )
#<glebokosc_poczatkowa> = #6 (=0 Z początkowe)
#<wyjazd> = #7 (=2 wyjazd po otworze)
#<skok> = #8 (=0 Q skok)
#<predkosc_dol> = #9 (=60 prędkość dół)
#<woda> = #10 (=1 <> chłodzenie)
#<w_z> = #11 (=5 wyjazd Z)
#<w_x> = #12 (=0 wyjazd X)
#<w_y> = #13 (=0 wyjazd Y)
( ------------------------------ )

g17 g61 g21

g0 z5
g0 x0 y0
m3 s#<obr>
o1 if [#<woda> eq 1]
m8
o1 endif


#<aktualny_X> = 0
#<aktualny_Y> = 0
#<aktualny_otwor> = 0

o100 while [#<aktualny_otwor> LT #<liczba_otworow>]

g0 X#<aktualny_X> Y#<aktualny_Y>
g0 Z[#<glebokosc_poczatkowa> + 0.5]

g0 Z#<glebokosc_poczatkowa>

o110 if [#<skok> eq 0]
g81 X#<aktualny_X> Y#<aktualny_Y> Z#<glebokosc> F#<predkosc_dol> R[#<glebokosc_poczatkowa> + 1]
o110 else
g83 X#<aktualny_X> Y#<aktualny_Y> Z#<glebokosc> F#<predkosc_dol> R[#<glebokosc_poczatkowa> +1] Q#<skok>
o110 endif

g0 Z#<wyjazd>

o120 if [#<odstep_Y> ne 0]
#<aktualny_Y> = [#<aktualny_Y> + #<odstep_Y>]
o120 else
#<aktualny_X> = [#<aktualny_X> + #<odstep_X>]
o120 endif


#<aktualny_otwor> = [#<aktualny_otwor> + 1]

g0 Z#<wyjazd>

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

o<otwory_linia> endsub