1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.

Macros sous Mach 3

Discussion dans 'Mach' créé par etienne21, 24 Janvier 2013.

  1. etienne21

    etienne21 Nouveau

    Messages:
    5
    Inscrit:
    24 Janvier 2013
    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 :)
     
    Dernière édition par un modérateur: 16 Avril 2015
  2. yiab

    yiab Apprenti

    Messages:
    242
    Inscrit:
    23 Février 2011
    Localité:
    St nazaire
    Macros sous Mach 3
    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 :shock:

    cdlt
     
  3. etienne21

    etienne21 Nouveau

    Messages:
    5
    Inscrit:
    24 Janvier 2013
    Macros sous Mach 3
    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 !
     
Chargement...
Articles en relation
  1. ch_porchet
    Réponses:
    96
    Affichages:
    13 730
  2. dsmx
    Réponses:
    2
    Affichages:
    892
  3. esloch
    Réponses:
    2
    Affichages:
    421
  4. abxo
    Réponses:
    2
    Affichages:
    407
  5. jnbatisse
    Réponses:
    15
    Affichages:
    1 381

Partager cette page