comment configurer capteur hauteur d'outil

[ch_porchet]

bonjour,
j ai un capteur d hauteur d outil qui fonctionne au contact electrique
mais je n'arrive pas a le faire fonctionner (screen mach3fr.com)
dans lônglet diag. j'ai la confirmation que si je touche l'outil avec le capteur le point s'allume,mais je n'arrive pas a faire que mach3 va de lui meme palper le capteur .il vas a bien a la position de capteur mais il plonge sens s'arreter au capteur,donc a chaque fois "arret d'urgence"!!!
qui peut m'aider ???

 

[ch_porchet]

Re: comment configurer capteur hauteur d outil

personne a un idee ??

 

[dyson]

il faut probablement éditer la macro et la modifier mais c'est du visual basic et perso je n'y connait rien.
Pour editer la macro du bouton, il faut aller dans "operateur" puis "éditer macro bouton" et cliquer sur le bouton qui commande la fonction palpeur d'outil.

 

[ch_porchet]

ok j'ai essayer en copiant une macro que j'ai trouver ,mais j'arrive pas a faire que le bouton garde cette macro,a chaque fois il remet l'ancienne.
et est ce quelqu'un sait ou on peut trouver la "légende" des commandes et des conditions pour les macro
est aussi comment faire que dans une macro le palpeur intervient

 

[dyson]

Il faut faire "fichier" puis "enregistrer" avant de quitter l'editeur de macro.

 

[ch_porchet]

ok je vais essayer ,mais au sujet des commande et condition dans les macros tu as une idee comme sa fonctionne

 

[dyson]

D'aprés le manuel de mach3, il existe un "manuel de customisation de Mach3" pour les macro.
Mais le site de artsoft est inaccessible pour le moment...

 

[ch_porchet]

ok merci, je vais voir si je trouve quelque chose
et je redis

 

[dyson]

le manuel est la:

http://www.artsoftcontrols.com/docs/Mach3_V3.x_Macro_Prog_Ref.pdf

 

[ch_porchet]

ben pfff.... y en a des pages et tous en anglais, sa vas etre super
bon bien je vais commencer a lire est merci !
mais si quelqu'un peut m'aiguiller un peu ,pas de soucis je suis preneur!

 

[ch_porchet]

C'est vraiment du chinoi pour moi
sa vas pas etre facile du tout cette histoire....

 

[valentin]

bonjour
cree un bouton avec le logiciel machscreen
ensuite tu met cette macro


Rem VBScript To probe In the z axis

If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'Pause 1 seconds to give time to position probe plate
PlateOffset = GetUserDRO(1001) 'Get plate offset DRO
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F50" 'slow down feedrate to 4 ipm

Rem Probe In the z direction
ZNew = GetDro(2) - 4 'probe move to current z - 2 inches
Code "G31Z" &ZNew
While IsMoving() 'wait for probe move to finish
Wend

ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew 'move back to hit point incase there was overshoot
While IsMoving ()
Wend

If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset) 'set the Z axis DRO to plate thickness
Code "G4 P1" 'Pause for Dro to update.
ZNew = PlateOffset +3
Code "G0 Z" &ZNew 'put the Z retract height you want here
Code "(Z axis is now zeroed)" 'puts this message in the status bar
End If

Code "F" &CurrentFeed 'Returns to prior feed rate
End If



+++++

 

[ch_porchet]

ok je vais essayer celci ,mais le bouton existe déjà je te met l'image
est je n arrive pas a changer le macro de se bouton,car j'ai essayer avec une autre.
d'ailleur tu arrive un peu a m'expliquer le principe de ta macro,car je suis novice dans le sujet.
c'est comme la "hauteur du palpeur" sur l'image c'est l'hauteur d'après quoi ,la pièce la table ou l origine machine?

 

[ch_porchet]

voici une photo de mon capteur
fonctionnement très simple ,la CNC est a la "masse" et le centre du capteur au "plus"
j'ai mis un ressort a l'interieur pour amortir un descente tros fors au cas ou..

 

[valentin]

