Ayuda X y Y autmatico en Cero como Z automatico

Configuración, manejo, trucos, dudas, etc.. Sobre el programa de Artsof en sus distintas versiones.

Re: Ayuda X y Y autmatico en Cero como Z automatico

Notapor alberth60 » Dom, 30 Dic 2012, 08:51

saludos mimi, kikok

mimi esta muy bueno el video pero mas o menos es a lo que me referia solo que quiero que me lo ponga en la pantalla de tools en mach por si quisiera darle compenzacion saludos

kikok cree uno especial para que me ponga en la pantalla automaticamente x0.0 y0.0 al igual cree uno especial para el Z, solo le doy que me centre con el palpador y listo todo directo sin ventanas emergentes

saludos si alguien lo quiere ponganme un mensaje para subirlo
Recuerda que la paciencia es todo un arte
Avatar de Usuario
alberth60
Colaborador
Colaborador
 
Mensajes: 427
Registrado: Mar, 18 Ago 2009, 20:49
Ubicación: México

Re: Ayuda X y Y autmatico en Cero como Z automatico

Notapor mimi » Dom, 30 Dic 2012, 13:36

kikok20 escribió:Hola Luis, a ese código luego le tienes que decir tu luego manualmente que se valla a los ceros no?

Si , por mas que intentado codificarlo para que baje hasta la tabla no e sido capaz ..el x y se ponen a 0 pero el z se queda al ras del palpador.

el trozo de aluminio como esta conectado a la señal es que el vídeo no se ve.

Es un trozo de aluminio de 20mm que me sobro , esta pegado a un plalpador que compre para que coja la señal.

Lo has hecho tu o es de algún sitio?

es de a qui....... http://www.youtube.com/watch?v=49DepF6WKyc.......me lo baje de su pagina , pero yo no consigo que baje asta la tabla como en el vídeo lo tengo que hacer manual...llevo 2 días peleándome con el para que lo haga automáticamente.

Un saludo kiko
Avatar de Usuario
mimi
FRESADOR CNC
FRESADOR CNC
 
Mensajes: 158
Registrado: Mar, 27 Dic 2011, 11:37
Ubicación: Madrid-Vallekas-entrevias.

Re: Ayuda X y Y autmatico en Cero como Z automatico

Notapor mimi » Dom, 30 Dic 2012, 13:43

Os lo paso por si a alguien le interesa y si logra que el Z baje hasta la tabla cuando termine le invito a una caña PPP) .

'****************************************************************************************************
' **************************** USE THIS SCRIPT ON YOUR OWN RISK!!! ************************
'****************************************************************************************************

Sub Main()

Dim ConfirmReady As String
Dim DoXY As String
Dim DoZ As String
Dim ConfirmOffset As String
Dim XaxisDRO As Double
Dim YaxisDRO As Double
Dim ZaxisDRO As Double
Dim ToolDia As Double
Dim Pos As Double
Dim Temp As Double
Dim Cur_Feed As Integer
XaxisDRO=0
YaxisDRO=1
ZaxisDRO=2

PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO
Offset = GetUserDRO(1152) 'Offset for the PCB corner
Cur_feed = GetOemDRO(818) 'Get the current settings

'******************************** QUESTION 1 *************************

ConfirmReady = AskTextQuestion("Confirm Touch plate leads are connected and ready. (y/n)")
If ConfirmReady = "y" Then GoTo 1 Else GoTo 11

'******************************* QUESTION 2 **************************
1:
DoXY = AskTextQuestion("Cancel XY for Z Only. Yes or not (y/n)")
If DoXY = "y" Then GoTo 7 Else GoTo 2

'******************************* QUESTION 3 **************************
2:
Ypos = AskTextQuestion("Y Position Short or Long (s/l).............For PCB Top or Bottom (t/b)!")
If Ypos = "s" Then GoTo 3
If Ypos = "l" Then GoTo 4
If Ypos = "t" Then GoTo 5
If Ypos = "b" Then GoTo 6

