Palpage Auto chargeur d outils 8

Aller en bas

Palpage Auto chargeur d outils 8 Empty Palpage Auto chargeur d outils 8

Message  WF Mer 6 Jan 2021 - 19:03

Bonjour à Tous et très Bonne Année
Me revoila avec mes macros la machine fonctionne maintenant  reste la mesure d 'outils  donc j ai fait  une macro qui va chercher les 8 outils dans le rack  en commençant par le N°1 outils Maitre ( référence) Mais il y a un problème elle n écrit pas la valeur zéro dans la table  d outils  elle écrit la longueur d outils pourtant
j ai mis
       DoButton   (10)                     ' passe à zero visu Z        
       Code "G4 P5"                        'temporisation 5 secondes            
       SetDRO(2,0.00)                      ' passe à zero visu Z  
       Code "G4 P4"                        'temporisation 4 secondes
       Tlo = GetDRO(2)                     '  valeur de z=0   Tlo =
      GetDro(2)                                                
       Code "G4 P2"  
    SetToolParam(Tnum,2,Tlo)
   Code "G4 P2"
il y a plein de tempo autrement levb passe sur les ligne de code sans les voir
et le deuxième problème et sur la mesure des outils secondaires
je suis obligé de simuler un contact pour declencher la mesure
Quand je fais du pas a pas tout fonctionne ????
si vous avez une idee sur mes erreurs
Code:
        '****** Rem MESURE DE L OUTILS N°1 MAITRE ************************
          
        SetOEMDRO (824, NewTool)                 ' ecrit le ° du nouvel outils
        Sleep(2)                                 'temporisation 2ms pour ecrire dans la visu le n°d'outils                                  
                                             ' MsgBox("je suis 0")     ' message   pour debugage
       Code "G31 Z"& Zpalp &  "F 100"        ' descente sur le palpeur jusqu'a -210mm avance F=100
       While IsMoving ( )                    'tant que ça bouge
       Sleep(10)                             'tempo 10 ms
       Wend
                                             ' MsgBox("je suis 1")     ' message   pour debugage
       A= GetDRO(2)                          'A= GetDRO(2) valeur visu z =A
       Sleep (10)                            'tempo pour lire la valeur Z
       K=A + 10                              ' ajoute 10mm à la valeur  A          
                                             'MsgBox("je suis 2")     ' message   pour debugage
       Code "G0 Z" & K                      'K remonte de10mm au dessus de la sonde
       While IsMoving ( )                   'tant que ça bouge
       Wend
       Code "G4 P2"                         'tempo 2 s
                                            ' MsgBox("je suis 3")     ' message   pour debugage        
       Code "G31 Z" & Zpalp &   "F 40"      'descente sur le palpeur jusqu'a -210mm avance F=40 mm/mn
       While IsMoving ( )                   'tant que ça bouge
       Sleep(20)                            'tempo 20ms
       Wend      
      
        Code "G4 P1"                        'tempo 1s    
                                            ' MsgBox("je suis 4")     ' message   pour debugage
        B= GetDRO(2)                        ' lit la valeur de Z
        L= (A+B)/2                          ' calcul valeur moyenne de Z divise l'erreur de mesure par 2
        
        Code "G4 P1"                        ' temporisation 1seconde  
      
        DoButton   (10)                     ' passe à zero visu Z        
        Code "G4 P5"                        'temporisation 5 secondes            
        SetDRO(2,0.00)                      ' passe à zero visu Z  
        Code "G4 P4"                        'temporisation 4 secondes
                                            ' MsgBox("je suis 6")     ' message   pour debugage      
        Tlo = GetDRO(2)                     '  valeur de z=0   Tlo = GetDro(2)                                                
        Code "G4 P2"                        '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
       Code "G4 P2"                         '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
            
