Frezarka 6P82 modernizacja cnc

Kod: Zaznacz cały

( ------------------------------ )
(  szczelina  szereg - frezarka  )
( ------------------------------ )
( Adam           wlasciwy              )
( Time-stamp: <2015-09-16 21:42> )
( ------------------------------ )

(info: Ciecie kanału po Y)

o<szczelina_frez> sub


#<frez> = #1 (=6 srednica freza)
#<pozioma> = #2 (=0 <> szczelina po X)
#<dlugosc> = #3 (=20 długość)
#<szerokosc> = #4 (=8 szerokość kanału)
#<glebokosc> = #5 (=-10 glebokosc )
#<skok> = #6 (=2 skok Z)
#<wyjazd> = #7 (=5 wyjazd)
#<obr> = #8  (=300  obroty)
#<posuw> = #9 (=500 prędkość bok)
#<predkosc_dol> = #10 (=30 prędkosć dół)
#<x_pocz> = #11 (=0 X poczatkowe)
#<y_pocz> = #12 (=0 Y poczatkowe)
#<powt_x> = #13 (=1 wystąpienia X)
#<powt_y> = #14 (=1 wystąpienia Y)
#<odl_x> = #15 (=0 skok X)
#<odl_y> = #16 (=0 skok Y)
#<woda> = #17 (=0 <> woda)




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

g17 g21 (plaszczyzna i jednostki)
(g61)  (ostre kąty, zatrzymywanie na zalamaniach konturow)
(g64)  (lagodne ksztalty)


g0 x0 y0
m3 s#<obr>
G0 Z#<wyjazd>

(g0 z5)

m3 s#<obr>

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

(zdefiniowanie promienia z kompensacja narzedzia)

