Macros sous Mach 3

[etienne21]

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

 

[yiab]

bonjour,

pour l'instant, je vois ça

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

remplacer les " ‘ " par des " ' " (touche 4 minuscule)

j'ai essayé sous visual basic et avec ce symbole, ce qui est écrit n'est pas compté pour un commentaire

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

regarde si ça change quelque chose

cdlt

 

[etienne21]

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 !