voila la mesure des outils secondaire
Code:
           '*********REM MESURE DES OUTILS SECONDAIRES  double palpage = prescision ****************************
      
                                                            ' MsgBox("jesuis ICI")     ' message   pour debugage
       Code "G31 Z"&  Zpalp  & "F 100"       ' descente sur le palpeur jusqu'a -210mm avance F=100 mm/mn
       While IsMoving ( )                           'tant que ça bouge
       Sleep(4)                                        'tempo 4 MILISECONDES
       Wend
                                                          ' MsgBox("jesuis 4")     ' message   pour debugage  
    
       C= GetDRO(2)+10                       '  C  ajoute +10mm al avisu Z  C=  Z +10mm
       Sleep(4)                                     'tempo 4 ms

       Code " G0 Z" & C                      'remonte de 10mm
       While IsMoving()                      ' tant que ça bouge
       Sleep(2)                                '2ms
       Wend
                                                       ' MsgBox("jesuis 5")     ' message   pour debugage  

       Code "G31 Z"& Zpalp & "F40"          'va palper jusqu'a Z-210 mm vitesse F=40mm/mn
       While IsMoving()                       'alors que ça bouge
       Sleep(2)                                ' tempo 2.5s
       Wend'
                                                    'MsgBox("jesuis 6")     ' message   pour debugage  
       D =GetDro(2)                         ' lit la valeur de z au contact sur la sonde  
       Sleep(2)                               'tempo 2 ms
       E=(C+D)/(2)                          ' calcul valeur moyenne de z divise l erreur de mesure par 2
       Tlo = L - E                          ' calcul la difference par rapport à l outils maitre reference N°1
       Sleep(1)      
                                                    ' 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
     Code "G4 P2"                           'tempo 2 s
              '"
     Code "G0G53 Z" & ToolUp                ' remonte en Z securité
     While IsMoving()                            ' tant que ça bouge
     Wend
            Sleep(4)                               'tempo 4 MILISECONDES
  
     SetUserLED (1919,0)       ' eteint LA LED  TOOL CHANGE EN COURS    
         GoTo N1                                ' retourne au debut de la routine  N1 pour une autre mesure
    
