Z sıfırlama prob ve mach3 kart sorunu

Yusuf SEYLAN' Alıntı:

1 numaralı soruma cevap vermemişsiniz yukarıya çıkarken + değer mi - değer mi alıyor?

Genişletmek için tıkla ...

hamsikoli' Alıntı:

kullandığım script aşağıda
auto tool zero ya bastığımda z önce kendini 0 yapıyo sonra 12 ye çıkıyor direk
G31 cod satırını direk çalıştırdım fakat anladımki G31Z-100 F50 çalışmıyor
Port&pind inputta probe emulated tiki aktif edince G31 çalışıyor ama bu seferde prob da durmuyor

son olarak probu bagladığım pin 13 auto da da 13 pinini buluyor burada 5 v. var
bunu deactife edince G31 çalışıyor.


'''**************
PlateThickness = GetUserDRO(1151)
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P1" 'P1 değeriyle oynayabilirsiniz. Amacı auto tool zero tuşuna bastığınızda harekete geçmek için ne kadar süre beklemesi gerektiğidir. Mesela acelem var derseniz 0.25 yapabilirsiniz Yalnız nokta ile virgül değil
Code "G31Z-100 F50" '-142.5 değeri Z eksenininsıfırlama yapmak için en fazla ne kadar ineceğinin sınırıdır. Mesela Auto tool zero dedeniz ve Z inmeye başladı. -40 birimde probu göremezse işlem iptal F500 ise bildiginiz gibi iniş hızınız. Düşürmekte fayda var.
While IsMoving()
Wend
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, 70.6) 'Buraya virgülden sonra boşluk bırakarak probunuzun kalınlığını giriniz. Mesela 10.5 gibi. Onluk ayıracının Nokta olmasına dikkat)
Code "G4 P0.25" 'Buradaki P değeri sıfırlama işlemi bittikten sonra Z ekseninin alt satıra yazacağımız değere kalkarak ne kadar süreyle beklemede kalacağıdır.
Code "G53 Z20" '20 değeri Z nin probu gördükten sonra ne kadar yükseğe kalkması gerektiğidir
Code "(Z ekseni sıfırlandı...)" 'Buraya sıfırmala işlemi sonrasında Mach3 Statüs barında yazmasını istediğiniz mesajı yazacaksınız.
Else
Code "(Z Eksen Sıfırlama Hatası... Bağlantıları kontrol ederek tekrar deneyiniz...)" 'Anlaşılacağı üzere hata durumunda mesajınız
Exit Sub
End If

''''''***********'''''''''

Genişletmek için tıkla ...

ProbeMaxDown = -120.00
Retract = 3.00
FirstProbeFeed = 300
SecondProbeFeed = 50
PlateOffset = 5

If GetOemLED(825) <> 0 Then

    MachMsgTypeOk = 0
    MachMsgReturnOk = 1
    DoButton(21)
    Ret = MachMsg("Probe Connection Error!!!","WARNING!!!",MachMsgTypeOk)
    If Ret = MachMsgReturnOK Then
    End If
    Exit Sub

Else

'---1. Fix Probe Run---

    Code "F" & FirstProbeFeed
    Code "G31 Z" & ZFixTCZS

        While IsMoving
        Sleep(100)
        Wend

    ProbeDist = GetVar(2002)
    Code "G01 Z" & ProbeDist + Retract

        While IsMoving
        Sleep(100)
        Wend
    
End If
        
If GetOemLED(825)<>0 Then

    MachMsgTypeOk = 0
    MachMsgReturnOk = 1
    DoButton(21)
    Ret = MachMsg("Probe Connection Error!!!","WARNING!!!",MachMsgTypeOk)
    If Ret = MachMsgReturnOK Then
    End If
    Exit Sub

Else
    

'---2. Fix Probe Run---

    Code "F" & SecondProbeFeed
    ProbeMaxDown2 = GetDRO(2) - 4
    Code "G31 Z" & ProbeMaxDown2

        While IsMoving
        Sleep(100)
        Wend

    Call SetDRO(2, PlateOffset)
    Code "G4 P0.25"
        
End If

End Sub