Suby ngcgui

Kod: Zaznacz cały

( ------------------------------- )
( ------------------------------- )
(  S E G E R Y  Ł O Z Y S K O W E )
( ------------------------------- )
( Kamar                           )
( Time-stamp: <2015-02-10 08:32>  )
( ------------------------------- )

(info: segery łożyskowe wewnętrzne )

o<segery_lozyskowe_wewnetrzne> sub

#<nr> = #1 (=1 nr narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<sr_pocz> = #4 (=51 Średnica początkowa)
#<sr_koncowa> = #5 (=54 Średnica końcowa)
#<z_pocz> = #6 (=-4 Z początkowe)
#<noz> = #7 (=1 Szerokość noża)
#<kanal> = #8 (=2 szerokość kanałku)
#<lozysko> = #9 (=15 szerokość łożyska)
#<posuw> = #10 (=15 Posuw)
#<woda> = #11 (=1 <> Woda)
#<w_z> = #12 (  Z  do zmiany)
#<w_x> = #13 (  X  do zmiany)

M6 T#<nr> G43

o2 if [#<odboczka> eq 1]
  #<obr> = [#<obr> * 8]
o2 endif

g61

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

( pierwszy seger )

g0 z1
g0 x[#<sr_pocz> - 1]
g0 z#<z_pocz>
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> - 1]

o102 if [#<kanal> gt #<noz>]
     #<akt_z> = #<z_pocz>
     o110 while [#<akt_z> lt [#<z_pocz> + [#<kanal> - #<noz>]]]
     	  #<akt_z> = [#<akt_z> + [0.7 * #<noz>]]
	       o115 if [#<akt_z> gt [#<z_pocz> + [#<kanal> - #<noz>]]]
     	       	    #<akt_z> = [#<z_pocz> + #<kanal> - #<noz>]
	       o115 endif
     	  g0 z#<akt_z>
     	  g1 x#<sr_koncowa> f#<posuw>
     	  g0 x[#<sr_pocz> - 1]
     o110 endwhile
o102 endif

( drugi seger )

o222 if [#<lozysko> eq 0]
   g0 z10
m30
o222 endif

g0 z[#<z_pocz> - #<kanal> - #<lozysko>]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> - 1]

o202 if [#<kanal> gt #<noz>]
     #<akt_z> = [#<z_pocz> - #<kanal> - #<lozysko>]
     o210 while [#<akt_z> lt [#<z_pocz> - #<kanal> - #<lozysko> + [#<kanal> - #<noz>]]]
     	  #<akt_z> = [#<akt_z> + [0.7 * #<noz>]]
	       o215 if [#<akt_z> gt [#<z_pocz> - #<kanal> - #<lozysko> + #<kanal> - #<noz>]]
     	       	    #<akt_z> = [#<z_pocz> - #<kanal> - #<lozysko> + #<kanal> - #<noz>]
	       o215 endif
     	  g0 z#<akt_z>
     	  g1 x#<sr_koncowa> f#<posuw>
     	  g0 x[#<sr_pocz> - 1]
     o210 endwhile
o202 endif

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

o<segery_lozyskowe_wewnetrzne> endsub 

Kod: Zaznacz cały

( ------------------------------ )
(           S E G E R            )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-03-14 09:51> )
( ------------------------------ )

(info: seger )

o<seger> sub

#<nr> = #1 (=1 nr narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<sr_pocz> = #4 (=40 Średnica początkowa)
#<sr_koncowa> = #5 (=20 Średnica końcowa)
#<z_pocz> = #6 (=0 Z początkowe)
#<noz> = #7 (=2 Szerokość noża)
#<kanal> = #8 (=2 szerokość kanałku)
#<posuw> = #9 (=60 Posuw)
#<woda> = #10 (=1 Woda)

M6 T#<nr> G43

o2 if [#<odboczka> eq 1]
  #<obr> = [#<obr> * 8]
o2 endif

g61

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


o100 if [#<sr_pocz> gt #<sr_koncowa>]

g0 z#<z_pocz>

x[#<sr_pocz> +1]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> +1]
o101 if [#<kanal> gt #<noz>]
g0 z[#<z_pocz>+[#<kanal>-#<noz>]]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> +1]
o101 endif


o100 endif


o200 if [#<sr_pocz> lt #<sr_koncowa>]
g0 z1
g0 x[#<sr_pocz> -1]
z#<z_pocz>
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> - 1]
o102 if [#<kanal> gt #<noz>]
g0 z[#<z_pocz>+[#<kanal>-#<noz>]]
g1 x#<sr_koncowa> f#<posuw>
g0 x[#<sr_pocz> - 1]
o102 endif
g0 z10

o200 endif

o<seger> endsub