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

test de script de mise a l'origine pièce

Discussion dans 'Mach' créé par pokeral, 10 Mars 2010.

  1. pokeral

    pokeral Nouveau

    Messages:
    5
    Inscrit:
    10 Mars 2010
    Localité:
    remiremont (88)
    test de script de mise a l'origine pièce
    je test un script maison pour mettre a l'origine pièce avec palpeur3D
    etant donné que je n'ai aucune butée
    j'ai ajouter un bouton sur l'ecran bleu machblue.set de blueprobever3
    et editer ce script

    (ceci est mon tout premier script il doit y avoir des ameliorations a faire)




    Rem VBScript To PROBING SETTING OFFSET (origine piece avec palpeur)
    Rem positioner le palpeur manuelement à environ 10mm de angle XY et environ 1mm de la surface en Z
    Rem une fois le Script terminé mettre les compteurs à zéro
    If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty ( regarde si le palpeur est pas en contact)
    Code "(Probe plate is grounded, check connection and try again)"
    Else FeedCurrent = GetOemDRO(818) 'Get the current settings(enregistre les differentes positions actuelles
    XCurrent = GetDro(0)
    YCurrent = GetDro(1)
    ZCurrent = GetDro(2)
    Code "G4 P1" 'Pause 1 second (pause 1 seconde)
    Code "F50" 'vitesse de recherche du palpeur
    Code "G0 Z +3" 'marge de securité
    Znew = Zcurrent - 6 'deplacement souhaité du palpeur en Z vers la pièce (il stoppera au contact de la pièce)
    Code "G31 Z" &Znew
    While IsMoving() ' attente du contact
    Wend Zpos1 = GetVar(2002) 'enregistre la position (contact avec la pièce)
    Code "G0 Z" &Zcurrent ' retourne a sa position d'origine rapidement
    Rem Probe Left ' deplacement rapide vers X
    Code "G0 Z +3"
    Code "G0 X -20"
    Code "G0 Z -3"
    XNew = Xcurrent + 0 'deplacement souhaité du palpeur en X vers la pièce (stoppera au contact de la pièce )
    Code "G31 X" &XNew
    While IsMoving() 'wait for the move to finish (attente du contact)
    Wend XPos1 = GetVar(2000) 'get the probe touch location ( enregistre la position ( contact avec la pièce))
    Code "G0 Z+3"
    Code "G0 X" &XCurrent 'rapid move back to start point
    Code "G0 Y-20"
    Code "G0 Z-3"
    Rem Probe up
    YNew = YCurrent + 0
    Code "G31 Y" &YNew
    While IsMoving()
    Wend
    YPos1 = GetVar(2001)
    Code "G0 Z+3"
    Code "G0 Y"&Ypos1 + 1.5 'Position en tenant compte diametre de la boule du palpeur(ici boule diametre = 3mm )
    Code "G0 X"&XPos1 + 1.5
    Code "G0 Z"&ZPos1
    Code "F" &FeedCurrent 'restore starting feed rate (remets la vitesse F a la normale )
    End If





    aimerai savoir ce que vous en pensez ?

    si posibilité d'amelioration
    A BIENTOT
     
  2. Anbantoine64

    Anbantoine64 Compagnon

    Messages:
    516
    Inscrit:
    20 Janvier 2009
    Localité:
    Aquitaine
    test de script de mise a l'origine pièce
    Salut, bienvenue sur le forum !

    Je ne connais pas le language de mach3 (au niveau de sa propre programmation) mais tu à l'air de t'y connaitre.

    Tu à tester ce script ?
     
  3. pokeral

    pokeral Nouveau

    Messages:
    5
    Inscrit:
    10 Mars 2010
    Localité:
    remiremont (88)
    test de script de mise a l'origine pièce
    oui bien il est testé ça fonctionne super
    je voulais juste savoir si il y avait des possibiltés d'amelioration
     
  4. Terranhunt

    Terranhunt Apprenti

    Messages:
    161
    Inscrit:
    17 Janvier 2009
    Localité:
    Villefranche Sur Saone
Chargement...
Articles en relation
  1. fxl126
    Réponses:
    8
    Affichages:
    3 636
  2. valentin
    Réponses:
    6
    Affichages:
    840
  3. geoteam77
    Réponses:
    6
    Affichages:
    1 543
  4. nicoyote
    Réponses:
    12
    Affichages:
    698
  5. v tec
    Réponses:
    70
    Affichages:
    2 362

Partager cette page