Macro de palpage et changement d'outils quand on pilote Mach3 par usb

hares01
Apprenti
8 Juillet 2013
144
Nantua dans l'Ain 01
  • Auteur de la discussion
  • #1
Bonjour

Je continue le debugue de ma machine après l'installation de mach3 062 par-dessus mach3fr 066
Au redémarrage à part l'image splash d'ouverture qui change au grès des ouvertures même pas eu besoin de recharger l'écran Mach3fr.
J'ai quand même mis le jeu d'écran de David qui permet d’élargir à la taille de l'écran pc et j'ai viré les "splash" qui ne m'intéresse pas.

Je viens de changer le palpeur pour celui-ci



Alors il y a déjà quelque temps avec l'aide de David alias DH42 et de Valentin il avait été mis au point deux macros commande :

Celle de David pour le palpage du brut :

Code:
Rem palpeur z
If GetOEMLED (825)<>0 Then 'test si contact actif probe
  Code"(le palpeur est deja actif)"
Else
  hpalpeur=36.28 'hauteur palpeur
   
  V_avance_prog=GetOEMDRO (818) 'vitesse avance du programme en cours
  V_palpage=50  'vitesse palpage

  Code"F"&V_palpage  'change la vitesse pour palpage

  Zpalpage_max=GetOEMDRO (802)-30 'cherche contact j usqu a z actuel moins 30mm

  Code ("G31 Z"&Zpalpage_max)  'lance la recherche palpage
   
  While IsMoving ( )  'tant que axe bouge
  Wend

  SetOEMDRO (802 ,hpalpeur)  'met l'afficheur z a hauteur du palpeur 800 pour x 801 pour y
  sleep(500)  'pause pour mise a jour affichage
   
  Code("F"&V_avance_prog)  'remet la vitesse consigne dans le programme

  Code ("G91")  'mode coord relatives
  Code ("G0 Z5") ' remonter de 5 mm relativement à la pos courante
  Code ("G90")  'retour en coord absolue
   
End If
Et celle de Valentin pour le palpage des outils avant d'usiner avec plusieurs broches :

Code:
sauve_avance = GetOemDRO(818)
 numerooutil=GetCurrentTool
 DiameterParam = 1
 ZoffsetParam = 2
 XwearParam = 3
 ZwearParam = 4
 Tdesc= AskTextQuestion("Entrer Nom Outil:")
 Tdiametre= Question("Entrer Diametre Outil:")
 Hcale= Question("Entrer Hauteur de la cale:")

 Code "F50"   

  ZNew = GetDRO(2) - 10   
  Code "G31Z" &ZNew
  While IsMoving()   
  Wend

  ZNew = GetDRO(2)   
  Code "G0 Z" &ZNew   
  While IsMoving ()
  Wend
  hauteur_outil=znew

  If hcale <> 0 Then
  hauteur_outil=znew-hcale
  End If


  Code "G4 P1"  'Pause for Dro to update.
  ZNew = hauteur_outil+10
  Code" G91 G1 Z+10 F200"
  Code"G90"  'put the Z retract height you want here
   
  Code "F" & sauve_avance   
 SetTooldesc(numerooutil,Tdesc)
 SetToolParam(numerooutil, DiameterParam,tdiametre)
 SetToolParam(numerooutil, ZoffsetParam,hauteur_outil)
 SetToolParam(numerooutil, XwearParam, 0.0000)
 SetToolParam(numerooutil, ZwearParam, 0 )
Le soucis de celle de Valentin est le même que pour pas mal de macro de palpage avec ma carte de pilotage usb ainsi qu'a priori pas mal d'autre : S'est que la visu qui sert normalement à ça et est mis à jour ne l'est pas et provoque des bugs aléatoires.

Ma question est qu'est-ce qu'il faut fusionner entre les deux pour que ça marche.

J'aimerais aussi avoir la hauteur du palpeur en dur dans la macro pour ne pas avoir à la rentrer à chaque fois dans la boite de dialogue.

Dans un autre temps peut-on la lancer comme l'autre macro de palpage sans avoir besoin de rentrer les infos au clavier.
Car le numéro d'outils change avec le changement de broche donc j'imagine que l'on peux récupérer cette infos affiché sur l'écran principal.
Et le diamètre d'outils n'a pas d'importance vu que les outils sont ceux présents dans les broches, donc je peux pas faire de magasin d'outils vu que j'ai quatre broches et donc quatre outils.

Voila s'est long mais cette fois je pense que c'est complet.
Merci pour ce forum qui ne se lasse pas de m'apprendre des choses
Ci-joint les deux macros
 
Fichiers joints
Ampera27
Nouveau
7 Mars 2017
35
Alors la ...chapeau bas !
j'en suis pas encore la....mdr !

@+

Franck
 
hares01
Apprenti
8 Juillet 2013
144
Nantua dans l'Ain 01
  • Auteur de la discussion
  • #3
Bon j'en suis la ça marche comme je voulais c'est de la bidouille par contre dés que je palpe la broche 4 toute les valeurs des autres sont au fraises après et j'ai beau regarder les macros qui gère la broche je vois rien qui saute au yeux par rapport aux autres

Code:
Rem palpeur z
If GetOEMLED (825)<>0 Then 'test si contact actif probe
   Code"(le palpeur est deja actif)"
Else
   'DoOemButton (1010)
   'sleep(1000)
   'SetOEMDRO (802 ,0)
   hpalpeur=36.28 'hauteur palpeur 

   V_avance_prog=GetOEMDRO (818) 'vitesse avance du programme en cours
   V_palpage=50  'vitesse palpage

   Code"F"&V_palpage  'change la vitesse pour palpage

   Zpalpage_max=GetOEMDRO (802)-30 'cherche contact j usqu a z actuel moins 30mm


   Code ("G31 Z"&Zpalpage_max)  'lance la recherche palpage
   
   While IsMoving ( )  'tant que axe bouge
   Wend
   
   
   houtil=-hpalpeur
   numerooutil=GetCurrentTool
   ZoffsetParam = 2
   SetToolParam(numerooutil, ZoffsetParam,houtil)
   sleep(500)  'pause pour mise a jour affichage 
   
   SetOEMDRO (802 ,hpalpeur)  'met l'afficheur z a hauteur du palpeur 800 pour x 801 pour y
   sleep(500)  'pause pour mise a jour affichage
   
   
   Code("F"&V_avance_prog)  'remet la vitesse consigne dans le programme

   Code ("G91")  'mode coord relatives
   Code ("G0 Z5") ' remonter de 5 mm relativement à la pos courante
   Code ("G90")   'retour en coord absolue
   
End If
 
Fichiers joints
La dernière réponse à ce sujet date de plus de 6 mois
Haut