et voila le programme en entier les deplacement vont bien seule les 2 partie mesures  ont des problemes
Code:
       'elle commence par mesurée l'outils  maître, puis vous pouvez mesurer maximum 8 d’outils ou moins.
    ' elle effectue 2 palpage 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 ************************
                     ' variable n°3 difference longueur outils maitre moins outils secondaire
           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   = -200            'Z bas position pour prendre ou relacher les outils dans le rack
           ToolUp     = -50             'Z haut de secu pour les deplacements au dessus table et rack
           Yprepa     =  1000           'Y position pour la descente du porte outils  permettant encliquement dans les rainures des berceaux du rack
           Ypos       =  1176.33        'Y position à fond de berceau  pour prendre ou relacher l outils
           XpalF      =  141.1          'X position palpeur fixe en X
           YpalF      =  1165.8         'Y  position palpeur fixe en Y
           Zprepapalp = -160            'Z approche du palpeur le dessus étant à -211mm course max G31 50mm
           Zpalp      = -210            '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
                                        REM verification 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
         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 "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(2)                                 'temporisation 2ms  pour relacher  l'outils + jet d air chasse copeaux      
          Code "G53 Z" & ToolDown                  'Z bas position pour prendre ou relacher les outils dans le rack
          Code "G4 P2"                             ' temporisation 2 secondes
          While IsMoving()                         ' tant que ça bouge
          Wend
          DeactivateSignal(OUTPUT7)                'desactive la sortie 7  ferme les machoires
          Code "G4 P1.50"                          '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
          Code "G4 P1.75"                          'temporisation 1.75 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 &"Z" &  Zprepapalp      'va audessus du palpeur fixe etdescend à -160mm
          While IsMoving()                       ' tant que ça bouge
          Wend
          
                '****** Rem MESURE DE L OUTILS N°1 MAITRE ************************
          
        SetOEMDRO (824, NewTool)                 ' ecrit le ° du nouvel outils
        Sleep(2)                                 'temporisation 2ms pour ecrire dans la visu le n°d'outils                                  
                                             ' MsgBox("je suis 0")     ' message   pour debugage
       Code "G31 Z"& Zpalp &  "F 100"        ' descente sur le palpeur jusqu'a -210mm avance F=100
       While IsMoving ( )                    'tant que ça bouge
       Sleep(10)                             'tempo 10 ms
       Wend
                                             ' MsgBox("je suis 1")     ' message   pour debugage
       A= GetDRO(2)                          'A= GetDRO(2) valeur visu z =A
       Sleep (10)                            'tempo pour lire la valeur Z
       K=A + 10                              ' ajoute 10mm à la valeur  A          
                                             'MsgBox("je suis 2")     ' message   pour debugage
       Code "G0 Z" & K                      'K remonte de10mm au dessus de la sonde
       While IsMoving ( )                   'tant que ça bouge
       Wend
       Code "G4 P2"                         'tempo 2 s
                                            ' MsgBox("je suis 3")     ' message   pour debugage        
       Code "G31 Z" & Zpalp &   "F 40"      'descente sur le palpeur jusqu'a -210mm avance F=40 mm/mn
       While IsMoving ( )                   'tant que ça bouge
       Sleep(20)                            'tempo 20ms
       Wend      
      
        Code "G4 P1"                        'tempo 1s    
                                            ' MsgBox("je suis 4")     ' message   pour debugage
        B= GetDRO(2)                        ' lit la valeur de Z
        L= (A+B)/2                          ' calcul valeur moyenne de Z divise l'erreur de mesure par 2
        
        Code "G4 P1"                        ' temporisation 1seconde  
      
        DoButton   (10)                     ' passe à zero visu Z        
        Code "G4 P5"                        'temporisation 5 secondes            
        SetDRO(2,0.00)                      ' passe à zero visu Z  
        Code "G4 P4"                        'temporisation 4 secondes
                                            ' MsgBox("je suis 6")     ' message   pour debugage      
        Tlo = GetDRO(2)                     '  valeur de z=0   Tlo = GetDro(2)                                                
        Code "G4 P2"                        '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
       Code "G4 P2"                         '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 n°1 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 "G53 Z" & ToolDown       'va à Z position pour  relacher les outils dans le rack
        Code "F500"                   'avance 500 mm/mn  
        Code "G53 Y"& Ypos            'va à Y position à fond de berceau  pour prendre ou relacher l outils
        Code "F1000"                  ' avance 1000 mm/mn  
        Sleep(1)                      ' temporisation 1ms
        While IsMoving()              ' tant que ça bouge
        Wend      
        ActivateSignal(OUTPUT7)       'active la sortie 7 machoires OUVERTES pour relacher l'outils
        Code "G4 P1.75"               ' temporisation sans mouvement 2.75 secondes pour relacher  l'outils + jet d air chasse copeaux              
        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 "F500"                 ' avance 500 mm/mn
          Code "G53 Y" & Ypos         'Y position à fond de berceau  pour prendre ou relacher l outils
           Code"F1000"                ' avance 1000 mm/mn
          Code "G53 Z" & ToolDown     'Z bas position pour prendre ou relacher les outils dans le rack
          Code "G4 P1.75"             ' temporisation 1.75 seconde
          While IsMoving()            ' tant que ça bouge
          Wend
         DeactivateSignal(OUTPUT7)     'desactive la sortie 7 MACHOIRES FERMEES
          Code "G4 P 0.70"             'temporisation 2secondes attente 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        
          Sleep(2)                     'tempo 2 MILISECONDES
          
          Code "F800"
          Code "G53 X"& XpalF &"Y" &  YpalF &"Z" &  Zprepapalp    'va audessus du palpeur fixe
          While IsMoving()             ' tant que ça bouge
          Wend        
          Sleep(2)                       'tempo MILISECONDES
          SetOEMDRO (824, NewTool)       'ecrit le numero du nouvel  outils dans la visu tool information
          Sleep(10)                      'tempo 10 MILISECONDES
                                         ' MsgBox("jesuis 3")     ' message   pour debugage  
                  
                   '*********REM MESURE DES OUTILS SECONDAIRES  double palpage = prescision ****************************
      
                                             ' MsgBox("jesuis ICI")     ' message   pour debugage
       Code "G31 Z"&  Zpalp  & "F 100"       ' descente sur le palpeur jusqu'a -210mm avance F=100 mm/mn
       While IsMoving ( )                    'tant que ça bouge
       Sleep(4)                              'tempo 4 MILISECONDES
       Wend
                                             ' MsgBox("jesuis 4")     ' message   pour debugage  
    
       C= GetDRO(2)+10                       '  C  ajoute +10mm al avisu Z  C=  Z +10mm
       Sleep(4)                              'tempo 4 ms

       Code " G0 Z" & C                      'remonte de 10mm
       While IsMoving()                      ' tant que ça bouge
       Sleep(2)                              '2s
       Wend
                                             ' MsgBox("jesuis 5")     ' message   pour debugage  

       Code "G31 Z"& Zpalp & "F40"          'va palper jusqu'a Z-210 mm vitesse F=40mm/mn
       While IsMoving()                     'alors que ça bouge
       Sleep(2)                             ' tempo 2.5s
       Wend'
                                            'MsgBox("jesuis 6")     ' message   pour debugage  
       D =GetDro(2)                         ' lit la valeur de z au contact sur la sonde  
       Sleep(2)                             'tempo 2 ms
       E=(C+D)/(2)                          ' calcul valeur moyenne de z divise l erreur de mesure par 2
       Tlo = L - E                          ' calcul la difference par rapport à l outils maitre reference N°1
       Sleep(1)      
                                            ' 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
     Code "G4 P2"                           'tempo 2 s
              '"
     Code "G0G53 Z" & ToolUp                ' remonte en Z securité
     While IsMoving()                       ' tant que ça bouge
     Wend
            Sleep(4)                        'tempo 4 MILISECONDES
  
     SetUserLED (1919,0)    ' eteint LA LED  TOOL CHANGE EN COURS    
         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 = 430.17
         Yprepa = 1000
         YPos = 1176.33
       Case Is = 2
         Xpos = 543.01
          Yprepa =1000
         YPos = 1176.33
       Case Is = 3
         Xpos = 655.68
         Yprepa = 1000
         YPos = 1176.33
       Case Is = 4
         Xpos = 771.82
         Yprepa = 1000
         YPos =1176.33
       Case Is = 5
         Xpos = 885.60
         Yprepa = 1000
         YPos = 1176.33
       Case Is = 6
         Xpos = 998.28
         Yprepa = 1000
         YPos = 1176.33
       Case Is = 7
         Xpos = 1115.72
         Yprepa = 1000
         YPos = 1176.33
       Case Is = 8
         Xpos = 1227.27
         Yprepa = 1000
         YPos  =1176.33
         End Select
        
        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
    
              
 
              
        

