Poręba TR-55 cd. modernizacji

Kod: Zaznacz cały

( ------------------------------ )
(          GWINT STOŻEK          )
( ------------------------------ )
( Adam                          )
( Time-stamp: <13-07-2015 17:33> )
( ------------------------------ )

(info: Gwint stożek)

o<gwinty2> sub


#<nr> = #1 (=1 numer narzędzia)
#<obr> = #2 (=200 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<x_pocz> = #4 (=30 średnica początkowa X)
#<z_pocz> = #5 (=0  początek gwintu Z)
#<skok> = #6 (=2 skok gwintu [P])
#<dlugosc> = #7 (=-20 koniec gwintu [Z])
#<rodzaj> = #8 (=0 <> wewnętrzny )
#<ukos> = #9 (=0 kierunek pochylenia 0 =  1 <  2 >)
#<gl_pocz> = #10 (=0.6 Dobieranie [J])
#<gl_koncowa> = #11 (=1.5 Głębokość gwintu / na promieniu)
#<offset_wlacz> = #12 (=0 <> odjazd od gwintu | offset)
#<offset> = #13 (=1 wartość offsetu)
#<dosuw> = #14 (=27.5 dobieranie boczne [kąt])
#<pochylenie_dlugosc> = #15 (=50 dlugosc pochyl. [E] np.E=Z )
#<wygladzanie> = #16 (=1 <> przejscie wygladzajace)
#<woda> = #17 (=0 <> chłodzenie)
#<w_z> = #18 (=100  Z  do zmiany)
#<w_x> = #19 (=50  X  do zmiany)
#<korekta> = #20 (=0 <> korekta)
#<wielkosc_korekty> = #21 (=0 wielkość korekty)
#<stala_pr_skrawania> = #22 (=0 <> stala_pr_skrawania)
#<obroty_max> = #23 (=0 obroty max)
#<pr_skrawania> = #24 (=0 predkosc skrawania [m/min])
#<degresja> = #25 (=1.5 Dobranie: stała gł. [1] - [2] stała pow.)


o20 if [#<rodzaj> eq 0]  (ZEWNETRZNY)
		o21 if [#<w_z> lt 0 or #<w_x> lt [#<x_pocz>+#<gl_koncowa>] ]
		(msg, KOLIZJA ! zły wyjazd)
		M30
		o21 endif
o20 else  (WEWNETRZNY)
		o22 if [#<w_z> lt 0 or #<w_x> gt [#<x_pocz>-#<gl_koncowa>] ]
		(msg, KOLIZJA ! zły wyjazd)
		M30
		o22 endif
o20 endif


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


(Tu sie zastanow)
g18   
g7

M6 T#<nr> G43

m3 s#<obr>

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


 o111 if [#<wygladzanie> eq 1] 
 #<wygladzanie> = 2 
 o111 endif 


#<bzwgl_wielkosc_korekty> = #<wielkosc_korekty>

o101 if [#<rodzaj> eq 1]  (wewnetrzny)

			#<wielkosc_korekty>= -#<wielkosc_korekty>

		o120 if [#<offset_wlacz> eq 1]
		#<offset> = #<offset>
		o120 else
		#<offset> = #<skok>
		o120 endif

	g0 z#<z_pocz>
	g0 x[#<x_pocz> -3]
	g0 x[#<x_pocz> - #<offset>]
	
o101 endif


o102 if [#<rodzaj> eq 0]   (zewnetrzny)
		o130 if [#<offset_wlacz> eq 1]
		#<offset> = -#<offset>
		o130 else
		#<offset> = -#<skok>
		o130 endif

(dla wlaczonej korekty musimy calosc przesunac w lewo o z=Tan[dobieranie_boczne]*wartosc_korekty_promieniowa)

	o104 if [#<korekta> eq 0]
		g0 x[#<x_pocz> + 3]
		g0 z#<z_pocz>
		g0 x[#<x_pocz> - #<offset>]
	o104 else
		#<z_pocz> = [#<z_pocz> - tan[#<dosuw>] * #<wielkosc_korekty> / 2]
		g0 x[#<x_pocz> + 3]
		g0 z#<z_pocz>
		g0 x[#<x_pocz> - #<offset>]
	o104 endif	
	
o102 endif


 o103 if [#<korekta> eq 0] (bez mkorekty)
 
		o11 if [#<stala_pr_skrawania> eq 1]
		G96 s#<pr_skrawania> D#<obroty_max>
		o11 endif
 
	g76 p#<skok> z#<dlugosc> i#<offset>  j#<gl_pocz> k[#<gl_koncowa>*2] e#<pochylenie_dlugosc> l#<ukos> r#<degresja> q#<dosuw> h#<wygladzanie> 
 
 o103 else  (korekta wlaczona)
	(musimy calosc przesunac w lewo o z=Tan[dobieranie_boczne]*wartosc_korekty_promieniowa)
	
 
 
		o12 if [#<stala_pr_skrawania> eq 1]
		G96 s#<pr_skrawania> D#<obroty_max>
		o12 endif
 
	g76 p#<skok> z#<dlugosc> i[#<offset> - #<wielkosc_korekty>] j[#<gl_koncowa>*2-#<bzwgl_wielkosc_korekty>] k[#<gl_koncowa>*2] e#<pochylenie_dlugosc> l#<ukos> r#<degresja> q#<dosuw> h#<wygladzanie> 
	(g76 p#<skok> z#<dlugosc> i[#<offset> - #<wielkosc_korekty>] j[#<gl_koncowa> - #<bzwgl_wielkosc_korekty>] k[#<gl_koncowa>*2] e#<pochylenie_dlugosc> l#<ukos> r#<degresja> q#<dosuw> h#<wygladzanie>)
 o103 endif 

g18

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

o<gwinty2> endsub