Kod: Zaznacz cały

tool = GetSelectedTool() 
SetCurrentTool( tool )    ; oryginalna częsc z macha
Code "g0" 
Code "G53 z0"         ; wybór ruchu i ruch do Z0 maszyny ( mozna tez przez G28 G91 Z0 ) 
While IsMoving()      ; ale nie wiem dlaczego tak zrobilem 
Wend
Code "G28"             ; ruch do pozycji zerowych wszystkich osi dla latwiejszej wymiany narzędzi u mnie 
While IsMoving() 
Wend

Kod: Zaznacz cały

dim Z,z1,z2,z3
dim tool                  ; pare zmiennych
z = 70.72

z3 = GetDRO(2)    ; pobranie pozycji osi Z
z3 = z3 - 70

Code "g0" 
Code "g53 x1.56 y-31.84"      ; ruch do pozycji XY czujnika dlugosci narzędzi
While IsMoving() 
Wend                                  ; pętla, która czeka az maszyna dojedzie

Code "G31 Z" & z3 & "f600"   ; funkcja która bedzie jechała osią Z w dół aż do napotkania sygnału "DIGITIZE" ale nie wiecej niz do wartości Z3 wyliczonej wyzej
While IsMoving() 
Wend

Z1 = GetVar( 2002 ) ' pobranie osi Z maszyny , ta metoda jest dokladniejsza poniewaz podczas zderzenia jest zapamietywana wartosc i nie zalezy od predkosci hamowania silnika po zatrzymaniu
Z2 = Z+z1

message (z2)       ; wyswietlenie wartosci na dolnym pasku wiadomosci

Code "G0" 
Code "G53 z0" 
While IsMoving()   ; podjechanie do góry Z maszyny Z0
Wend

call SetOEMDRO(42,z2) 
Tool = GetDRO( 24 )       ; wpisanie wyliczonej wartosci do rejestru dlugosci narzedzia 
Code "G43 H"&Tool         ; i wywolanie korekty dla tego narzedzia

Code "G53 z-1" 
While IsMoving() 
Wend
Code "G53 z0"              ; ta czesc jest najbardziej tajemnicza, musialem tak zrobic 
While IsMoving()           ; poniewaz bez tego przy zalozeniu krutszego ( albo dluzszego ) 
Wend                           ; freza maszyna jechala do góry pomimo ze byla na samej górze i naciskała na LIMIT Z