Autor Tema: Sonda Cero para fresadora X6-1500GT  (Leído 2799 veces)

Naki2

  • Visitante
Sonda Cero para fresadora X6-1500GT
« en: 09 Febrero 2015, 11:35 »
Aupa

He decidido cambiar la sonda conductiva que trae la máquina por otra a base de un pulsador antivandálico.
El problema con las sondas conductivas es que si tienes el final de la fresa con un poco de viruta, o sucia, ésta no hará contacto en la sonda, y el script que hace el cero a base de mover el eje Z hacia abajo no para... estrellando nuestra herramienta contra la sonda.
Me ha pasado pocas veces, pero me ha pasado... y o destrozas la sonda o destrozas la herramienta y, en cualquier caso haces que el eje Z sufra un bloqueo importante hasta que atinas a darle a la seta de emergencia para pararlo.

Asi que he comprado un pulsador en ebay:



Y le he construido una caja-soporte en metacrilato:


Vista explosionada del chisme:


Y este es el aspecto del chisme ya acabado:


Os pongo aqui un vídeo del proceso de fresado, (pelin aburrido pero no sé, igual le interesa a alguno):

https://www.youtube.com/watch?v=75dqXdbQJg8

Y aqui, más info del proyecto y los ficheros CAD para descargar: Sonda cero para la fresadora X6-1500GT

borondes2010

  • Visitante
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #1 en: 13 Febrero 2015, 15:05 »
Buen trabajo.. si estas contento con el resultado .palmas pues siempre es bueno adaptar las cosas al uso personal de cada uno .bien .brinda

Naki2

  • Visitante
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #2 en: 13 Febrero 2015, 18:29 »
Pues bastante contento con el chisme!
Juer, el otro día me puse a grabar un video de las pruebas... y tras unos 10 minutos de charlas y de filmación, cuando voy a echar mano del video para subirlo a Youtube me encuentro con que en lugar de grabar vídeo lo que hice fue sacar una foto... joder, que rabia :)

Voy a ver si filmo otra vez las pruebas para que se vea el chisme en funcionamiento.

Naki2

  • Visitante
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #3 en: 13 Febrero 2015, 19:32 »
Bueno, ya le ha costado subir el vídeo de las pruebas, aqui está:

https://www.youtube.com/watch?v=MzvpJ-eo5q8

Desconectado frajagal

  • Aprendiz
  • *
  • Join Date: Oct 2010
  • Mensajes: 504
  • Ubicación: Córdoba-España
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #4 en: 14 Febrero 2015, 08:56 »
gracias por compartir esta modificacion, ¿que codigo VB has utilizado?

un saludo

Naki2

  • Visitante
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #5 en: 14 Febrero 2015, 09:20 »
gracias por compartir esta modificacion, ¿que codigo VB has utilizado?

De nada, para eso estamos!

Pues tras usar unos cuántos de los que circulaban por ahi, deseché todos y me hice el mío, tal como me gustaba/necesitaba.

Es algo similar a esto:
Código: [Seleccionar]
Rem VBScript Para hacer cero en Z con la sonda cero
Rem www.parecefacil.com


cRecorridoMaximo =51 'Distancia máxima a bajar buscando la sonda (50 mm)
cRetroceso =1 'Distancia a retroceder para hacer la pasada lenta (1mm)
cFRapido   =800 'F para bajar rápido
cFLento =20 'F para bajar lento y detectar el cero


If GetOemLed (825) <> 0 Then 'si la sonda está pulsada, mostramos error y no seguimos
    Message "(ERROR: La sonda cero está activada antes de empezar!!)" 'esto se vera en la status bar como mensaje
Else

ZRef = GetOEMLed(809) 'TRUE si el eje Z NO está referenciado

If ZRef <> 0 Then
  Message "ERROR: El Eje Z debe estar referenciado"
Else

  AlturaDeSonda = GetUserDRO(1151) 'Obtiene la altura de sonda
  CurrentFeed = GetOemDRO(818) 'Obtiene el F actual

  Rem Primera deteccion bajando rápido:
  Code "F" & cFRapido  
 
  ZNew = GetDro(2) - cRecorridoMaximo 'Cordenada Z meta de la sonda

  Code "G31Z" &ZNew
  While IsMoving() 'Esperamos a que la sonda se active
  Wend

  ZNew = GetVar(2002) 'Obtenemos coordenada Z de donde ha tocado

  Rem subimos un trozo para volver a bajar lento:
  code "G0Z" & ZNew + cRetroceso 'Retrocedemos cRetroceso hacia arriba

  Rem Y Bajamos lento:
  Code "F" & cFLento 'Bajamos hacia la sonda, pero lentamente
  ZNew = GetDro(2) - (cRetroceso+1)

  Code "G31Z" &ZNew
  While IsMoving() 'Esperamos a que la sonda se active
  Wend
   
  ZCero = GetOemDRO( 85 ) 'Obtenemos Z (de máquina, no relativa) del cero detectado
  Message "Z Absoluta detectada:" &ZCero

  Call SetDro (2, AlturaDeSonda) 'Hacemos el cero de eje z en el alto de la sonda
  Code "G4 P0.25" 'Pausa

  Code "F" &CurrentFeed 'Volvemos a poner el F que habia antes de empezar el script

  Rem Movemos el Z a posicion de Home:
  z = GetOemDRO( 192 ) 'Obtenemos la Z de posicion de home
  code "G0G53Z" & z
End If 
End If                                 

Desconectado frajagal

  • Aprendiz
  • *
  • Join Date: Oct 2010
  • Mensajes: 504
  • Ubicación: Córdoba-España
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #6 en: 15 Febrero 2015, 08:33 »
Muchas gracias, habra que probarlo.

Un saludo

Naki2

  • Visitante
Re:Sonda Cero para fresadora X6-1500GT
« Respuesta #7 en: 16 Febrero 2015, 08:59 »
Otro vídeo de cómo ajustar la altura de la sonda justo en el punto donde se activa el pulsador:

https://www.youtube.com/watch?v=NehUWz-wnhQ

Y más info sobre ésto en:
http://parecefacil.com/sonda-cero-para-la-fresadora-x6-1500gt-parte-2/