macro lubrification

bonjour

je fait suite au post http://www.metabricoleur.com/t23707-activer-ou-desactiver-macropump-m1s#460935, qui n'utilise pas la macro : macropump.m1s de mach3 mais une fonction plus appropriée faisant partie du fichier :macro prog reference: StartPeriodicScript

dans un 1er temps, j'ai créée une macro de lancement que j'ai appelé M301
cette macro peux être lancé soit par un bouton soit par appel dans le gcode

Code:


StartPeriodicScript("macros\Mach3Mill\lub", 15)

Do While IsPeriodicScriptRunning("macros\Mach3Mill\lub") = false
 msgbox "Script de periodicite pour la lubrification : OFF",64,"Ferme"
 exit do
loop

Do While IsPeriodicScriptRunning("macros\Mach3Mill\lub") = true
 msgbox "Script de periodicite pour la lubrification : ON",64,"Ouvert"
 exit do
loop


ensuite j'ai créée la macro lub.m1s qui vérifie si le script de périodicité est lance et ouvre et ferme le relais #4
fonction des variables ouvert et ferme

Code:


Const OEMButtonFloodToggleOnOff = 113

dim ouvert,ferme

ouvert = 10000 'Ms
ferme = 5000   'Ms

ActivateSignal (OUTPUT4)
Sleep(500)

If IsPeriodicScriptRunning("macros\Mach3Mill\lub") then
 do
 DoOEMButton(OEMButtonFloodToggleOnOff)
 Sleep(ferme)
 'message "ouvert pendant : " & ouvert
 DoOEMButton(OEMButtonFloodToggleOnOff)
 Sleep(ouvert)
 'message "ferme pendant : " & ferme
 loop until IsPeriodicScriptRunning("macros\Mach3Mill\lub") = true

End If


une fois l'usinage terminé, j'appel une macro M300 placé en fin du gcode, qui stop le script de périodicité, ferme le relais de la lub et clos le programme (M30)

Code:


'DoSpinStop()

StopPeriodicScript("macros\Mach3Mill\lub")

If StopPeriodicScript("macros\Mach3Mill\lub") then
  Msgbox "Script de periodicité fermé",64,"ferme"
Else
  Msgbox "Erreur, Le script de periodicité ne c'est pas fermé correctement",48,"Oups!!!"
End If

Do While IsOutputActive(OUTPUT4) = true
 DeActivateSignal(OUTPUT4)
 Sleep(100)
 Msgbox "Relais #4 de lubrification fermé",64,"Relais #4"
 code "M30"
 exit do
Loop


je pense qu'il demande à être améliorer, mais je débute avec les macros et le VBS alors toutes les remarques sont bonnes à prendre

++
gilles