Deux problèmes à résoudre (vbs)

Bonjour

Je cherche à faire un bouton accompagner d'une visu

petit 1 : déplacement à l'endroit du palpeur
petit 2 : descente de Z et contact du palpeur
petit 3 : remonter de la hauteur de la visu (que je détermine)
petit 4 : remises à zéro de la position Z (sans déplacement)
petit 5 : retour à une position X et Y


If IsSuchSignal (22) Then

DoSpinStop()

Fcurr = GetParam("FeedRate")
hauteur_outil=GetOEMDRO(1600) <-- Visu

Code "G0 Y12 X14"
code "G4 P2"

While IsMoving()
Wend

code "G53 Z-60"

While IsMoving()
Wend

tmp = (GetParam("ZDRO")-100)

code "G31 z" & tmp & "F80"
While IsMoving()
Wend

Call SetDRO( 2,GetUserDRO(1600)) <- Visu

SetParam("FeedRate",Fcurr)
code "G0 Z" & hauteur_outil
code "G0 Y20"
Code "M3 G4 P0.5"
Code "M5"

While IsMoving()
Wend
code "G92 Z0"
While IsMoving()
Wend
End If



Mon second problème, je voudrais faire un compteur qui me compte le nombre de perçage cumulés durant l'année.
J'ai une piste pour le compteur, mais je ne suis pas sûr que cela fonctionneras, et de comment le faire :
Je créer un axe virtuel "A" et dans mon programme chaque descente de "Z" envoie une impulsion dans l'axe émuler "A"
De ce fait je pense pouvoir le récupérez, dans les options machines de Mach3 qui compte les longueurs de déplacement.
Une impulsion = un trou

Je ne sais pas du tout comment faire.


Merci de votre aide

Cordialement