bonjour
si je comprend bien
si tu appui sur le bouton
ou tu te trouve il se deplace au dessus du palpeur
et ensuite il descend et la il devrait sarrete au contact du palpeur
et affiche la hauteur que tu a entree

edite la macro avec Machscreen
et envoi nous le code
ou bien si tu as la version de mach3fr de Jbl(Mr dubois)
contacte le il te diras se que tu dois faire

+++

 

[ch_porchet]

oui presque ,je voudrais qu il corrige la hauteur d'outil
mon objectif c'est que je prenne l'hauteur de la pièce avec la fraise N°1 après avant de commencer l'usinage ,il vat controler l'hauteur de l'outil sur le palpeur et dès qu'il y a un changement d'outil ,il recontrole la hauteur du N°2 comme sa il peut ajuster le Z0 de la pièce.
ou alors il palpe la fraise N°1 juste avant je changement de la frais N°2 et il recontrole la frais N°2 avant de continuer l'usinage.

 

[ringuets]

Bonjour,il faut ouvrir le screen (.set) que tu utilise il se trouve dans le répertoire de mach avec Machscrenn ensuite tu sélectionne la page ou se trouve le bouton que tu veux modifier ,tu sélectionne ce bouton. Dans la fenêtre de droite tu double clic sur exécuter le code un éditeur va s'ouvrir copie cela en remplacement :
CurrentAbsInc = GetOemLED (48) 'Copy current G90/G91 state
CurrentGMode = GetOemDRO (819) 'Copy current G0/G1 state
CurrentFeed = GetOemDRO (818) 'Copy current feedrate
Contact = 0 'Clear the contact flag
PlateThickness = 0.0635 'Touch Plate thickness is set here
ProbeFeed = 10 'Probing feedrate is set here
SetVar (1,-3) 'Maximum probing distance is set here
SetVar (2,0.5) 'Retract height is set here
Code "M5" 'Ensures spindle is not running
Zs = GetOemDRO (61) 'Copy current Z-Scale DRO
Call SetOemDRO (61,1) 'Set Z-Scale DRO to 1
Label1: 'Entry point for Retry
DoOemButton (1010) 'Zero Z-Axis DRO
Code "(Setting Tool Zero)" 'Message for status bar
While IsMoving () 'Wait until task has been completed
Wend
If GetOemLED (825) = 0 Then 'Check to see if touch plate is already grounded
Code "G90 G31 Z #1 F" & ProbeFeed 'Probing move
While IsMoving () 'Wait until task has been completed
Wend
If GetOemLED (825) = True Then 'Check to see if probe has touched plate
Contact = 1 'Set the contact flag
End If
ProbePos = GetVar (2002) 'Exact point probe touched
Code "G0 Z" & ProbePos 'Go back to exact point of touch if there was any overrun
While IsMoving () 'Wait until task has been completed
Wend
Call SetDRO (2,PlateThickness) 'Set Z-Axis DRO to Touch Plate thickness
Code "G0 Z #2" 'Retract off Touch Plate the set distance
While IsMoving () 'Wait until task has been completed
Wend
Code "(Z-Axis is now Zeroed.)" 'Message for status bar
Code "F" & CurrentFeed 'Restore feedrate to original setting
If Contact = 0 Then 'Probe reached max travel without touching
Code "(ERROR - Probe did not touch.)" 'Message for status bar
Response = MsgBox ("ERROR - Probe did not touch.",37,"Auto Tool Zero")
If (Response = 4) Then 'User chose Retry
GoTo Label1 'Retry Probing routine
End If
End If
Else
Code "(ERROR - Touch Plate is grounded.)" 'Message for status bar
Response = MsgBox ("ERROR - Touch Plate is grounded - Check connection.",16,"Auto Tool Zero")
End If

Call SetOemDRO (61,Zs) 'Restore Z-Scale DRO to original setting
If CurrentAbsInc = 0 Then 'If G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then 'If G0 was in effect before then return to it
Code "G0"
End If

ferme la fenêtre en répondant oui enregistre le fichier ouvre mach et tout devrais fonctionner
salut

 

[ringuets]

re salut j'oubliais tu doit modifier : PlateThickness = 0.0635 'Touch Plate thickness is set here soit remplacer 0.0635 pour la hauteur de ton bloc
bonne chance

 

