Kod: Zaznacz cały

( ------------------------------ )
(       WYBRANIE   ZAOKRAGLONE   )
( ------------------------------ )
( Adam                  		)
( Time-stamp: <2015-11-24 23:00>  )
( ------------------------------ )
(info: klin )

o<wybranie_lina> sub

może nie jest dopracowany na 100 , ale każdy moż se poprawić :grin: 


#<nr> = #1 (=1 nr narzędzia) 
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)


#<z_pocz> = #4 (=-60 Z początkowe)
#<szerokosc> = #5 (=40 szerokość) 

#<poczatek> = #6 (=100 średnica duża)
#<koniec> = #7 (=80 średnica mała)

#<R_zaokraglenie> = #8 (=2 prom. zaokrąglenia)

#<dobieranie> = #9 (=1 dobieranie)

#<posuw> = #10 (=0.2 posuw [mm/obr] v [mm/min])
#<posuw_na_obrot> = #11 (=0 <> posuw/obrot)

#<w_z> = #12 (=50 Z  do zmiany)
#<w_x> = #13 (=110 X  do zmiany)

#<woda> = #14 (=1 <> chłodzenie)

#<stala_pr_skrawania> = #15 (=0 <> stała pr. skrawania)
#<obroty_max> = #16 (=1200 obroty max)
#<pr_skrawania> = #17 (=200 prędkość skrawania [m/min])
#<korekta> = #18 (=0 <> korekta)
#<wartosc_korekty> = #19 (=1 wartość korekty)


g18 


	o1 if [#<w_x> lt #<poczatek> or #<w_z> lt 0]
	(msg, KOLIZJA ! zły wyjazd)
	M30
	o1 endif



	

(M6 T#<nr> G43)

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


	o6 if [#<odboczka> eq 1]
	  #<pr_skrawania> = [#<pr_skrawania> * 8]
	  #<obroty_max> = [#<obroty_max> * 8]
	o6 endif


	o7 if [#<woda> eq 1]
	   M8
	o7 endif

	o8 if [#<posuw_na_obrot> eq 1]
		G95 
	o8 endif

M3 s#<obr>



g0 x[#<poczatek> + 2]
g0 z[#<z_pocz> - #<szerokosc>]

#<akt_pozycja> = #<poczatek> 



(obliczenia pomocnicze)


#<glebokosc_promieniowa> = [#<poczatek> - #<koniec>]

	


(koniec obliczen)

o4 if [#<stala_pr_skrawania> eq 1]
		G96 s#<pr_skrawania> D#<obroty_max>
		o4 endif

o50 if [#<korekta> eq 0]
	
	
	(ETAP I - toczenie az do zaokraglenia)

o100 while [#<akt_pozycja> gt [#<koniec> + 2*#<R_zaokraglenie>]]
	#<akt_pozycja> = [#<akt_pozycja> - #<dobieranie>]

	o200 if [#<akt_pozycja> lt [#<koniec> + #<R_zaokraglenie>]]
		 #<akt_pozycja> = [#<koniec> + 2*#<R_zaokraglenie>]
	O200 endif
	
		
		g0 x[#<poczatek> + 2] 
		g0 z[#<z_pocz> - #<szerokosc>]
		g0 x[#<akt_pozycja> + #<dobieranie>]
		g1 x#<akt_pozycja> f#<posuw> 
		g1 z[#<z_pocz>]
		g1 x[#<akt_pozycja> + #<dobieranie>]
	
		g0 x[#<poczatek> + 2]
		g0 z[#<z_pocz> - #<szerokosc>]
		
o100 endwhile
	
	
	#<akt_pozycja> = [#<koniec> + #<R_zaokraglenie>]
	
	
	(ETAP II - TOCZENIE Z ZAOKRAGLENIAMI)
	
	#<akt_pozycja> = [#<koniec> + #<R_zaokraglenie>*2]
	#<akt_pozycja2> = [#<koniec> + #<R_zaokraglenie>]
	
o101 while [#<akt_pozycja> gt #<koniec>]
	#<akt_pozycja> = [#<akt_pozycja> - #<dobieranie>]
	#<akt_pozycja2> = [#<akt_pozycja2> - #<dobieranie>/2]
	
	o201 if [#<akt_pozycja> lt #<koniec>]
		 #<akt_pozycja> = #<koniec>
	O201 endif
	
		#<x_luku> = [#<koniec>/2 + #<R_zaokraglenie> - #<akt_pozycja>/2]
		#<z_luku> = sqrt[ [#<R_zaokraglenie> * #<R_zaokraglenie>] - [#<x_luku>*#<x_luku>] ]
		
		
	
	
	
	g0 x[#<poczatek> + 2]
	g0 z[#<z_pocz> - #<szerokosc>]
	g1 x[#<koniec> + #<R_zaokraglenie>*2] f#<posuw>
	
	g3 x#<akt_pozycja>  z[#<z_pocz> - #<szerokosc> + #<R_zaokraglenie> - #<z_luku>] i0 k#<R_zaokraglenie>
	
	g1 z[#<z_pocz> - #<R_zaokraglenie> + #<z_luku>]
	g3 x[#<koniec> + #<R_zaokraglenie>*2] z#<z_pocz> i[#<koniec> + #<R_zaokraglenie> - #<akt_pozycja2> ] k[-#<z_luku>]
	g0 x[#<poczatek> + 2]
	g0 z[#<z_pocz> - #<szerokosc>]
	
		
o101 endwhile

o50 else

		#<akt_pozycja2> = [#<koniec> + #<R_zaokraglenie>]

		g0 x[#<poczatek> + 1] 
		g0 z[#<z_pocz> - #<szerokosc> - #<wartosc_korekty>/2]
		g1 x[#<koniec> + #<R_zaokraglenie>*2] f#<posuw>
		(/g3 x[#<koniec> - #<wartosc_korekty>/2]  z[#<z_pocz> - #<szerokosc> + #<R_zaokraglenie>]  i0 k[#<R_zaokraglenie> + #<wartosc_korekty>/2])
		g3 x[#<koniec> - #<wartosc_korekty>]  z[#<z_pocz> - #<szerokosc> + #<R_zaokraglenie>]  i0 k[#<R_zaokraglenie> + #<wartosc_korekty>/2]

		g1 z[#<z_pocz> - #<R_zaokraglenie>]
		g3 x[#<koniec> + #<R_zaokraglenie>*2] z[#<z_pocz> + #<wartosc_korekty>/2]  i[#<R_zaokraglenie> + #<wartosc_korekty>/2  ] k[0]
		g1 x[#<poczatek> + 1] 
		g0 x[#<poczatek> + 2]
		
		

o50 endif


g0 x[#<poczatek> + 2]
g0 z#<z_pocz>	

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






o<wybranie_lina> endsub