Rewolwerówka na CNC ?

Kod: Zaznacz cały

( ------------------------------ )
(          Ucinanie            )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-03-14 09:50> )
( ------------------------------ )

(info: Czoło )

o<ciecie> sub 

#<tool> = #1 (=5 gniazdo)
#<nr> = #2 (=5 numer narzędzia)
#<obr> = #3 (=600 obroty)
#<sr_pocz> = #4 (=70  Średnica początkowa)
#<sr_koncowa> = #5 (=20  Średnica końcowa)
#<poczatek> = #6 (=0  Z cięcia)
#<faza> = #7  (=0  fazka )
#<posuw> = #8 (= 60 Posuw)
#<w_z> = #9 (=0   Z  do zmiany)
#<w_x> = #10 (=100   X  do zmiany)
#<woda> = #11 (=1 <> chłodzenie)

o20 if [ #<w_x> lt #<sr_pocz>]
(msg, KOLIZJA ! zły wyjazd)
M30
o20 endif

o<zmiana> call [#<tool>] [#<nr>]


g61
m3 s#<obr>
o1 if [#<woda> eq 1]
   M8
o1 endif

g0 x[#<sr_pocz> + 0.5]
g0 z#<poczatek>  
  
  g1 x[#<sr_pocz> -3*#<faza> ]  f#<posuw>
  g0 x[#<sr_pocz>+0.5]
     z[#<poczatek> + #<faza> ]
   g1 z#<poczatek>  x[#<sr_pocz> - 2*#<faza> ] 
 

  g1 x#<sr_koncowa> 
  
  g0 x[#<sr_pocz> + 2]

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


m9
o<ciecie> endsub 

Kod: Zaznacz cały

o<zmiana> sub
 #<tool> = #1
 #<nr> = #2

(narzedzie 0)
o100 if [#<tool> eq 0]
  m6 t[#<nr>] g43
o100 else
(pozostale narzedzia)
  m6 t[#<nr>] g43
  m64 p0
  m66 P0 L1 Q1
  o101 if[#5399 eq -1]
    (msg, Błąd otwarcia głowicy)
	  m30
  o101 endif

	g0 c[[#<tool> - 1] * 45] 
  m65 p0
  m66 P0 L2 Q1
  o102 if[#5399 eq -1]
    (msg, Błąd zamknięcia głowicy)
	  m30
  o102 endif
o100 endif

o<zmiana> endsub

Kod: Zaznacz cały

( ------------------------------ )            
(    Zmiana narzędzia       )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2013-02-13 12:25> )
( ------------------------------ )

(info: zmiana narzędzia)

o<tool> sub
#<akt> = #1 (=1 aktualne gniazdo)
#<wym> = #2 (=4 wymagane gniazdo)

o1 if [#<akt> eq 1]
g92 c0
o1 endif
o2 if [#<akt> eq 2]
g92 c45
o2 endif
o3 if [#<akt> eq 3]
g92 c90
o3 endif
o4 if [#<akt> eq 4]
g92 c135
o4 endif
o5 if [#<akt> eq 5]
g92 c180
o5 endif
o6 if [#<akt> eq 6]
g92 c225
o6 endif
o7 if [#<akt> eq 7]
g92 c270
o7 endif
o8 if [#<akt> eq 8]
g92 c315
o8 endif

o10 If [#<wym> eq 1]
m6 t1 g43
m64 p0
m66 P0 L1 Q1
g0 c0 
m65 p0
o10 endif
o11 If [#<wym> eq 2]
m6 t2 g43
m64 p0
m66 P0 L1 Q1
g0 c45 
m65 p0
o11 endif
o12 If [#<wym> eq 3]
m6 t3 g43
m64 p0
m66 P0 L1 Q1
g0 c90
m65 p0
o12 endif
o13 If [#<wym> eq 4]
m6 t4 g43
m64 p0
m66 P0 L1 Q1
g0 c135 
m65 p0
o13 endif
o14 If [#<wym> eq 5]
m6 t5 g43
m64 p0
m66 P0 L1 Q1
g0 c180 
m65 p0
o14 endif
o15 If [#<wym> eq 6]
m6 t6 g43
m64 p0
m66 P0 L1 Q1
g0 c225 
m65 p0
o15 endif
o16 If [#<wym> eq 7]
m6 t7 g43
m64 p0
m66 P0 L1 Q1
g0 c270 
m65 p0
o16 endif
o17 If [#<wym> eq 8]
m6 t8 g43
m64 p0
m66 P0 L1 Q1
g0 c315 
m65 p0
o17 endif



o<tool> endsub