Hello Guest it is March 28, 2024, 04:37:16 PM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ch_porchet

Pages: 1 2 »
1
hello
 I wrote a macro, but it was a mistake I do not
 comments are in French, sorry
 the second part only works if it is also the first and

CODE "G00 G53 Z0"
While ISMOVING()
Wend
CODE "G00 G53 X40 Y0"
MACHMSG("CHANGEZ L'OUTIL ET APPUYEZ SUR OK", "CHANGEMENT D'OUTIL",1)
*****part II****
PALPX = GETOEMDRO(1010)
PALPY = GETOEMDRO(1011)
CODE "G00 G53 X"& PALPX &" Y"& PALPY
While ISMOVING()
Wend
'Lancement de la commande de probe rapide vers le bas
SetOEMDRO(1000, 2) ' Numéro de l'axe ou faire le probe (0=X, 1=Y, 2=Z)
SetOEMDRO(1001, -90) ' Course maxi (le signe indique le sens de déplacement)
SetOEMDRO(1002, 20) ' Feed rate
SetOEMDRO(1003, 9) ' Numéro de l'entré de plapage (1 à 16
SetOEMDRO(1004, 1) ' état de l'entrée attendu (0 ou 1)
NotifyPlugins(3000)

' Attente fin de probe descente
While (GetOEMDRO(1000) = 0)
Sleep(10)
Wend
'Si succès, lancement de probe lent ver le haut
If (GetOEMDRO(1000) = 1) Then
SetOEMDRO(1000, 2) ' Numéro de l'axe ou faire le probe (0=X, 1=Y, 2=Z)
SetOEMDRO(1001,+10) ' Remontée en Z
SetOEMDRO(1002, 1) ' Feed rate
SetOEMDRO(1003, 9) ' Numéro de l'entré de plapage (1 à 16
SetOEMDRO(1004, 0) ' Attente re-laché de l'entrée 9
NotifyPlugins(3000)
' Attente fin de probe
While (GetOEMDRO(1000) = 0)
Sleep(10)
Wend
If (GetOEMDRO(1000) = 1) Then
ZProbe = GetOEMDRO(1001) ' Lecture de la position de palpage
Z = GetOEMDRO(85) ' Lecture positionactuelle
HPalpeur = 30 ' Déclaration hauteur palpeur
Zero = Z - ZProbe + HPalpe ' Distance erreur liée à deceleration
Zero = GetOEMdro(802)
SetUserdro(1050,Zero)

Code "G0 G53 Z0"
While IsMoving()
Wend
Else
'Message ("Fin de probe avec erreur palpage lent")
End If
Else
'Message ("Fin de probe avec erreur palpage rapide")

Does any one happen to correct my macro
 thank you very much
Chris

2
hello
 does anyone could tell me with what command (macro) to be afraid to reset a tool length in contact with a probe
 thank you

3
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 26, 2012, 02:08:48 AM »
hello
 I arrived with this macro
Sorry I put the legend in french

'Lancement de la commande de probe rapide vers le bas
SetOEMDRO(1000, 2) ' Numéro de l'axe ou faire le probe (0=X, 1=Y, 2=Z)
SetOEMDRO(1001, -90) ' Course maxi (le signe indique le sens de déplacement)
SetOEMDRO(1002, 20) ' Feed rate
SetOEMDRO(1003, 9) ' Numéro de l'entré de plapage (1 à 16
SetOEMDRO(1004, 1) ' état de l'entrée attendu (0 ou 1)
NotifyPlugins(3000)
' Attente fin de probe descente
While (GetOEMDRO(1000) = 0)
Sleep(10)
Wend
'Si succès, lancement de probe lent ver le haut
If (GetOEMDRO(1000) = 1) Then
SetOEMDRO(1000, 2) ' Numéro de l'axe ou faire le probe (0=X, 1=Y, 2=Z)
SetOEMDRO(1001,+10) ' Remontée en Z
SetOEMDRO(1002, 1) ' Feed rate
SetOEMDRO(1003, 9) ' Numéro de l'entré de plapage (1 à 16
SetOEMDRO(1004, 0) ' Attente re-laché de l'entrée 9
NotifyPlugins(3000)
' Attente fin de probe
While (GetOEMDRO(1000) = 0)
Sleep(10)
Wend
If (GetOEMDRO(1000) = 1) Then
ZProbe = GetOEMDRO(1001) ' Lecture de la position de palpage
Z = GetOEMDRO(85) ' Lecture positionactuelle
HPalpeur = 30 ' Déclaration hauteur palpeur
Zero = Z - ZProbe + HPalpe ' Distance erreur liée à deceleration
SetDRO(2, Zero) ' Initialisation zero pièce
Sleep(100)
NewZPos = Zero + 10 ' dégagement 10mm au dessus du
capteur
Code "G0 Z"&NewZPos
While IsMoving()
Wend
Else
'Message ("Fin de probe avec erreur palpage lent")
End If
Else
'Message ("Fin de probe avec erreur palpage rapide")
End If

4
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 14, 2012, 07:18:52 AM »
I think so, because the G31 is a matter of usb driver, while it's Gcode

5
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 14, 2012, 03:46:10 AM »
So the question is
  Is it possible to stop the Z-axis moving with "input1"
because "input1" maximum limit as Z is not terrible

6
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 13, 2012, 10:20:51 AM »
hello
 I know it's not practical, but I is not the choice
 do you think it is possible to do that (input1) silk a maximum limit of Z

7
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 12, 2012, 05:36:51 PM »
ok
 so I can put what, remember the Z value at that time

8
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 12, 2012, 05:05:23 PM »
Hello Tony
the problem is that G31 does not work with my driver UBS
so if I write

If IsActive (input1) Then
     DoOembutton(252)
     Code "G4 P1" or Sleep (60)
     ZProbePos = GetVar(2002)
Else
     Code "F40 G53 Z-70"
Wend

9
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 12, 2012, 03:34:15 PM »

OK,
but it is possible to trigger a pause (or stop) with Gcode by a input1 in a macro.

 what do you mean by a loop















10
VB and the development of wizards / Re: execute a function with "input 1"
« on: January 12, 2012, 11:11:10 AM »
Hello
 my cnc does not take the G31 because it is connected to the PC via a USB port for now is that the driver of pluging it does not support the G31.
 That's why I want a solution with  "input1" to mach3

Pages: 1 2 »