Broche à changement d'outil automatique ou semi automatique

**remi2103** Mer 27 Jan 2021 - 16:05

Bonjour,

en Juillet j'ai remis en route une BZT 1012px http://www.metabricoleur.com/t19376-moi-aussi-je-remet-en-route-une-bzt-pfe-1012-px
tout fonctionne très bien, a part le graissage ou je m'en sors pas.

Je cherchais à remplacer ma broche chinoise 2.2Kw
J'utilise souvent 2 ou 3 outils voir plus, donc dans l'idéal j'aimerai mettre un ATC mais je sais pas si c'est possible ? je n'arrive pas a trouver de sujets traitant de ça ici.

et à défaut même une broche "semi-automatique", je sais pas si ça existe,
l'idée serait de ne pas avoir à refaire mes zéro à chaque fois, comme si on avait des cone d'un atc avec des fraises dont la hauteur est déja connue par le system et on échangerai les cones manuellement.

Merci d'avance

WF Mer 3 Fév 2021 - 15:39

Bonjour
voila j ai pondu un petit PDF pour expliquer ce que j ai compris du changement d outils automatique on a une machine 1200x1200 avec 8 outils
voila je vous joint ce document concernant les outils et le zéro
j aimerai bien que vous n hésitez pas à critiquer ce document
j ai écris des macros grâce DH42 pour le changement d outils cela fonctionne
celle pour la mesure auto des outils est écrite mais pas vérifier sur la machine ( j ai choppé la crève )
la vidéo du chgt ATC https://www.youtube.com/watch?v=DVbPlZq7XsU
j ai joint la macro M6 start ( les trois premier outils sont nickel OK
on doit valider les positions des 5 restant on rehausse les berceaux
à bientôt

**dh42** Mer 3 Fév 2021 - 15:50

Salut,

J'utilise souvent 2 ou 3 outils voir plus, donc dans l'idéal j'aimerai mettre un ATC mais je sais pas si c'est possible ? je n'arrive pas a trouver de sujets traitant de ça ici.

Possible, oui, c'est surtout une question de budget ... What a Face

++
David

**remi2103** Mer 3 Fév 2021 - 15:53

WF a écrit:Bonjour
voila j ai pondu un petit PDF pour expliquer ce que j ai compris du changement d outils automatique on a une machine 1200x1200 avec 8 outils
voila je vous joint ce document concernant les outils et le zéro
j aimerai bien que vous n hésitez pas à critiquer ce document
j ai écris des macros grâce DH42 pour le changement d outils cela fonctionne
celle pour la mesure auto des outils est écrite mais pas vérifier sur la machine ( j ai choppé la crève )
la vidéo du chgt ATC https://www.youtube.com/watch?v=DVbPlZq7XsU
j ai joint la macro M6 start ( les trois premier outils sont nickel OK
on doit valider les positions des 5 restant on rehausse les berceaux
à bientôt

ok super ça a l'air de bien marcher.
Je ne sais pas récupérer les fichiers ? je maitrise pas trop le forum.
tu peux m'expliquer stp ?

WF Mer 3 Fév 2021 - 16:12

Oups j ai oublié de compressé la macro M6 start

Code:: 'ToolChange Macro For Bed type tool changer 11/05 Brian et06/20 WF Sub Main() Code "M9" 'STOP L ARROSAGE ' DoSpinStop() ' STOP LA SPINDLE Code"M80" ' ACTIVE LA SORTIE 7 REMONTE LE CACHE POUSSIERE et allume la led SetUserLED(1919,1) ' allume la led changement d outils en cours x = GetToolChangeStart( 0 ) y = GetToolChangeStart( 1 ) z = GetToolChangeStart( 2 ) a = GetToolChangeStart( 3 ) b = GetToolChangeStart( 4 ) c = GetToolChangeStart( 5 ) tool = GetSelectedTool() NewTool = tool OldTool = GetOEMDRO (824) ' ENREGISTRE LE N° DE L OUTILS DANS LA BROCHE 'Tool Changer Macro (Bed Type) MaxToolNum = 8 'Maximum d outils pour le rack ToolDown = -237.3156 'Z-237.3156 bas position pour prendre ou relacher les outils dans le rack ToolUp = -50 'Z haut de secu pour les deplacement au dessus table et rack Yprepa = 1000 'Y position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Ypos = 1176.33 'Y position à fond de berceau pour prendre ou relacher l outils ' If NewTool= OldTool Then ' si Newtool est egale à OldTool alors ' MsgBox("***tttt OOOO ***Pas de Changement d 'outils ou erreur de N° *** OOOO ***") 'Exit Sub ' sortie du sous programme ' End If If NewTool = 0 Or NewTool= OldTool Then ' si Newtool est egale à OldTool alors MsgBox("*** OOOO ***Pas de Changement d 'outils ou erreur de N° *** OOOO ***") Exit Sub ' sortie du sous programme End If If NewTool > MaxToolNum Then ' si Newtool est egale à OldTool alors MsgBox("*** OOOO ***Pas de Changement d 'outils ou erreur de N° *** OOOO ***") Exit Sub ' sortie du sous programme End If Code " G53 Z" & ToolUp ' va a grande vitesse en Z secu coordonnées Machine While IsMoving() ' tant que ça bouge Wend 'fin du mouvement Call MovePos(OldTool) '**** appel MovePos(OldTool) coordonnées Machine des outils While IsMoving() ' tant que ça bouge Wend 'fin du mouvement Code "G53 Z" & ToolDown 'va à Z position pour relacher les outils dans le rack Code "G53 Y"& Ypos 'va à Y position à fond de berceau pour prendre ou relacher l outils Sleep (800) ' temporisation 800 mili seconde While IsMoving() Wend ActivateSignal(Output7) 'active la sortie 7 ( machoires) pour relacher l'outils Sleep (500) 'attend 3 secondes pour relacher l'outils + jet d air chasse copeaux Code "G53 Z" & ToolUp ' va en Z secu coordonnées Machine Call MovePos(NewTool) '**** appel MovePos(NewTool)coordonnées Machine des outils While IsMoving() Wend Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack Code "G53 Y" & Ypos 'Y position à fond de berceau pour prendre ou relacher l outils Code "G53 Z" & ToolDown 'Z bas position pour prendre ou relacher les outils dans le rack Sleep (800) ' temporisation 800 mili seconde While IsMoving() ' tant que ça bouge Wend DeActivateSignal(Output7) 'desactive la sortie 7 de la carte Sleep (800) ' temporisation 800 mili seconde fermeture des machoires sortie 7 While IsMoving() 'tant que ça bouge Wend Code "G53 Y" & Yprepa 'Y position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack While IsMoving() ' tant que ça bouge Wend Call SetUserDRO (24,NewTool) SetCurrentTool( NewTool ) Code "G43 H" & NewTool 'prend compte la difference de longueur d outils par rapport à l'outils N°1 qui reference ' et avec lequel on fait le zero piece Code "G00 X" & x & " Y" & y 'retourne aux positions x et y qui ont ete enregistre au debut de la macro While IsMoving() 'tant que ça bouge Wend Sleep (800) 'temporisation 2secondes attente descente cache poussiere DeActivateSignal(Output6) 'desactive la sortie 5 cache poussiere en bas SetUserLED(1919,0) ' eteint la led changement d outils en cours End Sub Sub MovePos(ByVal ToolNumber As Integer) ' EN COORDONNEES MACHINE Select Case ToolNumber ' COORDONNEES X ET Y DES OUTILS SELON LEUR N° Case Is = 1 ' VALEUR X ET Y de l outils N°1 sur le rack Xpos = 427.2687 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 2 Xpos = 540.6375 'ok Yprepa =1080 'ok YPos = 1186.325 'ok Case Is = 3 Xpos = 645.8187 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 4 Xpos = 771.82 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 5 Xpos = 885.60 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 6 Xpos = 998.28 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 7 Xpos = 1115.72 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 8 Xpos = 1227.27 Yprepa = 1080 'ok YPos = 1186.325 'ok End Select Code "G53 Y" & Yprepa 'ok Sleep (400) ' temporisation 400 mili seconde While IsMoving() Wend Code "G53 X"& XPos 'ok Sleep (400) ' temporisation 400 mili seconde While IsMoving() Wend End Sub Main

concernant la machine avec ATC il faut
de l air comprimer environs 6 bar mini avec une broche chinoise
de l eau pour refroidir la broche nous on a un cageot plastique avec une pompe a eau
matos chinois
puis sur ta carte BOB il faut une sortie commande relais mâchoires pour l 'ouverture
une sortie commande relais pour les vérins du pare poussière copeaux balais
il faut des 2 entrées pour vérifier les états des mâchoires ouvertes ou fermées
il faut aussi une une entrée pour vérifier la position haute ou basse du pare poussière
copeaux balais
bien sur un VFD pour contrôler la vitesse de la broche
il faut aussi du temps pour régler tout ça mais c 'est super passionnant
à bientot

WF Mer 3 Fév 2021 - 16:59

moi aussi je maitrise mal le site j e viens de retrouver le schéma elec / air pour la broche
je vais remettre les deux macros dans un autre message
concernant la carte bob moi j ai une xhc carte chinoise mais demande à DH42 il ya des carte beau coup mieux et sans virus j ai plein de virus dans le cd du driver de la carte

WF Mer 3 Fév 2021 - 17:07

fichier m6start soit dans la fenetre blanche tu selectione le code et tu copy
soit il ya un carre orange avec deux lacet entrecroisé et tu telecharge le fichier

Code:: 'ToolChange Macro For Bed type tool changer 11/05 Brian et06/20 WF Sub Main() Code "M9" 'STOP L ARROSAGE ' DoSpinStop() ' STOP LA SPINDLE Code"M80" ' ACTIVE LA SORTIE 7 REMONTE LE CACHE POUSSIERE et allume la led SetUserLED(1919,1) ' allume la led changement d outils en cours x = GetToolChangeStart( 0 ) y = GetToolChangeStart( 1 ) z = GetToolChangeStart( 2 ) a = GetToolChangeStart( 3 ) b = GetToolChangeStart( 4 ) c = GetToolChangeStart( 5 ) tool = GetSelectedTool() NewTool = tool OldTool = GetOEMDRO (824) ' ENREGISTRE LE N° DE L OUTILS DANS LA BROCHE 'Tool Changer Macro (Bed Type) MaxToolNum = 8 'Maximum d outils pour le rack ToolDown = -237.3156 'Z-237.3156 bas position pour prendre ou relacher les outils dans le rack ToolUp = -50 'Z haut de secu pour les deplacement au dessus table et rack Yprepa = 1000 'Y position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Ypos = 1176.33 'Y position à fond de berceau pour prendre ou relacher l outils ' If NewTool= OldTool Then ' si Newtool est egale à OldTool alors ' MsgBox("***tttt OOOO ***Pas de Changement d 'outils ou erreur de N° *** OOOO ***") 'Exit Sub ' sortie du sous programme ' End If If NewTool = 0 Or NewTool= OldTool Then ' si Newtool est egale à OldTool alors MsgBox("*** OOOO ***Pas de Changement d 'outils ou erreur de N° *** OOOO ***") Exit Sub ' sortie du sous programme End If If NewTool > MaxToolNum Then ' si Newtool est egale à OldTool alors MsgBox("*** OOOO ***Pas de Changement d 'outils ou erreur de N° *** OOOO ***") Exit Sub ' sortie du sous programme End If Code " G53 Z" & ToolUp ' va a grande vitesse en Z secu coordonnées Machine While IsMoving() ' tant que ça bouge Wend 'fin du mouvement Call MovePos(OldTool) '**** appel MovePos(OldTool) coordonnées Machine des outils While IsMoving() ' tant que ça bouge Wend 'fin du mouvement Code "G53 Z" & ToolDown 'va à Z position pour relacher les outils dans le rack Code "G53 Y"& Ypos 'va à Y position à fond de berceau pour prendre ou relacher l outils Sleep (800) ' temporisation 800 mili seconde While IsMoving() Wend ActivateSignal(Output7) 'active la sortie 7 ( machoires) pour relacher l'outils Sleep (500) 'attend 3 secondes pour relacher l'outils + jet d air chasse copeaux Code "G53 Z" & ToolUp ' va en Z secu coordonnées Machine Call MovePos(NewTool) '**** appel MovePos(NewTool)coordonnées Machine des outils While IsMoving() Wend Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack Code "G53 Y" & Ypos 'Y position à fond de berceau pour prendre ou relacher l outils Code "G53 Z" & ToolDown 'Z bas position pour prendre ou relacher les outils dans le rack Sleep (800) ' temporisation 800 mili seconde While IsMoving() ' tant que ça bouge Wend DeActivateSignal(Output7) 'desactive la sortie 7 de la carte Sleep (800) ' temporisation 800 mili seconde fermeture des machoires sortie 7 While IsMoving() 'tant que ça bouge Wend Code "G53 Y" & Yprepa 'Y position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack While IsMoving() ' tant que ça bouge Wend Call SetUserDRO (24,NewTool) SetCurrentTool( NewTool ) Code "G43 H" & NewTool 'prend compte la difference de longueur d outils par rapport à l'outils N°1 qui reference ' et avec lequel on fait le zero piece Code "G00 X" & x & " Y" & y 'retourne aux positions x et y qui ont ete enregistre au debut de la macro While IsMoving() 'tant que ça bouge Wend Sleep (800) 'temporisation 2secondes attente descente cache poussiere DeActivateSignal(Output6) 'desactive la sortie 5 cache poussiere en bas SetUserLED(1919,0) ' eteint la led changement d outils en cours End Sub Sub MovePos(ByVal ToolNumber As Integer) ' EN COORDONNEES MACHINE Select Case ToolNumber ' COORDONNEES X ET Y DES OUTILS SELON LEUR N° Case Is = 1 ' VALEUR X ET Y de l outils N°1 sur le rack Xpos = 427.2687 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 2 Xpos = 540.6375 'ok Yprepa =1080 'ok YPos = 1186.325 'ok Case Is = 3 Xpos = 645.8187 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 4 Xpos = 771.82 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 5 Xpos = 885.60 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 6 Xpos = 998.28 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 7 Xpos = 1115.72 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 8 Xpos = 1227.27 Yprepa = 1080 'ok YPos = 1186.325 'ok End Select Code "G53 Y" & Yprepa 'ok Sleep (400) ' temporisation 400 mili seconde While IsMoving() Wend Code "G53 X"& XPos 'ok Sleep (400) ' temporisation 400 mili seconde While IsMoving() Wend End Sub Main

WF Mer 3 Fév 2021 - 17:10

et voila la mesure d outils auto

Code:: 'elle commence par mesurer l'outils maître, puis vous pouvez mesurer maximum 8 d’outils ou moins. ' elle effectue 2 palpages pour chaque longueur d' outils pour augmenter la precision on divise l'erreur par 2 'OUTPUT6 sortie balais cache poussieres OUTPUT7 clamps machoire dans la broche qui bloquent les outils Sub Main() '**************** PREPARATION ************************ Code "M9" ' STOP L ARROSAGE DoSpinStop() ' STOP LA SPINDLE Code " M80" ' macro remonte le balais cache poussiere et allume la led balais haut MaxToolNum = 8 'Maximum d outils pour le rack support ToolDown = -237.3156 'Z -237.3156 bas position pour prendre ou relacher les outils dans le rack ToolUp = -50 'Z-50 haut de secu pour les deplacements au dessus table et rack Yprepa = 1080 'Y1080 position pour la descente du porte outils permettant encliquement dans les rainures des berceaux du rack Ypos = 1186.325 'Y1186.325 position à fond de berceau pour prendre ou relacher l outils XpalF = 141.1 '***à verifier *** 'X position palpeur fixe en X YpalF = 1165.8 '***à verifier *** 'Y position palpeur fixe en Y Zprepapalp = -160 'Z approche du palpeur fixe le dessus étant à -210mm course max G31 40mm Zpalp = -197 ' VIP arret10mm audessus du palpeur Z valeur de la course de descente recherche du contact NewTool = Tnum 'le numero du nouvel outils = le n° d outils dans la table d 'outils OldTool = GetOEMDRO (824) 'enregistre le numero d 'outils dans la broche Tnum= 1 'numero 1 outils maitre reference tool = GetSelectedTool() NewTool = tool MachMsg (" VIP ***Les cote du rack porte outils deT4 à T8 + palpeur fixe X et Y sont à verifier *** ","", 1)' à supprimez apres les cotes ' REM **verifications avant depart du cycle** If IsOutputActive(OUTPUT6) Or IsActive(INPUT3) Then ' verifie que les balais sont en haut MsgBox ("**** LE PARE POUSSIERE DOIT ETRE EN HAUT **** ") Exit Sub End If If Oldtool<>0 Then ' si le N° d outils est different de zero alors MsgBox(" *** la Broche doit etre VIDE Pas d'Outils ***") ' verifie que la broche soit vide Exit Sub End If MachMsg ("Prêt à exécuter le réglage de L'OUTILS MAITRE N°1 BROCHE VIDE SANS OUTILS < tool information =0> ET Ok", "OUTILS MAITRE", 1) If Ret= 2 Then 'si Ret=2 reponse =non alors fin du programme MsgBox("**** ERREUR N° D'OUTILS = BROCHE VIDE Tool N°0 **** ") Stop End If '************************************* REM VA CHERCHER L OUTILS N°1 MAITRE ************************ SetUserLED (1919,1) ' Allume LA LED 1919 TOOL CHANGE EN COURS NewTool = 1 'numero 1 outils maitre reference Code "F1000" Code "G0G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack Call MovePos(NewTool) ' appel MovePos(NewTool)coordonnées Machine des outils en bas du programme While IsMoving() ' tant que ça bouge Wend Code "F1000" 'avance 1000m/mn Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack Code "F500" 'avance 500m/mn Code "G53 Y" & Ypos ' va en fond de berceau Code "F1000" 'Y position à fond de berceau pour prendre ou relacher l outils ActivateSignal(OUTPUT7) 'active la sortie 7 (ouvre machoires) pour relacher l'outils Sleep(500) 'temporisation 2ms pour relacher l'outils + jet d air chasse copeaux Code "F400" Code "G53 Z" & ToolDown 'Z bas position pour prendre ou relacher les outils dans le rack Sleep(800) ' temporisation 2 secondes While IsMoving() ' tant que ça bouge Wend DeactivateSignal(OUTPUT7) 'desactive la sortie 7 ferme les machoires Sleep(800) 'temporisation 1.50 seconde attente fermeture des machoires sortie 5 Code "F400" 'avance 400m/mn Code "G53 Y" & Yprepa 'Y position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Sleep(800) 'temporisation 0.8 seconde Code "F1000" 'avance 1000m/mn Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack Code "F800" 'avance 800m/mn Code "G53 X"& XpalF &"Y"&YpalF Code "F400" Code "Z" & Zprepapalp 'va audessus du palpeur fixe etdescend à -160mm While IsMoving() ' tant que ça bouge Sleep (200) Wend '****** Rem MESURE DE L OUTILS N°1 MAITRE ************************ SetOEMDRO (824, NewTool) ' ecrit le ° du nouvel outils Sleep(500) 'temporisation 200ms pour ecrire dans la visu le n°d'outils 'Code"G90" ' MsgBox("je suis 0") ' message pour debugage Code "G31 Z"& Zpalp &"F 60" ' descente sur le palpeur jusqu'a -197mm avance F=60 While IsMoving ( ) 'tant que ça bouge Sleep(800) 'tempo 100 ms Wend ' MsgBox("je suis 1") ' message pour debugage A= GetOEMDRO (802) 'A= GetDRO(2) valeur visu z =A Sleep (600) 'tempo 100ms pour lire la valeur Z S = A + 20 ' ajoute 20mm à la valeur A Code "F400" 'avance 400m/mn 'MsgBox("je suis 2") ' message pour debugage Code "G0 Z"& S 'S remonte de20mm au dessus de la sonde While IsMoving ( ) 'tant que ça bouge Wend Sleep (500) 'tempo 400ms ' MsgBox("je suis 3") ' message pour debugage Code "G31 Z"& Zpalp &"F 20" 'descente sur le palpeur jusqu'a -197mm avance F=20 mm/mn While IsMoving ( ) 'tant que ça bouge Sleep(800) 'tempo 200ms Wend Sleep (500) 'tempo 1s ' MsgBox("je suis 4") ' message pour debugage Hb = GetOEMDRO (802) ' lit la valeur de Z L = ( A + Hb ) / (2) ' calcul valeur moyenne de Z divise l'erreur de mesure par 2 Sleep (500) 'temporisation 0.5 secondes SetOEMDRO (802, 0.00) ' passe à zero visu Z Sleep (2500) 'temporisation 2.5 secondes ' MsgBox("je suis 6") ' message pour debugage Tlo = GetOEMDRO (802) ' valeur de z=0 Tlo = GetDro(2) Sleep (500) 'temporisation 2 secondes SetToolParam(Tnum,2,Tlo) ' ecrit la longueur z de l outils n°1= Tnum dans la table d outils 2 etant la longueur outils valeur Tlo Sleep (800) 'tempo 2 s pour ecriture dans la tool table Code"F1000" ' avance 1000 mm/mn Code "G0 G53 Z" & ToolUp ' va a grande vitesse en Z secu coordonnées Machine While IsMoving() ' tant que ça bouge Wend N1: 'ROUTINE nom de la routine N1: ********************************************* '************* PREPARATION de N1: ********** SetUserLED (1919,1) ' Allume LA LED 1919 TOOL CHANGE EN COURS OldTool = GetOEMDRO(824) 'lit le n° de l outils dans la broche le vieil outils NewTool= NewTool +1 ' ajoute 1 à la numerotation du nouvel outils Tnum = NewTool 'numerotation du nouvel outils DeactivateSignal(OUTPUT6) 'remonte les balais anti-projection en haut If IsOutputActive(OUTPUT6) Or IsActive(INPUT3) Then ' verification balais haut sur verin et sur le contact de retour MESSAGE("**** LE PARE POUSSIERE DOIT ETRE EN HAUT **** ") ' message en cas de balais bas Stop End If Ret = MachMsg ("Etes-vous prêt pour le réglage de l’outil suivant?", "OUTILS SECONDAIRES",1) If Ret=2 Or NewTool>8 Then ' si Ret=2 reponse NON=2 ou outils superieur à 8 alors fin du programme MsgBox(" 0000 **** **** ARRET DES MESURES **** **** 00000 ") ' message de fin de mesure MsgBox("**** FAIRE LE ZERO SUR LA PIECE AVEC L 'OUTILS T1 MAITRE ***") 'message de rappel faire zero sur piece Stop End If Call MovePos(OldTool) ' Appel MovePos(OldTool) coordonnées Machine des vieux outils While IsMoving() ' tant que ça bouge Wend 'fin du mouvement Code "G53 Y" & Yprepa 'Yprepa position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Code "F400" Code "G53 Z" & ToolDown 'va à Z position pour relacher les outils dans le rack Code "F400" 'avance 500 mm/mn Code "G53 Y"& Ypos 'va à Y position à fond de berceau pour prendre ou relacher l outils Sleep(100) ' temporisation 1ms While IsMoving() ' tant que ça bouge Wend ActivateSignal(OUTPUT7) 'active la sortie 7 machoires OUVERTES pour relacher l'outils Sleep(400) ' temporisation sans mouvement 0.4 secondes pour relacher l'outils + jet d air chasse copeaux Code "F1000" ' avance 1000 mm/mn Code "G53 Z" & ToolUp ' monte en Z secu coordonnées Machine Call MovePos(NewTool) 'Appel MovePos(NewTool)coordonnées Machine des nouveaux outils While IsMoving() 'tant que ça bouge Wend Code "F1000" ' avance 1000 mm/mn Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack Code "F400" ' avance 500 mm/mn Code "G53 Y" & Ypos 'Y position à fond de berceau pour prendre ou relacher l outils Code"F400" ' avance 1000 mm/mn Code "G53 Z" & ToolDown 'Z bas position pour prendre ou relacher les outils dans le rack Sleep(800) ' temporisation 0.8 seconde While IsMoving() ' tant que ça bouge Wend DeactivateSignal(OUTPUT7) 'desactive la sortie 7 MACHOIRES FERMEES Sleep(1000) 'temporisation 1 secondes attente fermeture des machoires sortie 7 Code"F300" Code "G53 Y" & Yprepa 'Y position pour la descente du porte outils permettant encliquement dans les rainures des berceaux Code "F800" Code "G53 Z" & ToolUp 'Z haut de secu pour les deplacement au dessus table et rack While IsMoving() ' tant que ça bouge Wend Sleep(200) 'tempo 200 MILISECONDES Code "F1000" Code "G53 X"& XpalF &"Y" & YpalF Code "F400" Code"Z" & Zprepapalp 'va audessus du palpeur fixe While IsMoving() ' tant que ça bouge Wend '*********REM MESURE DES OUTILS SECONDAIRES double palpage = prescision **************************** 'MsgBox("jesuis 2") ' message pour debugage Sleep(600) 'tempo MILISECONDES SetOEMDRO (824, NewTool) 'ecrit le numero du nouvel outils dans la visu tool information Sleep(800) 'tempo 10 MILISECONDES 'MsgBox("jesuis 3") ' message pour debugage ' Code"G90" ' MsgBox("jesuis ICI") ' message pour debugage Code "G31 Z"& Zpalp &"F 60" ' descente sur le palpeur jusqu'a -210mm avance F=100 mm/mn While IsMoving ( ) 'tant que ça bouge Sleep(800) 'tempo 4 MILISECONDES Wend ' MsgBox("jesuis 4") ' message pour debugage Q = GetOEMDRO (802) Sleep(500) J= Q + 20 ' C ajoute +20mm al avisu Z C= Z +20mm Sleep(400) 'tempo 0.4 s Code " G0 Z"& J 'remonte de 10mm While IsMoving() ' tant que ça bouge '2s Sleep(600) Wend Sleep(600) ' MsgBox("jesuis 5") ' message pour debugage Code "G31 Z"& Zpalp & "F20" 'va palper jusqu'a Z-210 mm vitesse F=40mm/mn While IsMoving() 'alors que ça bouge Sleep(800) ' tempo 2.5s Wend 'MsgBox("jesuis 6") ' message pour debugage Ac = GetOEMDRO (802) ' lit la valeur de z au contact sur la sonde Sleep(400) 'tempo 2 ms R=( Q + Ac )/( 2) ' calcul valeur moyenne de z divise l erreur de mesure par 2 Tlo = L - R ' calcul la difference par rapport à l outils maitre reference N°1 Sleep(400) ' MsgBox("jesuis 7") ' message pour debugage SetToolParam(Tnum,2,Tlo) ' ecrit la diference de longueur de l'outils N°"" par rapport à la longueur de l outils maitre Sleep (1200) 'tempo 2 s Code "F1000" Code "G0G53 Z" & ToolUp ' remonte en Z securité While IsMoving() ' tant que ça bouge Wend Sleep(400) 'tempo 0.4 SECONDES SetUserLED (1919,0) ' eteint LA LED TOOL CHANGE EN COURS Sleep(400) GoTo N1 ' retourne au debut de la routine N1 pour une autre mesure End Sub Sub MovePos(ByVal ToolNumber As Integer) ' sous programme MovePos par valeur de N° d 'outils comme entier Select Case ToolNumber ' selection des coordoonées outils en fonction des numero d'outils ' VALEUR X ET Y de l outils N°1 sur le rack EN COORDONNEES MACHINE ' COORDONNEES X ,Y ET Yprepa DES OUTILS SELON LEUR Numero° Case Is = 1 ' VALEUR X ET Y de l outils N°1 sur le rack EN COORDONNEES MACHINE Xpos = 427.2687 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 2 Xpos = 540.6375 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 3 Xpos = 645.8187 'ok Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 4 Xpos = 771.82 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 5 Xpos = 885.60 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 6 Xpos = 998.28 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 7 Xpos = 1115.72 Yprepa = 1080 'ok YPos = 1186.325 'ok Case Is = 8 Xpos = 1227.27 Yprepa = 1080 'ok YPos = 1186.325 'ok End Select Code "F1000" Code "G53 Y" & Yprepa ' positions des Y prepa pour les retours d' outils au rack Code "G53 X" & XPos 'positions des Xpos pour les retours d' outils au rack While IsMoving() 'tant que ça bouge Wend End Sub

avant pour joindre un fichier il y avait deux boutons un choisir un fichier et l autre soumettre je ne le voit pas????

**dh42** Mer 3 Fév 2021 - 17:19

avant pour joindre un fichier il y avait deux boutons un choisir un fichier et l autre soumettre je ne le voit pas????

Ils sont toujours la Wink

Broche à changement d'outil automatique ou semi automatique Sans_104

Pense à "zipper" tes fichiers avant envoi.

++
David

**remi2103** Mer 3 Fév 2021 - 17:40

Merci,
il faudra que je prenne le temps regarder tout ça, ça m'a l'air compliqué.

concernant le matos tu aurais un lien ou je peux acheter ta broche ou équivalent ?

merci encore William

**dh42** Mer 3 Fév 2021 - 18:11

concernant la carte bob moi j ai une xhc carte chinoise mais demande à DH42 il ya des carte beau coup mieux et sans virus j ai plein de virus dans le cd du driver de la carte

Rémi à déjà un UC100USB, donc pas de soucis de compatibilité, par contre l'UC100 ne gère qu'une seule BoB, donc maxi 5 entrées/12 sorties ; je ne sais pas si ça suffira ; il faut déjà au moins:

1 entrée pour le E-stop
1 entrée pour le palpeur
1 entrée pour les 3 contacts de référencement

il n'en reste donc que 2 de libres.

Pour les sorties, la BoB benezan (celle du controleur BZT) n'est pas super pratique car les sorties sont sur des prises RJ 45 (sorties moteurs), soit 8 sorties (2 par axe = Step et Dir) et il faut donc bidouiller un câble avec une RJ45 d'un coté pour utiliser les 2 sorties normalement dédiées au 4ième axe. les 4 qui restent sont déjà utilisées pour d'autres fonctions (PWM, sécu carte = watchdog, et les 2 relais)

Il aurait fallu penser au changeur d'outil avant de changer de carte Very Happy

... et prendre une UC400ETH, qui permet de piloter 2 BoB (donc la Benezan du controleur BZT + une BoB basique à 10€ pour les entrées/sorties du changeur d'outil)

++
David

**dh42** Mer 3 Fév 2021 - 18:26

concernant le matos tu aurais un lien ou je peux acheter ta broche ou équivalent ?

Il y en a ici en "pas cher", je ne sais pas si c'est ce qu'à WF
https://rattmmotor.fr.aliexpress.com/store/group/ATC-Broches/907217_518605006.html?spm=a2g0o.store_home.pcShopHead_11109564.1_1_7

et chez SRT ... mais ça pique !
https://www.sorotec.de/shop/Spindles/hf-spindle-aut-tool-change/Teknomotor/

Note qu'une broche de ce type peut très bien être utilisée en semi-auto (ou semi-manuel) ; il y a un gars sur le forum CamBam qui l'utilise comme ça.

L'idée, c'est d'avoir simplement un changement rapide, mais manuel, donc au final c'est juste un bouton poussoir qui commande l'électrovanne qui commande l'ouverture de la pince. Tu appui sur le bouton et ça déverrouille l'outil, que tu change à la main ; pas besoin de clef ou autre.

L'avantage, c'est que c'est très simple à mettre en œuvre, rien d'informatique, pas de paramétrage, aucun lien avec l'électronique de pilotage ; l'autre avantage c'est qu'il n'est pas nécessaire d'avoir un rack d'outil sur la table de la machine, qui te réduit ta surface d'usinage.

Il existe aussi des adaptateurs pour broche ronde Ø65 ou Ø80
https://www.sorotec.de/shop/Tool-change-adapters-80mm-spindle.html

Je suppose que ça peut se monter sur une broche ronde Chinoise aussi, par contre on passe en ER16 au lieu du ER20 d'origine. (because cône SK10, c'est tout petit) ... mais bon, c'est presque aussi cher qu'une broche ATC Chinoise ...

++
David

WF Mer 3 Fév 2021 - 19:05

Voila un lien pour les broches A T C
https://fr.aliexpress.com/w/wholesale-automatic-tool-change-spindle.html
mais choisi bien ton fournisseur pour le Sav c est pas cher mais ne compte pas sur du SAV ou une aide quelconque
nous on avait pris avec notre machine le pc chinois pour ne pas avoir de problemes 237 virus et un PC en chinois
avec les windows chinois on ne peut pas changer de langue
parlons de notre carte xhc avec la macro chinoise pour ATC on a fini par virer toutes les macro chinoise et on a tout réécrit les macro nous même
donc la broche et le vfd ok prend vfd connu pour les carte demande DH42 tu as besoin de 2 sorties mâchoires spindle 3 entrées vérif. des position cache poussière et état mâchoires il te faudra aussi une sortie PWM ou deux selon que tu tourne CW ou CCW des sortie d axes XYZ et A et B sortie arrosage table à dépression et autre accessoires
POUR LES AUTRES ACCESSOIRES
https://fr.aliexpress.com/wholesale?catId=0&initiative_id=AS_20210203095856&SearchText=cnc+tool+changer

https://fr.aliexpress.com/premium/cnc-tool-changer.html?d=y&origin=y&catId=0&initiative_id=AS_20210203095856&SearchText=cnc%20tool%20changer
A BIENTOT

**remi2103** Mer 3 Fév 2021 - 19:11

ah super, merci David.
ouais le mode semi auto me suffirait a gagner beaucoup de temps.

ça fait déjà assez cher de juste changer la broche pour une petite bécane comme la mienne, je prendrais plus tard une plus grosse avec l'ATC déjà installé.

du coup avec ce type de broche je peux changer mes cônes manuellement.

Je me pose tout de même une question concernant la mise à zéro du Z.
Mettons que je paramètre 3 outils A, B, et C.
Je fais mes zéro dans mes différent G54, G55 etc
mettons que je refasse mon zéro sur le haut de ma pièce en G54, est ce que les zéro de B et C dans G54 vont s'adapter directement ?

ou alors faut il travailler uniquement avec le zéro sur la table ? pour ne jamais refaire son zéro ?

je sais pas si je suis clair.

**dh42** Mer 3 Fév 2021 - 19:29

mettons que je refasse mon zéro sur le haut de ma pièce en G54, est ce que les zéro de B et C dans G54 vont s'adapter directement ?

Oui, si Mach3 connait les longueurs des différents outils.
Le 0 de référence doit être fait avec l'outil n°0 (une pige qui ne change jamais de taille Wink

) et toutes les longueurs des autres outils (n° 1, 2 et 3 et non pas A, B, C) doivent se référer à la longueur de l'outil 0. Donc la différence de longueur entre l'outil 0 et chacun des autres outils et notée dans la table de longueur d'outils. Quand Mach3 rencontrera un T2 M6, suivi d'un G43H2, il saura qu'il doit utiliser l'outil n°2 (T2) qu'il doit s'(arréter pour changer l'outil (M6) et qu'il doit utiliser la valeur de longueur de l'outil 2 de la table (G43H2) et il compensera automatiquement la position du 0 en Z.

Si tu utilise plusieurs décalages (G54, G55, etc) le 0 en XYZ avec l'outil 0 devra être fait pour chaque décalage (le fait de faire un 0 en G54, n'affecte que les coord en G54, donc si tu passe en G55, tout les 0 sont à refaire pour ce nouveau jeu de coordonnées)

++
David

**remi2103** Mer 3 Fév 2021 - 20:17

merci fantastique.

Contenu sponsorisé

Broche à changement d'outil automatique ou semi automatique