Macros sous Mach 3

Bonjour, je travaille actuellement sous mach3 Logiciel de commande numérique.
Je voudrais apporter une modification sur ce fichier macros .M1S
voici le code : ( pour imprimante 3D dlp )

Il lance un diaporama powerpoint
il ya une tempos de 30 sec par image
puis il fait monter et descendre l'axe Z

Je voudrais que la sortie N°2 soit commander en même temps que l'axe Z monte et lorsque laxe Z redescend je désactive 2

Option Explicit

'Change the constant values below to suit - make sure your Powerpoint file is .pps
'*****************************************************************
Const ppFileName As String = "C:\My Documents\my slideshow.pps"
Const ZStartPoint As Double = 0.0 'where Z starts from
'*****************************************************************

Dim numSlides As Integer
Dim exposureTime As Integer
Dim ZIncrement As Double
Dim s As Integer

' User inputs for variables

NumSlides = 15
exposureTime = 28000 ' in ms
ZIncrement = .005

Dim objPPT
Dim objPresentation

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True ' set to display on top

Set objPresentation = objPPT.Presentations.Open(ppFileName)

Code "G90" 'absolute distance mode

Code "G0 Z" & ZStartPoint 'start Z at wherever
While IsMoving()
sleep 10
Wend

Code "G91" 'incremental distance mode

SetFeedRate(5/60) ' feedrate 5 inches/minute set as appropriate

For s=1 To numSlides

objPresentation.SlideShowWindow.View.GotoSlide (s) 'show the next slide

sleep exposureTime

objPresentation.SlideShowWindow.View.GotoSlide (1) ' show slide 1 blank slide


ActivateSignal (OUTPUT2) ‘ Turn on Flux Capacitor
Sleep(1000) ‘ Give it time to charge
fully
DeactivateSignal (OUTPUT2) ‘ Turn it off


Code "G1 Z" & ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement 'lift Z a couple of tads
Code "G4 P1"
While IsMoving()
sleep 10
Wend
(commande a intégrée pour la sortie 2 )
Code "G1 Z-" & ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement + ZIncrement 'lower Z a tad
While IsMoving()
sleep 10
Wend

Sleep 1000 ' this value adds a delay before the next slide is displayed

Next

Code "G90" 'back to absolute distance mode

objPresentation.Close

objPPT.Quit



voici la commande que je voudrais intégrée

ActivateSignal (OUTPUT2) ‘ Turn on Flux Capacitor
Sleep(1000) ‘ Give it time to charge
fully
DeactivateSignal (OUTPUT2) ‘ Turn it off

il déclare un problem un fois cette commande intégré

voila toute le langages http://www.machsupport.com/docs/Mach3_V3.x_Macro_Prog_Ref.pdf

Si vous pourriez m'éclairé ce serait génial

merci

comment passer pour un blaireaux en une étape .....
un grands MERCI !!
sa marche comme je veut
je n'aurais jamais pensé a ça car jais fait un copier coller depuis la base des commande de mach3

c'est juste pour une commande de verin d’inclinaison qui me décole ma résine sur une imprimante 3D

A bientôt !