Z sıfırlama Makrosu
PlateThickness = 0.5 ' burası sıfırlama yaptığın parçanın kalınlığı...! (ben 1 mm yazdım)
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P0.20"
Code "G31Z-40 F200"
While IsMoving()
Wend
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, PlateThickness)
Code "G4 P0.25"
Code "G0 Z10"
Code "(Z axis is now zeroed)"
Else
Code "(Z-Plate is grounded, check connection and try again)"
Exit Sub
End If
***Not: Code "G31Z-40 F200" Satırındaki -40 değeri Z eksenin parçayı arayacağı mesafeyi gösterir. Yani mach3 e Z eksenini sıfırla dedikten sonra 40 mm içinde parçaya dokunamazsa parça yok dokunamadım diyerek geri eski yerine gider. F değeri zaten biliyorsun hızı ifade ediyor.
Code "G0 Z10" Buradaki z değeri ise sıfırladıktan sonra kaç mm yukarı kalkacağını gösteriyor.
PlateThickness = 0.5 ' burası sıfırlama yaptığın parçanın kalınlığı...! (ben 1 mm yazdım)
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P0.20"
Code "G31Z-40 F200"
While IsMoving()
Wend
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, PlateThickness)
Code "G4 P0.25"
Code "G0 Z10"
Code "(Z axis is now zeroed)"
Else
Code "(Z-Plate is grounded, check connection and try again)"
Exit Sub
End If
***Not: Code "G31Z-40 F200" Satırındaki -40 değeri Z eksenin parçayı arayacağı mesafeyi gösterir. Yani mach3 e Z eksenini sıfırla dedikten sonra 40 mm içinde parçaya dokunamazsa parça yok dokunamadım diyerek geri eski yerine gider. F değeri zaten biliyorsun hızı ifade ediyor.
Code "G0 Z10" Buradaki z değeri ise sıfırladıktan sonra kaç mm yukarı kalkacağını gösteriyor.