#<promien> = [[#<szerokosc> / 2] - [#<frez> / 2]]

	g0 x#<x_pocz> y#<y_pocz>
	
  
  
  
  (PĘTLA PO X)
  
		o20 repeat[#<powt_x>]
		
			g0 x#<x_pocz> y#<y_pocz>	
				
			o25 if [#<pozioma> eq 0]
				
			g0 y#<y_pocz> x[#<x_pocz> - #<promien>]  f#<posuw>
					
					#<akt_glebokosc>=0
					
				o100 while [#<akt_glebokosc> GT #<glebokosc>]
					#<akt_glebokosc> = [#<akt_glebokosc> - #<skok>] ( ustalenie glebokosci )
			
					o130 if [#<akt_glebokosc> LT #<glebokosc>] 
					#<akt_glebokosc> = #<glebokosc>
					o130 endif
								
					g1 z[#<akt_glebokosc>] F#<predkosc_dol>
					
					g1 y[#<y_pocz> - #<dlugosc>/2] F#<posuw>
					g3 x[#<x_pocz> + #<promien>] y[#<y_pocz> - #<dlugosc>/2] i#<promien> j0
					g1 y[#<y_pocz> + #<dlugosc>/2] 
					g3 x[#<x_pocz> - #<promien>] y[#<y_pocz> + #<dlugosc>/2] i[-#<promien>] j0
					
					
					g1 y#<y_pocz>
					
					/g3 x[#<x_pocz> - sin[60]*#<promien>] y[#<y_pocz> - cos[60]*#<promien>] i#<promien> j0
				
				o100 endwhile
			
			o25 else
					
			g0 x[#<x_pocz>] y[#<y_pocz> + #<promien>] 
					
					#<akt_glebokosc>=0
				o101 while [#<akt_glebokosc> GT #<glebokosc>]
					#<akt_glebokosc> = [#<akt_glebokosc> - #<skok>] ( ustalenie glebokosci )
			
					o131 if [#<akt_glebokosc> LT #<glebokosc>] 
					#<akt_glebokosc> = #<glebokosc>
					o131 endif
					
					g1 z[#<akt_glebokosc>] F#<predkosc_dol>
					
					g1 x[#<x_pocz> - #<dlugosc>/2] F#<posuw>
					g3 x[#<x_pocz> - #<dlugosc>/2] y[#<y_pocz>  - #<promien>] i0 j[-#<promien>]
					g1 x[#<x_pocz> + #<dlugosc>/2] 
					g3 x[#<x_pocz> + #<dlugosc>/2 ] y[#<y_pocz> + #<promien>] i0 j#<promien>
					
					
					g1 x#<x_pocz>
				
					/g3 x[#<x_pocz> - cos[60]*#<promien>] y[#<y_pocz> + sin[60]*#<promien>] i0 j-#<promien>
		
				o101 endwhile
		
			o25 endif	
				
				
			G0 Z#<wyjazd>
			
				
				(PĘTLA PO Y)

				o30 repeat[#<powt_y>-1]
				
					#<y_pocz> = [#<y_pocz> + #<odl_y>]
					g0 x#<x_pocz> y#<y_pocz>
					
					
					o35 if [#<pozioma> eq 0]
					
					
					g0 y#<y_pocz> x[#<x_pocz> - #<promien>]  f#<posuw>
						
						#<akt_glebokosc>=0
						
						o105 while [#<akt_glebokosc> GT #<glebokosc>]
							#<akt_glebokosc> = [#<akt_glebokosc> - #<skok>] ( ustalenie glebokosci )
					
							o135 if [#<akt_glebokosc> LT #<glebokosc>] 
							#<akt_glebokosc> = #<glebokosc>
							o135 endif
										
							g1 z[#<akt_glebokosc>] F#<predkosc_dol>
							
							g1 y[#<y_pocz> - #<dlugosc>/2] 
							g3 x[#<x_pocz> + #<promien>] y[#<y_pocz> - #<dlugosc>/2] i#<promien> j0
							g1 y[#<y_pocz> + #<dlugosc>/2] 
							g3 x[#<x_pocz> - #<promien>] y[#<y_pocz> + #<dlugosc>/2] i[-#<promien>] j0
							
							
							g1 y#<y_pocz>
							
							/g3 x[#<x_pocz> - sin[60]*#<promien>] y[#<y_pocz> - cos[60]*#<promien>] i#<promien> j0
				
						o105 endwhile
			
					o35 else
					
						g0 x[#<x_pocz>] y[#<y_pocz> + #<promien>] 
					
						#<akt_glebokosc>=0
						
						o106 while [#<akt_glebokosc> GT #<glebokosc>]
							#<akt_glebokosc> = [#<akt_glebokosc> - #<skok>] ( ustalenie glebokosci )
					
							o136 if [#<akt_glebokosc> LT #<glebokosc>] 
							#<akt_glebokosc> = #<glebokosc>
							o136 endif
							
							g1 z[#<akt_glebokosc>] F#<predkosc_dol>
							
							g1 x[#<x_pocz> - #<dlugosc>/2] 
							g3 x[#<x_pocz> - #<dlugosc>/2] y[#<y_pocz>  - #<promien>] i0 j[-#<promien>]
							g1 x[#<x_pocz> + #<dlugosc>/2] 
							g3 x[#<x_pocz> + #<dlugosc>/2 ] y[#<y_pocz> + #<promien>] i0 j#<promien>
							
							
							g1 x#<x_pocz>
						
							/g3 x[#<x_pocz> - cos[60]*#<promien>] y[#<y_pocz> + sin[60]*#<promien>] i0 j-#<promien>
				
						o106 endwhile
					
					o35 endif
			
				
			g0 z#<wyjazd>
			
			
				o30 endrepeat
			
			(powrot na y poczatkowe i nastepne powtorzenie po X)	
			
			#<y_pocz> = [#<y_pocz> - #<odl_y>*[#<powt_y>-1]]
				
			#<x_pocz> = [#<x_pocz> + #<odl_x>]
			
      
      o20 endrepeat
      
      G4 p0.5
     
		g91
		g0 z70
		g90
     
     
g0 x0 y0

o<szczelina_frez> endsub