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