Kod: Zaznacz cały

( Time-stamp: <2012-12-07 09:40> ) 
( ------------------------------ ) 

(info: Gwint ) 

o<gwint> sub 


#<x_pocz> = #1 (=30 średnica początkowa X) 
#<z_pocz> = #2 (=0  początek gwintu Z) 
#<skok> = #3 (=2 skok gwintu [P]) 
#<dlugosc> = #4 (=-50 długość gwintu [Z]) 
#<rodzaj> = #5 (=0 <> wewnętrzny ) 
#<gl_pocz> = #6 (=0.1 Dobieranie [J]) 
#<gl_koncowa> = #7 (=1.2 Głębokość gwintu [K]) 
#<woda> = #8 (=1 <> chłodzenie) 
#<dosuw> = #9 (=0 <> dobieranie boczne ) 

g18 g61 g7

(#<wjazd>=[#<gl_koncowa> *2]) 
#<wjazd> = #<gl_koncowa> 

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



o110 if [#<dosuw> eq 1] 
#<dosuw>=30
o110 endif

o101 if [#<rodzaj> eq 1] 
#<pierwszy> = 0.1
g0 x[#<x_pocz> - 1] 
g0 z#<z_pocz> 
g0 x#<x_pocz> 
o101 endif

o102 if [#<rodzaj> eq 0] 
#<pierwszy> = -0.1
g0 z#<z_pocz> 
g0 x#<x_pocz> 
o102 endif

G76 P#<skok> Z#<dlugosc> I#<pierwszy> J#<gl_pocz> K#<wjazd> r1 Q#<dosuw> 
g18

o<gwint> endsub