'******************************* QUESTION 4 SHORT MODE ***************
3:
ToolDia = AskTextQuestion("What is the tool diameter?")
Message( "Auto Zeroing X..." )
Pos = ToolDia/2+8
SetDRO(0, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 X 30 F100"
While IsMoving()


Wend
Temp = GetOEMDRO(802)
SetDRO(1, 0.0000)
SetDRO(2, 0.0000)
Sleep 200
SetDRO(0, -ToolDia/2)
Sleep 200
code "G1 X"&-Pos
code "G0 Z20"
code "G0 X"&(Pos+10)&"Y"&-(Pos+25)
code "G0 Z0"
End If

Message( "Auto Zeroing Y Short..." )
SetDRO(1, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 Y50 F100"
While IsMoving()
Sleep 200
Wend
SetDRO(1, -ToolDia/2)
Sleep 200
code "G1 Y"&-Pos
code "G0 Z20"
code "G0 X25 Y25"
End If
Message( "Auto Zeroing Y Short Coplete" )
GoTo 7

'***************************** QUESTION 4 LONG MODE ******************
4:
ToolDia = AskTextQuestion("What is the tool diameter?")
Message( "Auto Zeroing X..." )
Pos = ToolDia/2+8
SetDRO(0, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 X 30 F100"
While IsMoving()


Wend
Temp = GetOEMDRO(802)
SetDRO(1, 0.0000)
SetDRO(2, 0.0000)
Sleep 200
SetDRO(0, -ToolDia/2)
Sleep 200
code "G1 X"&-Pos
code "G0 Z20"
code "G0 X"&(Pos+10)&"Y"&(Pos+25)
code "G0 Z0"
End If

Message( "Auto Zeroing Y Long..." )
SetDRO(1, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 Y-50 F100"
While IsMoving()
Sleep 200
Wend
SetDRO(1, ToolDia/2)
Sleep 200
code "G1 Y"&Pos
code "G0 Z20"
code "G0 X25 Y-25"
End If
Message( "Auto Zeroing Y Long Coplete" )
GoTo 7

'*************************** QUESTION 4 TOP MODE *********************
5:
ConfirmOffset = AskTextQuestion("Your Corner Offset is: " & Offset & "........ It is correct? Yes or not (y/n)")
If ConfirmOffset = "n" Then GoTo 10

ToolDia = AskTextQuestion("PCB Top Mode! What is the tool diameter?")
Message "Auto Zeroing X PCB Top Mode! Your offset is: "& Offset
Pos = ToolDia/2+8
SetDRO(0, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 X 30 F100"
While IsMoving()


Wend
Temp = GetOEMDRO(802)
SetDRO(1, 0.0000)
SetDRO(2, 0.0000)
Sleep 200
SetDRO(0, -ToolDia/2- Offset)
Sleep 200
Pos = Pos + Offset
code "G1 X"&-Pos
code "G0 Z20"
code "G0 X"&(Pos)&"Y"&-(Pos+25)
code "G0 Z0"
End If

Message "Auto Zeroing Y PCB Top Mode! Your offset is: "& Offset
SetDRO(1, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 Y50 F100"
While IsMoving()
Sleep 200
Wend
SetDRO(1, -ToolDia/2- Offset)
Sleep 200
code "G1 Y"&-Pos
code "G0 Z20"
code "G0 X"&25-Offset &"Y"&25-Offset
End If
Message( "Auto Zeroing Y Top Complete" )
GoTo 7

6:
'******************************** QUESTION 4 BOTTOM MODE *************
ConfirmOffset = AskTextQuestion("Your Corner Offset is: " & Offset & "........ It is correct? Yes or not (y/n)")
If ConfirmOffset = "n" Then GoTo 10

ToolDia = AskTextQuestion("PCB Bottom Mode! What is the tool diameter?")
Message "Auto Zeroing X PCB Bottom Mode! Your offset is: "& Offset
Pos = ToolDia/2+8
SetDRO(0, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 X 30 F100"
While IsMoving()


Wend
Temp = GetOEMDRO(802)
SetDRO(1, 0.0000)
SetDRO(2, 0.0000)
Sleep 200
SetDRO(0, -ToolDia/2- Offset)
Sleep 200
Pos = Pos + Offset
code "G1 X"&-Pos
code "G0 Z20"
code "G0 X"&(Pos+10)&"Y"&(Pos+25)
code "G0 Z0"
End If

Message "Auto Zeroing Y PCB Bottom Mode! Your offset is: "& Offset
SetDRO(1, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
code "G31 Y-50 F100"
While IsMoving()
Sleep 200
Wend
SetDRO(1, ToolDia/2+ Offset)
Sleep 200
code "G1 Y"&Pos
code "G0 Z20"
code "G0 X"&25-Offset & "Y" & -25+Offset
Message( "Auto Zeroing Y Bottom Complete" )
End If

'******************************** QUESTION 5 *************************
7:
DoZ = AskTextQuestion("Setup zero Z (z) or just gauging? (g) or nothing (n)")
If DoZ = "z" Then GoTo 8
If DoZ = "g" Then GoTo 9
If DoZ = "n" Then GoTo 10

'******************************* Z ZEROING ***************************
8:
Message( "Auto Zeroing Z..." )
SetDRO(2, 0.0000)
Sleep 200
If IsSuchSignal (22) Then
Code "G31Z-40 F100" 'probing move, can set the feed rate here as well as how far to move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Sleep 200
Code "G0 Z20" 'put the Z retract height you want here
End If
GoTo 12

'****************************** GAUGING ******************************
9:
Message( "Gauging Z..." )

If IsSuchSignal (22) Then
Code "G31Z-40 F100" 'probing move, can set the feed rate here as well as how far to move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
Sleep 2000
Code "G0 Z"& ZProbePos +5 'put the Z retract height you want here
End If

Dim Text As String*7
Text = ZProbePos - PlateThickness
Message "Tool Gauging complete. Check the results:"&Text
GoTo 13

'**************************** BACKUP Z *******************************
10:
SetDRO(2, Temp + 20)

'***************************** ABORD *********************************
11:
Message ("Tool zeroing aborted. Try again when ready.")
GoTo 13


'***************************** COMPLETE ******************************
12:
Message "Tool zeroing complete. Check the results on the DROs."

'***************************** END ***********************************
13:
code "F"&Cur_feed 'restore starting feed rate
End Sub
Avatar de Usuario
mimi
FRESADOR CNC
FRESADOR CNC
 
Mensajes: 158
Registrado: Mar, 27 Dic 2011, 11:37
Ubicación: Madrid-Vallekas-entrevias.

Anterior

Volver a MACH

 


  • Tema relacionados
    Respuestas
    Vistas
    Último mensaje

¿Quién está conectado?

Usuarios navegando por este Foro: MSNbot Media y 1 invitado

cron