[ch_porchet]

merci je vais essayé,
je sais j'en demande un peu beaucoup mais peux tu mexpliquer dans les grandes lignes a quoi corespond les commande de cette macro ,car j'aime asser comprendre le pourquoi du comment

 

[ringuets]

salut cette macro te permet de placer ton outil a la position Z=0.00 il en existe pour placer ton outil sur un endroit précis tel que le bord X ou Y ou sur un coin en particulier. cette macro prend en note les visus de X,Y,Z ainsi que la vitesse ensuit a une vitesse moindre abaisse l'outil jusqu'à ce qu'il touche la base de contact et remonte d'une certaine distance ensuite règle les valeurs du visu Z a 0.00 en prenant compte de l'épaisseur de la base de contact et replace la vitesse du début c'est pour cela que tu doit modifier( PlateThickness = 0.0635 'Touch Plate thickness is set here) avec la hauteur de ta base
Salut

 

[ch_porchet]

Hello ringuets
j'ai enfin pu essayer ta macro ,elle ne vas pas correctement
je m'explique d'abord elle ne se decale pas sur le point ou il y a le capteur ,ensuite elle descent bien sur celui-ci ,mais ne s'arrette pas au contact (arret d'urgence)
et si je fais le teste a coté du capteur elle decent environ a la moitié de celui-ci est stop avec un default comme quoi elle ne pas touché le capteur,ce qui est vrai.
j'ai entré la hauteur de mon capteur soit 38.4000 qui est mesuré comme suit mis a zero la fraise sur ma table et ensuit touche le capteur jusqu'a la lumière s'allume dans la fenetre diagnostique ,est marque le chiffre inscrit dans Z .
donc je dois surment modifier quelque chose dans la macro mais je ne sait pas ou car je ne comprend les lignes de commande, donc peux tu m'expliquer se que je dois corriger .
Encore un grand merci

Christophe

 

[ch_porchet]

dite moi "Valentin et ringuets" est ce vous qui avez ecrit ces macro car si oui pouvez vous m'expliquer quesqu'elle veulent dire.
car les deux ne fonctionne pas mais je ne comprend pas pourquoi,donc si c'est vous qui les avez écris je peux peut etre comprende le principe est mieux comprendre ou est le problème.
et je ne parle que pour l'instant d'arriver a faire déplacer ma CNC sur le capteur ,de descendre de le toucher et de s'arreter au contact.
et après on verra pour la correction de hauteur.
merci de prendre un peu de temps pour me faire avancer ,biensur l'aide de tous le monde est bien venu

 

[ch_porchet]

bon j'ai refait unn essai ce soir
j'arrive a modifier une macro pour que ma CNC se place juste en dessus de mon capteur ,elle descent mais ne s'arrete pas au contact de celui-ci

