MACRO PALPAGE EST CHANGEUR OUTILS AUTOMATIQUE SUITE

Aller en bas

MACRO PALPAGE EST CHANGEUR OUTILS AUTOMATIQUE SUITE Empty MACRO PALPAGE EST CHANGEUR OUTILS AUTOMATIQUE SUITE

Message  WF le Jeu 4 Juin 2020 - 18:58

Bonjour à tous et en particulier à Mr David
j ai adapté la macro de Brian  a mon changeur d' outils automatique
les berceaux porte outils ont rainure qui oblige a un déplacement horizontale en Y pour  rentrer et sortir l outils du  Berceaux
j ai mis au pif des temporisation  mais je suis preneur de tous conseil je suis un débutant en Macro
donc si une âme charitable pouvait vérifier si je  n ai pas fait d erreur
merci d avance pour votre aide
PS je ne peu pas mettre les dessins du rack porte outils


       'ToolChange Macro For Bed type tool changer 11/05 Brian
Sub Main() '   DEBUT DE LA MACRO MAIN

  Code "M9"                    'STOP L ARROSAGE
  DoSpinStop()                 ' STOP LA SPINDLE
  ActivateSignal(Output2) ' ACTIVE LA SORTIE 2 REMONTE LE CACHE POUSSIERE

  OldTool = GetOEMDRO (1200) ' ENREGISTRE LE N° DE L OUTILS DANS LA BROCHE
    'Tool In spindle DRO You must add this to your settings screen

  x = GetToolChangeStart( 0 ) 'ENREGISTRE LA POSITION DES AXES AVANT LE CHANGEMENT D OUTILS
  y = GetToolChangeStart( 1 ) ' "
  z = GetToolChangeStart( 2 ) ' "
  a = GetToolChangeStart( 3 ) ' "
  b = GetToolChangeStart( 4 ) ' "
  c = GetToolChangeStart( 5 ) ' "

  tool = GetSelectedTool()      'n° de l'outil désiré copier depuis T... de la commande M6
  NewTool = tool ' NewTool = n° de l'outil désiré

 
                                              'Tool Changer Macro (Bed Type)
   MaxToolNum = 8 'NOMBRE MAXI  D OUTILS
   
   ToolDown   = -237.84 ' HAUTEUR Z BASSE POUR PRENDRE OU RELACHER L OUTILS
   Yprepa     =  1000                   'POSITION Y DEVANT LE RACK OUTILS POUR LA DESCENTE BROCHE
   ToolUp     = -50 '  HAUTEUR Z HAUTE SECU POUR DEPLACEMENT RAPIDE AU DESSUS DES OUTILS

   If NewTool = OldTool Then ' SI LE N°DU NOUVEL OUTILS = N° DE L 'ANCIEN OUTILS ALORS
