Broche à changement d'outil automatique ou semi automatique

3 participants

Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Broche à changement d'outil automatique ou semi automatique

Message  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
remi2103
remi2103
je prends du galon
je prends du galon

Messages : 64
Points : 70
Date d'inscription : 13/02/2019
Age : 35
Localisation : 74

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Broche à changement d'outil automatique ou semi automatique

Message  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
WF
WF
posteur Régulier
posteur Régulier

Messages : 125
Points : 186
Date d'inscription : 17/09/2018
Age : 69
Localisation : Bondy

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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

_________________
Traduction Française de CamBam et de sa documentation.
dh42
dh42
Admin
Admin

Messages : 21987
Points : 34690
Date d'inscription : 21/06/2009
Age : 58
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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 ?
remi2103
remi2103
je prends du galon
je prends du galon

Messages : 64
Points : 70
Date d'inscription : 13/02/2019
Age : 35
Localisation : 74

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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
WF
posteur Régulier
posteur Régulier

Messages : 125
Points : 186
Date d'inscription : 17/09/2018
Age : 69
Localisation : Bondy

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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
WF
posteur Régulier
posteur Régulier

Messages : 125
Points : 186
Date d'inscription : 17/09/2018
Age : 69
Localisation : Bondy

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Broche à changement d'outil automatique ou semi automatique

Message  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
WF
posteur Régulier
posteur Régulier

Messages : 125
Points : 186
Date d'inscription : 17/09/2018
Age : 69
Localisation : Bondy

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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????
WF
WF
posteur Régulier
posteur Régulier

Messages : 125
Points : 186
Date d'inscription : 17/09/2018
Age : 69
Localisation : Bondy

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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

_________________
Traduction Française de CamBam et de sa documentation.
dh42
dh42
Admin
Admin

Messages : 21987
Points : 34690
Date d'inscription : 21/06/2009
Age : 58
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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
remi2103
remi2103
je prends du galon
je prends du galon

Messages : 64
Points : 70
Date d'inscription : 13/02/2019
Age : 35
Localisation : 74

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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

_________________
Traduction Française de CamBam et de sa documentation.
dh42
dh42
Admin
Admin

Messages : 21987
Points : 34690
Date d'inscription : 21/06/2009
Age : 58
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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

_________________
Traduction Française de CamBam et de sa documentation.
dh42
dh42
Admin
Admin

Messages : 21987
Points : 34690
Date d'inscription : 21/06/2009
Age : 58
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Broche à changement d'outil automatique ou semi automatique

Message  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
WF
WF
posteur Régulier
posteur Régulier

Messages : 125
Points : 186
Date d'inscription : 17/09/2018
Age : 69
Localisation : Bondy

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

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




remi2103
remi2103
je prends du galon
je prends du galon

Messages : 64
Points : 70
Date d'inscription : 13/02/2019
Age : 35
Localisation : 74

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

Message  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

_________________
Traduction Française de CamBam et de sa documentation.
dh42
dh42
Admin
Admin

Messages : 21987
Points : 34690
Date d'inscription : 21/06/2009
Age : 58
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Broche à changement d'outil automatique ou semi automatique Empty Re: Broche à changement d'outil automatique ou semi automatique

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

merci fantastique.
remi2103
remi2103
je prends du galon
je prends du galon

Messages : 64
Points : 70
Date d'inscription : 13/02/2019
Age : 35
Localisation : 74

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum