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.Appli cation")
objPPT.Visible = True ' set to display on top
Set objPresentation = objPPT.Presentations.Open(ppFi leName)
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.SlideShowWindo w.View.GotoSlide (s) 'show the next slide
sleep exposureTime
objPresentation.SlideShowWindo w.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/Mach...o_Prog_Ref.pdf
Si vous pourriez m'éclairé ce serait génial
merci
-----