cnc.info.pl - FORUM CNC

Kod: Zaznacz cały

( ------------------------------ )
(         Snycerstwo dziewiątka    )
( ------------------------------ )
( Miki                         )
( Time-stamp: <2013-10-19 16:26> )
( ------------------------------ )

(info: Frezowanie symbolu 9 )

o<dziewiatka> sub

#<frez> = #1   (=5 frez)
#<x_pocz> = #2 (=0 X początkowy)
#<x_kon> = #3  (=20 X końcowy )
#<y_pocz> = #4 (=0 Y początkowy)
#<y_kon> = #5 (=20 Y końcowy )
#<glebokosc> = #6  (=-4 głębokość  )
#<glebokosc_poczatkowa> = #7 (=0 głębokość poczatkowa )
#<skok> = #8 (=2 przybranie)
#<predkosc_bok> = #9 (=600 prędkość bok)
#<predkosc_dol> = #10 (=600 prędkość dół)
#<pocket> = #11 (=0 1 - kieszeń, 0 - kontur )
#<pokrycie> = #12 (=1 pokrycie )
#<odjazd_z> = #13 (=4 Odjazd w osi Z )
#<kompensacja> = #14 (=40 kompensacja  )
#<obroty> = #15 (=10000 obroty wrzeciona  )
#<ostatni> = #16 (=0.2 ostatni przebieg  )
#<rozsuniecie_x> = #17 (=200 rozsunięcie w X  )
#<lewa> = #18 (=1 Lewa włączona )
#<prawa> = #19 (=1 Prawa włączona)
#<skala> = #20 (=1 skalowanie  )
#<odjazd_k_z> = #21 (=200 Odjazd końcowy w osi Z )
( ------------------------------ )
( ------------------------------ )




g17 g21 g61
#<dobieranie>=[#<frez>-#<pokrycie>]
(#<dobieranie> = 0)

#<akt_glebokosc> = #<glebokosc_poczatkowa> ( aktualna glebokosc prawej)
#<akt_glebokosc_1> = #<glebokosc_poczatkowa> ( aktualna glebokosc lewej)
T1 M6 (zmiana narzędzia)

o200 if [#<kompensacja> eq 42] (obrys zewnętrzny)
G0 G54 x[#<x_pocz>+#<frez>/2-#<ostatni>] y[#<y_pocz>+#<frez>/2-#<ostatni>] z[#<akt_glebokosc> +1] M3 S#<obroty> (podanie numeru ustawionej bazy, i współrzędnych, prawe obroty i ich ilość )
G1 g42 x[#<x_pocz>-#<ostatni>] y[#<y_pocz>-#<ostatni>] z0 f#<predkosc_dol> (to jest ten dojazd)

o200 elseif [#<kompensacja> eq 41] (obrys wewnętrzny)
#<ostatni> =[-#<ostatni>]
 #<frez> =[-#<frez>]
G0 G54 x[#<x_pocz>-#<frez>/2-#<ostatni>] y[#<y_pocz>-#<frez>/2-#<ostatni>] z[#<akt_glebokosc> +1] M3 S#<obroty> (podanie numeru ustawionej bazy, i współrzędnych, prawe obroty i ich ilość )
G1 g41 x[#<x_pocz>-#<ostatni>] y[#<y_pocz>-#<ostatni>] z0 f#<predkosc_dol> (to jest ten dojazd)

o200 else (bez kompensacji)
G0 G54 x[#<x_pocz>] y[#<y_pocz>] z[#<akt_glebokosc> +1] M3 S#<obroty> (podanie numeru ustawionej bazy, i współrzędnych, prawe obroty i ich ilość )
G1 g40 z0 f#<predkosc_dol> (to jest ten dojazd)
o200 endif 
 g0  x#<x_pocz> y0
o130 while [#<akt_glebokosc> GT #<glebokosc>]
  
 G1 Z[#<akt_glebokosc>] F#<predkosc_dol> ( dobieranie poczatkowe )
 o60 if[#<lewa>eq 1]
  g64
g2 x[#<x_pocz>+10*#<skala>] y[-10*#<skala>]  r[10*#<skala>] f #<predkosc_dol>
x[ #<x_pocz>+0*#<skala>] y[-30*#<skala>]  r[20*#<skala>]
x[#<x_pocz>-30*#<skala>] y[-30*#<skala>]  r[30*#<skala>]
x[#<x_pocz>-40*#<skala>] y[10*#<skala>]  r[30*#<skala>]
x[#<x_pocz>+0*#<skala>] y[40*#<skala>]  r[50*#<skala>]
x[#<x_pocz>+45*#<skala>]y[20*#<skala>]  r[60*#<skala>]
x[#<x_pocz>+40*#<skala>] y[-70*#<skala>]  r[75*#<skala>]
g61
x[#<x_pocz>-100*#<skala>] y[-100*#<skala>]  r[120*#<skala>]
g0 z#<odjazd_z>
g0  x#<x_pocz> y0
o60 endif
 #<akt_glebokosc> = [#<akt_glebokosc>-#<skok>] ( ustalenie glebokosci )
( jezeli nizej limitu to jade max )
     o131 if [#<akt_glebokosc> lT #<glebokosc>]
           #<akt_glebokosc> = #<glebokosc>
     o131 endif

o130 endwhile
o50 if[#<prawa>eq 1]
g0 x[#<x_pocz>-#<rozsuniecie_x>] y0

o150 while [#<akt_glebokosc_1> GT #<glebokosc>] (lewa dziewiątka)

G1 Z[#<akt_glebokosc_1>] F#<predkosc_dol>
g64
g3 x[#<x_pocz>-#<rozsuniecie_x>-10*#<skala>] y[-10*#<skala>]  r[10*#<skala>] f #<predkosc_dol>
x[#<x_pocz>-#<rozsuniecie_x> -0*#<skala>] y[-30*#<skala>]  r[20*#<skala>]
x[#<x_pocz>-#<rozsuniecie_x>+30*#<skala>] y[-30*#<skala>]  r[30*#<skala>]
x[#<x_pocz>-#<rozsuniecie_x>+40*#<skala>] y[10*#<skala>]  r[30*#<skala>]
x[#<x_pocz>-#<rozsuniecie_x>+0*#<skala>] y[40*#<skala>]  r[50*#<skala>]
x[#<x_pocz>-#<rozsuniecie_x>-45*#<skala>]y[20*#<skala>]  r[60*#<skala>]
x[#<x_pocz>-#<rozsuniecie_x>-40*#<skala>] y[-70*#<skala>]  r[75*#<skala>]
g61
x[#<x_pocz>-#<rozsuniecie_x>+100*#<skala>] y[-100*#<skala>]  r[120*#<skala>]
g0 z#<odjazd_z>
g0 x[#<x_pocz>-#<rozsuniecie_x>] y0
o50 endif


 #<akt_glebokosc_1> = [#<akt_glebokosc_1>-#<skok>] ( ustalenie glebokosci )
( jezeli nizej limitu to jade max )
     o151 if [#<akt_glebokosc_1> lT #<glebokosc>]
           #<akt_glebokosc_1> = #<glebokosc>
     o151 endif
g0 x[#<x_pocz>-#<rozsuniecie_x>] y0
o150 endwhile  ( koniec lewej dziewiątki )

m5
   
g0  x#<x_pocz> y0 z#<odjazd_k_z>  (wiadomo) 

o<dziewiatka> endsub