1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.

probing tools diameter

Discussion dans 'Mach' créé par nebukadnezare, 28 Octobre 2014.

  1. nebukadnezare

    nebukadnezare Apprenti

    Messages:
    82
    Inscrit:
    25 Avril 2014
  2. nebukadnezare

    nebukadnezare Apprenti

    Messages:
    82
    Inscrit:
    25 Avril 2014
  3. valentin

    valentin Compagnon

    Messages:
    608
    Inscrit:
    30 Juillet 2008
    Localité:
    pas de calais france
    probing tools diameter
    bonjour
    dapres ta question tu cherche une addons que tu
    lance par un bouton pour trouver automatiquement
    ton diametre outil
    donc je vois un truc comme sa
    tu trouve une bague calibre a interieur qui est
    relier a ton palpeur et ta broche a arret
    tu place a peu pres outil dans le milieu de la bague
    et tu lance cette macro
    macro un peu modifier qui server a trouver le centre dun
    alesage
    Code:
    Rem VBScript To center probe inside a pipe
    
    If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
    
        Code "(Probe plate is grounded, check connection and try again)"
    
    Else
        diabague=GetOemDRO(1001)
        FeedCurrent = GetOemDRO(818) 'Get the current settings
        XCurrent = GetDro(0)
        YCurrent = GetDro(1)
    
        Code "G4 P1" 'Pause 1 second to give time to position probe plate
        Code "F400" 'slow feed rate to 4 ipm
    
    Rem Probe Left
    
        XNew = Xcurrent - diabague 'probe 3 inches to left
        Code "G31 X" &XNew
        While IsMoving() 'wait for the move to finish
        Wend
        XPos1 = GetVar(2000) 'get the probe touch location
    
        Code "G0 X" &XCurrent 'rapid move back to start point
    
    Rem Probe Right
    
        XNew = XCurrent + 3 'probe 3 inches to right
        Code "G31 X" &XNew
        While IsMoving()
        Wend
        XPos2 = GetVar(2000)
    
        XCenter = (XPos1 + XPos2) / 2 'center is midway between XPos1 and XPos2
        Code "G0 X" &XCenter 'rapid move to the x center location
        While IsMoving ()
        Wend
        Call SetDro (0,0.000)
            Code "G4 P0.25" 
    
    Rem Probe up
    
        YNew = YCurrent + diabague
        Code "G31 Y" &YNew
        While IsMoving()
        Wend
        YPos1 = GetVar(2001)
    
        Code "G0 Y" &YCurrent
    
    Rem Probe down
    
        YNew = YCurrent - 3
        Code "G31 Y" &YNew
        While IsMoving()
        Wend
        YPos2 = GetVar(2001)
    
        YCenter = (YPos1 + YPos2) / 2
    
    Rem move To the center
    
        Code "G0 Y" &YCenter
        While IsMoving ()
        Wend
        Call SetDro (1,0.000)
            Code "G4 P0.25" 
    
        Code "F" &FeedCurrent 'restore starting feed rate
        if ypost1>ypost2 then
        diatrouve=diabague-(ypost1-ypost2)
        Else
        diatrouve=diabague-(ypost2-ypost1)
        
        SetUserLabel(4)=diatrouve
         end if
    End If  
    

    il faudra cree une page avec machscreen
    moi jai creer une page 11

    trouve_dia.jpg
     
  4. nebukadnezare

    nebukadnezare Apprenti

    Messages:
    82
    Inscrit:
    25 Avril 2014
    probing tools diameter
    Merci valentin
    oui c'est a peut près sa sauf que ça serait un truck rectangulaire enfin deux côtés d'environ 20mm et des le 1er contact il se mets a zero et parcours jusqu'à l autre cote et si on utilise par exemple un diametre de 6mm il doit soustraire pour donner le dite diamètre.
    Je vais teste ton code et je te tiens au courant merci
     
  5. dh42

    dh42 Compagnon

    Messages:
    3 975
    Inscrit:
    4 Septembre 2009
    Localité:
    Près de St Etienne (42)
    probing tools diameter
    Salut,

    Je ne suis pas sur que tu obtienne une mesure très précise ; le Ø d'une fraise ce n'est pas facile à mesurer !

    ++
    David
     
  6. nebukadnezare

    nebukadnezare Apprenti

    Messages:
    82
    Inscrit:
    25 Avril 2014
  7. dh42

    dh42 Compagnon

    Messages:
    3 975
    Inscrit:
    4 Septembre 2009
    Localité:
    Près de St Etienne (42)
    probing tools diameter
    C'est sur, mais faire ça à l’œil ça n'a rien de simple et je doute que tu puisse obtenir une précision de l'ordre du 1/100ieme sur le Ø, d'autant plus qu'elle risque de bouger au moment du contact ; de toutes les méthodes que j'ai pu tester pour mesurer les fraises, la seule qui soit précise (à part le banc de mesure optique :???: ) c'est de faire une rainure et de mesurer la largeur de la rainure avec des cales Johnson. (et pas dans du bois la rainure, dans du métal, sinon c'est faux de quelques 1/100iemes voir plus)

    ++
    David
     
  8. nebukadnezare

    nebukadnezare Apprenti

    Messages:
    82
    Inscrit:
    25 Avril 2014
  9. dh42

    dh42 Compagnon

    Messages:
    3 975
    Inscrit:
    4 Septembre 2009
    Localité:
    Près de St Etienne (42)
    Dernière édition par un modérateur: 16 Avril 2015
  10. nebukadnezare

    nebukadnezare Apprenti

    Messages:
    82
    Inscrit:
    25 Avril 2014
Chargement...
Articles en relation
  1. vincent13
    Réponses:
    2
    Affichages:
    1 365

Partager cette page