Macro ou script - Palpage point de centre

bonjour je recherche un macro ou script pour mach3 pour pour faire le centre d'un trou ou d'une poche carrée ou cylindrique j'en avait une il y a bien longtemps mais après changement d'unité impossible de la retrouvé je mettais mon palpeur branché sur un port a peut prêt au centre je lançais le programme il palpait automatiquement les 4 face et s'arrêtait au centre il faisait que XetY mais ca me suffisait si une bonne âme avait ca se serait super merci beaucoup

merci mais moi c'était plus le centre d'une poche cylindrique carrée ou rectangle

merci a vous je vais tester tout ca cas ou je reviendrai vers vous encore merci la communauté

bonjour j'ai tout mis jai mis le palpeur sur le pin 4 il active bien en vers probe active mais les courses sont trop courte il sarrete avant d'avoir fait le 2éme palpage sur un diametre 40 en exemple palpage en interieur

j'ai mi celui la

merci j'essai tout ca

Rebonjour ça ne va pas je n’arrive pas à avoir le milieu toujours décalé environ 4 mm du coup j’utilise cet offset maintenant mais il fait des truc bizarre comme si il retournait à une position machine je c’est pas voici la macro de ce bouton

Et sans palpeur quand la pièce tombe il n’ira pas plus loin que 30mm

bon je pense avoir trouvé un bon script avec ma machine il fonctionne a merveille pour l'instant je l'ai relancé une dizaine de fois eteint mach3 et rouvrir il fonctionne toujours
je vous joint le script que j'ai modifié si ca peux vous servir uniquement pour poche intérieur pour l'instant

Rem VBScript To center probe inside a pipe

Dist= 40.0 'Maximum detection depth 40.0
ZDist = 10.0 'When finished, put a knife 10.0
If GetOemLed (825) <> 0 Then 'Check the probe if it is disconnected
Code "(Probe plate is grounded, check connection and try again)"
Else
DoSpinStop()
FeedCurrent = GetOemDRO(818) 'Save the feed rate
XCurrent = GetDro(0)
YCurrent = GetDro(1)
ZCurrent = GetDro(2)

Code "G4 P1" 'Pause 0.5s
Code "F25" 'Adjust the speed more slow

Rem Probe left

XNew = Xcurrent - Dist 'probe 40mm to left
Code "G31 X" &XNew
While IsMoving() 'wait for the move to finish
Wend
XPos1 = GETOEMDRO(800) 'get the probe touch location

Code "G0 X" &XCurrent
While IsMoving ()
Wend
'rapid move back to start point

Rem Probe right

XNew = XCurrent + Dist 'probe 40mm to right
Code "G31 X" &XNew
While IsMoving()
Wend
XPos2 = GETOEMDRO(800)

XCenter = (XPos1 + XPos2) / 2 'center is midway between XPos1 and XPos2
Code "G0 X" &XCenter
While IsMoving ()
Wend
'rapid move to the x center location

Rem Probe up

YNew = YCurrent + Dist
Code "G31 Y" &YNew
While IsMoving()
Wend
YPos1 = GETOEMDRO(801)

Code "G0 Y" &YCurrent
While IsMoving ()
Wend


Rem Probe down

YNew = YCurrent - Dist
Code "G31 Y" &YNew
While IsMoving()
Wend
YPos2 = GETOEMDRO(801)

YCenter = (YPos1 + YPos2) / 2

Rem move to the center

Code "G0 Y" &YCenter
While IsMoving ()
Wend

Code "F" &FeedCurrent 'restore starting feed rate
ZClear = Zcurrent + ZDist
Code "Z" &ZClear
End If

Vidéo du script et écran que j’utilise

oui avec plaisir si tu as même ton macro ou script que je le compare au mien