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

  • Auteur de la discussion pokeral
  • Date de début
P

pokeral

Nouveau
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
 
A

Anbantoine64

Compagnon
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 ?
 
P

pokeral

Nouveau
oui bien il est testé ça fonctionne super
je voulais juste savoir si il y avait des possibiltés d'amelioration
 
T

Terranhunt

Apprenti
c'est tres interessant tout cela , merci Pokeral.
 

Sujets similaires

D
Réponses
0
Affichages
384
diabolomix
D
tgenial
Réponses
17
Affichages
3 623
dh42
dh42
G
Réponses
4
Affichages
1 265
dh42
dh42
01power
Réponses
3
Affichages
10 072
01power
01power
J
Réponses
0
Affichages
594
john123
J
V
Réponses
7
Affichages
1 298
dh42
esloch
Réponses
10
Affichages
2 018
sans
F
Réponses
1
Affichages
6 074
Uriel
Uriel
taratata
Réponses
4
Affichages
2 284
taratata
taratata
D
Réponses
9
Affichages
1 901
David80
D
taratata
Réponses
1
Affichages
915
taratata
taratata
N
Réponses
0
Affichages
965
N
Haut