zero materiału

Dyskusje dotyczące najpopularniejszego programu sterującego maszynami CNC

Autor tematu
amnon
Specjalista poziom 2 (min. 300)
Specjalista poziom 2 (min. 300)
Posty w temacie: 1
Posty: 312
Rejestracja: 04 mar 2007, 20:36
Lokalizacja: Polska

zero materiału

#1

Post napisał: amnon » 18 lis 2017, 20:16

Witam,

Zmieniłem płytę do sterowania macha z LPT na USB. Wszystko działa niby ok (szybkość przesyłu danych pozostawia dużo do życzenia) oprócz ustawiania zera materiału. Po zerowaniu wg kodu poniżej zero materiału jest ~ 0,4 mm poniżej.

Kod: Zaznacz cały

Dim obecny_posow
Dim jakie_G

'---------------------------------
Const droga_pomiaru= 80 ' 
'---------------------------------
Const posow_pomiaru= 25 ' 
'---------------------------------

 odczyt_F
 odczyt_G

'----------------------------------------------------------------------------------------
'Zaczyna pomiar

    SetOEMDro(824,1)				' ustawienie narzędzia na 1
    Sleep(100)
    DoOEMButton (1010) 		                'Zeruje dro osi Z 
    Code "G4 P2" 				        ' odmierza czas
    Code "G90"
    Code "G31 Z-" & droga_pomiaru & "F" & posow_pomiaru            'Start pomiaru - jedzie w z do styku 
    czekam_na_wykonanie
    Call SetDro (2, GetOEMDro(1300)) ' Wpisuje wysokość PODKŁADKI POMIAROWEJ 
    Code "G53 Z-1" & "F" & obecny_posow
    'Styk_sondy = GetVar(2002)

-
'----------------------------------------------------------------------------------------
Sub odczyt_F ()
   obecny_posow = GetOemDRO(818) 'odczyt aktualnego F
End Sub
'----------------------------------------------------------------------------------------
Sub odczyt_G ()
	jakie_G = GetOemLED(48) 'odczyt G90 czy G91
End Sub


Sub czekam_na_wykonanie ()
   While IsMoving() 
   Sleep(2) 
   Wend
End Sub         
Pozdrawiam
Amnon



Wróć do „Mach 2 / 3 / 4 (ArtSoft software)”