Exit Sub ' STOP LA MACRO
   
   End If        ' ... STOP SI
   While NewTool > MaxToolNum ' SI LE N° D OUTILS DEMANDE ET SUPERIEUR AU MAXIMUM D OUTILS 8MAX..

   NewTool = Question ("ENTRER UN N° D'OUTILS INFERIEUR A 9" & MaxToolNum) ' NUMERO D OUTILS DEMANDER

   Wend ' FIN QUAND
   Code "G00 G53 Z" & ToolUp        ' RELEVE A Z SECU A GRANDE VITESSE
   While IsMoving() ' TANT QUE CA BOUGE
   Wend '  FIN DU MOUVEMENT

   Code "G00 G53 X" & OldTool          'VA EN X A LA POSITION DE L 'ANCIEN OUTILS
   Code "G00 G53 Y" & Yprepa           'VA EN Yprepa A LA POSITION EN FACE DE L 'ANCIEN OUTILS
   Code "G00 G53 Z" & ToolDown         'VA EN ToolDown A LA POSITION DE L 'ANCIEN OUTILS
   Code "G4 P.75" ' TEMPO 0.75 seconde
   Code "G00 G53 Y" &  OldTool         'VA EN Y OldTool A LA POSITION EXACTE SUR RACK DE L 'ANCIEN OUTILS
   While IsMoving() '  TANT QUE CA BOUGE
   Wend '   FIN DU MOUVEMENT
   Code "G4 P.75" ' TEMPO 0.75 seconde
   ActivateSignal(Output1) '***** ACTIVE LA SORTIE N°1 POUR RELACHE L OUTILS OUVERTURE MACHOIRE
   Code "G4 P1.0"        ' TEMPO 1 seconde
 

   
   Code "G53 Z" & ToolUp ' RELEVE A Z SECU LA BROCHE SANS OUTILS +MACHOIRE OUVERTE
   Code "G00 G53 X" & NewTool          'VA EN X A LA POSITION DU NOUVEL OUTILS + MACHOIRE OUVERTE
   Code "G53 Z" & ToolDown         'DESCENTE EN ToolDown A LA POSITION DU NOUVEL OUTILS +MACHOIRE OUVERTE
   Code "G4 P.75" ' TEMPO 0.75 seconde
   DeActivateSignal(Output1)        '***** DESACTIVE LA SORTIE N°1 POUR PRENDRE L OUTILS FERME LA MACHOIRE
   Code "G4 P1.0" ' TEMPO 0.75 seconde
   Code "G53 Y" & Yprepa           'VA EN Yprepa A LA POSITION EN FACE LE NOUVEL OUTILS +MACHOIRE FERMER
   
   Code "G00G53 Z" & ToolUp ' MONTE  A Z SECU AVEC   LE NOUVEAU OUTILS  G53 COORDONNEES MACHINE
   Code "G4 P.75" ' TEMPO 0.75 seconde
   While IsMoving() ' TANT QUE CA BOUGE
   Wend '   FIN DU MOUVEMENT

   
   Call SetUserDRO (1200,NewTool) ' ECRIT LE N° DU NOUVEL OUTILS DANS LA DRO 1200 ou QUI C EST???
   SetCurrentTool( NewTool )        ' défini le nouvel outil comme outil actif
   Code "G00 X" & x & " Y" & y        ' VA A LA POSITION x ET y ENREGISTRE AU DEBUT DE LA MACRO
    End Sub ' FIN DE LA MACRO

Sub MovePos(ByVal ToolNumber As Integer) ' SOUS ROUTINE (début)

Select Case ToolNumber ' Relève les coordonnées des outil selon leur n° ...
      Case Is = 1 ' Le n° 1  comprend les valeurs ...
        Xpos = 430.17 ' Position en X (??? certainnement en coordonée absolue ???)
        YPos = 1176.33 ' Position en Y
      Case Is = 2 ' Le n° 2  comprend les valeurs ...
        Xpos = 543.01 ' ...
        YPos = 1176.33
      Case Is = 3
        Xpos = 655.68
        YPos = 1176.33
      Case Is = 4
        Xpos = 771.82
        YPos =1176.33
      Case Is = 5
        Xpos = 885.60
        YPos = 1176.33
      Case Is = 6
        Xpos = 998.28
        YPos = 1176.33
      Case Is = 7
        Xpos = 1115.72
        YPos = 1176.33
      Case Is = 8
        Xpos = 1227.27
        YPos = 1176.33
End Select ' POSITIONS DE STOCKAGE  DES OUTILS DANS LE RACK

Code ("G53 X"& XPos &" Y" & YPos) ' POSITIONS X ET Y POUR LA RECHERCHE DES OUTILS DANS LE RACK


End Sub ' FIN DE LA ROUTINE
Main                          ' FIN DE LA MACRO "PRINCIPALE
Fichiers joints
MACRO PALPAGE EST CHANGEUR OUTILS AUTOMATIQUE SUITE Attachment
MACRO DE BRIAN +WF M6START XHC.zip Vous n'avez pas la permission de télécharger les fichiers joints.(2 Ko) Téléchargé 3 fois
WF
WF
je prends du galon
je prends du galon

Messages : 51
Points : 82
Date d'inscription : 17/09/2018
Age : 68
Localisation : Bondy

Revenir en haut Aller en bas

Revenir en haut


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