MERCI D AVANCE POUR VOTRE AIDE ET MEILLEUR ANNEE
WF
WF
je prends du galon
je prends du galon

Messages : 96
Points : 145
Date d'inscription : 17/09/2018
Age : 68
Localisation : Bondy

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Re: Palpage Auto chargeur d outils 8

Message  dh42 Jeu 7 Jan 2021 - 1:04

Salut,

Sans certitude, mais je pense que tu n'utilise pas les bonnes "tempo" ; les G4Pxxx c'est une pause dans l’exécution d'un GCode ; ce qu'il te faut c'est une pause de l'éxécution du VB et dans ce cas il faut utiliser l'instruction sleep(xxx) ou xxx est une valeur en ms.

Dans ta 1iere macro, une pause de seulement 2ms, c'est trop court, il faut au moins 200 ms, voir plus ... c'est très dépendant du PC. Il n'y a que dans les While IsMoving/Wend que tu peux mettre des sleep() très courts car ils ne servent qu'à pouvoir reprendre la main et a ne pas faire tourner le CPU plein pot lors de la boucle d'attente.

Quand je fais du pas a pas tout fonctionne ????

probablement parce que, justement, ça laisse plus de temps à Mach3.

++
David

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

Messages : 21126
Points : 33829
Date d'inscription : 21/06/2009
Age : 57
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Palpage Auto chargeur d outils 8

Message  WF Jeu 7 Jan 2021 - 19:00

Oups j ai perdu mon post precedent sur le palpage ou je demandais comment on utilise GetToolParam
Code:
          Code "G53 G31Z "& Zpalp &" F"& Fpal    ' descente sur le palpeur jusqu'a -150 avance f=150
                                                'MsgBox(" je descend2")
          While IsMoving ( )                    'tant que sa bouge
          Sleep(500)                              ' temporisation 3s
          Wend
          Tlo = GetDRO(2)                    '  valeur z longueur d outils Tlo = GetOEMDRO(802) 
        GetToolParam(Tnum, ZoffsetParam)=Zcrash
        If Tlo> Zcrash  Then
        Code "G0 G53 Z" & ToolUp                ' va a grande vitesse en Z secu coordonnées Machine   
        MsgBox(" Fraise Cassée ??? à  verifier") ' Message
        Code"M30" 