voici la macro CurrentAbsInc = GetOemLED (48) 'Copy current G90/G91 state
CurrentGMode = GetOemDRO (819) 'Copy current G0/G1 state
CurrentFeed = GetOemDRO (818) 'Copy current feedrate
Contact = 0 'Clear the contact flag
POSPALPX = GETOEMDRO(1010) ' position du capteur axe X machine
POSPALPY = GetOEMDRO(1011) ' position du capteur axe Y machine
HPALPEUR = GETOEMDRO(1040) ' hauteur du capteur
HSECU = GETOEMDRO(1051) ' hauteur de securiter Z machine
PlateThickness = HPALPEUR 'Touch Plate thickness is set here
HSECU = GETOEMDRO(1051) ' hauteur de securiter Z machine
ProbeFeed = 10 'Probing feedrate is set here
SetVar (1,-3) 'Maximum probing distance is set here
SetVar (2,0.5) 'Retract height is set here
Code "M5" 'Ensures spindle is not running
CODE "G00 G53 Z"& HSECU 'degage Z a la hauteur de securité
WHILE ISMOVING()
WEND
CODE "G00 G53 X"& POSPALPX &" Y"& POSPALPY ' se potitionne en dessus du capteur
WHILE ISMOVING()
WEND
Zs = GetOemDRO (61) 'Copy current Z-Scale DRO
Call SetOemDRO (61,1) 'Set Z-Scale DRO to 1
Label1: 'Entry point for Retry
DoOemButton (1010) 'Zero Z-Axis DRO
Code "(Setting Tool Zero)" 'Message for status bar
While IsMoving () 'Wait until task has been completed
Wend
If GetOemLED (825) = 0 Then 'Check to see if touch plate is already grounded
Code "G90 G31 Z #1 F" & ProbeFeed 'Probing move
While IsMoving () 'Wait until task has been completed
Wend
If GetOemLED (825) = True Then 'Check to see if probe has touched plate
Contact = 1 'Set the contact flag
End If
ProbePos = GetVar (2002) 'Exact point probe touched
Code "G0 Z" & ProbePos 'Go back to exact point of touch if there was any overrun
While IsMoving () 'Wait until task has been completed
Wend
Call SetDRO (2,PlateThickness) 'Set Z-Axis DRO to Touch Plate thickness
Code "G0 Z #2" 'Retract off Touch Plate the set distance
While IsMoving () 'Wait until task has been completed
Wend
Code "(Z-Axis is now Zeroed.)" 'Message for status bar
Code "F" & CurrentFeed 'Restore feedrate to original setting
If Contact = 0 Then 'Probe reached max travel without touching
Code "(ERROR - Probe did not touch.)" 'Message for status bar
Response = MsgBox ("ERROR - Probe did not touch.",37,"Auto Tool Zero")
If (Response = 4) Then 'User chose Retry
GoTo Label1 'Retry Probing routine
End If
End If
Else
Code "(ERROR - Touch Plate is grounded.)" 'Message for status bar
Response = MsgBox ("ERROR - Touch Plate is grounded - Check connection.",16,"Auto Tool Zero")
End If

Call SetOemDRO (61,Zs) 'Restore Z-Scale DRO to original setting
If CurrentAbsInc = 0 Then 'If G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then 'If G0 was in effect before then return to it
Code "G0"
End If


elle me pose 3 problemes
1 elle descent est s'arret juste en dessus du capteur
2 je la relance(je suis en mode pas a pas) et la elle ecrase le capteur sans s'arreter ,donc arret d'urgence
3 je dois effacer le dernier "End If" pour quelle fonctionne
qui peut m'expliquer ,ce que je dois faire pour que sa joue.

 

[valentin]

bonjour
normalement ces macro marche
as tu bien valider la case probe dans config ?

 

[ch_porchet]

je crois que oui j'ai du configurer correctement.
enfin je vais regarder cela.

 

[ch_porchet]

j'ai peut etre un début de piste pour mon problème !!
je ne peut pas mettre "active low " car moi mon principe c'est quand la fraise touche mon capteur sa " ferme" et non "ouvre"
le contact
j'ai essayé d'inverser les valeurs ma cela ne vas pas

 

[valentin]

bonjour
active low na rien a voir
il suffit quil a un changement de contact
essai de mettre mon set joint 1024copie.set
menu view load screen

et vois quand tu appui sur le palpeur
si la lumiere verte clignote
dans menu setting

++ Voir la pièce jointe 1024 Copie.zip

 

[ch_porchet]

alors si je touche le capteur ,dans setting je vois rien ,mais par contre c'est le bouton vert dans "jauge Z"dans offset qui s'allume

 

[ch_porchet]

hello
alors je suis arriver a faire un changement de statut du palpeur .
par contre je dois modifier l'entrée du capteur, je le met plus sur "palpeur" ,mais sous "entrée 1"
j'ai fais le teste avec cette macros

If IsActive(input1) then
Message "capteur actif"
Else
Message"capteur pas actif"
end if
donc si ma fraise ne touche pas cela marque capteur pas actif

Maitenant comment mettre cette commande "If IsActive(input1) then"
dans une macro pour modifier la hauteur d'outil

 

[ch_porchet]

j'ai une petite question,
est-il possible de faire que le capteur d'outil soit un fin course maxi Z machine
exemple :maxi z + hauteur de capteur=niveau de la table
comme ça c'est peut etre plus simple de faire une différence entre deux outils