Publicité
SetOEMDRO(1002, 10)
SetOEMDRO(1003, 9)
SetOEMDRO(1004, 1)
NotifyPlugins(3000)
' Attendte fin de palpage
While (GetOEMDRO(1000) = 0)
Wend
'Si succès, lancement de probe lent ver le haut
If (GetOEMDRO(1000) = 1) Then
ZProbe = GetOEMDRO(1001) ' Lecture de la position de palpage
else
Message ("Fin de probe avec erreur ")
End If
Scripts exemple de palpage Z:
Exemple 1 :
Descente de Z jusqu'à detection du capteur (dont la hauteur est de 30mm),
Initialisation du Zero pièce à la position de palpage + Hauteur capteur,
Remontée 10mm au dessus du palpeur
'Lancement de la commande de probe rapide vers le bas
SetOEMDRO(1000, 2) ' Numéro de l'axe ou faire le probe (0=X, 1=Y, 2=Z)
SetOEMDRO(1001, -90) ' Course maxi (le signe indique le sens de déplacement)
SetOEMDRO(1002, 20) ' Feed rate
SetOEMDRO(1003, 9) ' Numéro de l'entré de plapage (1 à 16
SetOEMDRO(1004, 1) ' état de l'entrée attendu (0 ou 1)
NotifyPlugins(3000)
' Attente fin de probe
While (GetOEMDRO(1000) = 0)
Sleep(10)
Wend
' Feed rate
' Numéro de l'entré de plapage (1 à 16)
' état de l'entrée attendu (0 ou 1)
23
Publicité