car j ai plein de message d erreur de mismasch j ai essayé aussi GetToolParam(Tnum, 2)=Zcrash tnum etant le numero d outils et 2 l offset de longueur
mille merci excuser moi de vous prendre beaucoup de temps
WF
WF
je prends du galon
je prends du galon

Messages : 96
Points : 145
Date d'inscription : 17/09/2018
Age : 68
Localisation : Bondy

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Re: Palpage Auto chargeur d outils 8

Message  dh42 Ven 8 Jan 2021 - 3:44

Salut,

Une fonction qui retourne une info s'utilise toujours de la manière suivante:

ValeurDeRetour = fonction(... , ...)

donc dans ton cas:

Zcrash = GetToolParam(Tnum, 2)

Zcrash contiendra la valeur retournée par la fonction, soit le Z offset pour la valeur 2

Tnum doit être un entier compris entre 1 et 255

Voir doc page 35

j ai plein de message d erreur de mismasch

Du genre "type mismatch error" ? ... si c'est le cas, ça veux dire que la donnée fournie (ou reçu) n'est pas du bon type de variable, ex: la fonction attend une valeur numérique et tu lui donne une valeur texte.

++
David

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

Messages : 21126
Points : 33829
Date d'inscription : 21/06/2009
Age : 57
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Re: Palpage Auto chargeur d outils 8

Message  WF Jeu 14 Jan 2021 - 19:35

Bonjour à Tous et en Particulier à dh42
Voila j ai une question simple est ce que  SetDRO(2,0.00) qui passe la visu Z à 0 bien sur avec un sleep pour l écriture de la visu
Mais y a t il mouvement  de la position courante Zxx   à Z= 0 ????? avec déclenchement de la limite Z ???
ou il ne faut pas   etre en G53 coordonnées machine  
quand je mesure  l outils T1 maitre qui sert de référence je passe Z à zéro après son palpage  pour pouvoir mesurer la différence de longueur avec les autres Outils
je sais qu' il y a G92Z0  mais j ai lu qu' il faut mettre un un G92.1 pour annulez à la fin du programme
D avance merci pour votre aide
WF
WF
je prends du galon
je prends du galon

Messages : 96
Points : 145
Date d'inscription : 17/09/2018
Age : 68
Localisation : Bondy

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Re: Palpage Auto chargeur d outils 8

Message  dh42 Jeu 14 Jan 2021 - 19:58

Salut,

Mais y a t il mouvement de la position courante Zxx à Z= 0 ?

Non, pas de mouvement, ça reviens au même que de cliquer sur le bouton "zéro Z" de la visu.

++
David

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

Messages : 21126
Points : 33829
Date d'inscription : 21/06/2009
Age : 57
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Re: Palpage Auto chargeur d outils 8

Message  WF Ven 15 Jan 2021 - 11:42

Merci Beaucoup pour l info

car sur l écran du Toolpath à droite "le show Tool in Bar "
on voit quand fait SetDRO(2,0.00) ou appuyez sur le bouton zéro Z
on voit le symbole de l' outil monter comme un fou et ça ma fait peur
Merci Beaucoup à bientôt
WF
WF
je prends du galon
je prends du galon

Messages : 96
Points : 145
Date d'inscription : 17/09/2018
Age : 68
Localisation : Bondy

Revenir en haut Aller en bas

Palpage Auto chargeur d outils 8 Empty Re: Palpage Auto chargeur d outils 8

Message  dh42 Ven 15 Jan 2021 - 20:04

Salut,

on voit le symbole de l' outil monter comme un fou et ça ma fait peur

Oui, mais c'est juste pour mettre à jour l'affichage, sur la machine, rien ne bouge.

Pour le G92, c'est un changement "temporaire" de coordonnées, il n'est effectif que pour la durée du programme, le M30 en fin de programme remet les coordonnées comme elles étaient avant le G92. (ou si un G92.1 est rencontré)

Attention à ne pas utiliser des G92 et des G52 dans le même programme.

++
David

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

Messages : 21126
Points : 33829
Date d'inscription : 21/06/2009
Age : 57
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Revenir en haut


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