Este foro utiliza cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; Las cookies establecidas por este foro solo se pueden utilizar en este sitio web y no representan ningún riesgo para la seguridad. Las cookies de este foro también rastrean los temas específicos que ha leído y cuándo los leyó por última vez. Confirme si acepta o rechaza la configuración de estas cookies.

Se almacenará una cookie en su navegador independientemente de su elección para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de las cookies en cualquier momento utilizando el enlace en el pie de página.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
CNC PLASMA .. requiero una ayudita ..!
#1
Hola, ahora si, en mi "segundo post" viene el mangazo ... estoy necesitando ayuda para acomodar unas cosas en mi cnc plasma y de paso aprender un poco.
Ya tengo la torcha modificada ( compartido con el grupo ), mi cabezal flotante ( armando el pdf para compartir ), instalado el THC ( resta configurar ), modifiado el plasma para conexion del thc (para compartir con el grupo)  y me surgen algunas dudas que voy a tratar de enumerar.

Para cortar "a pelo", es decir sin control de altura variable del eje Z (lo que me impediría trabajar con elementos irregulares) la cnc ya anda muy bien. Por eso es que necesito poder configurar MACH3 + MACRO DE SENSADO DE CHAPA AL INICIO DE CADA CORTE (G1) + THC.

1.- Macro: ya tengo una preparada que funciona bien junto al cabezal flotante pero solo la puedo usar a través del control de "operador -- vbscript" (primera imagen) creo que debo modificar un postprocesador que llame esta macro desde el codigo G al momento de preparar el corte pero NO SE COMO.
   

2.- Software de corte: Despues de muchas pruebas me quede con sheetcam, me permite mas opciones que el resto y es bastante friendly user.

3.- THC: Tengo uno que se comercializa en Argentina por unos 60/70 usd, de producción nacional que aparentemente andaría muy bien. Mientras lo configuraba hace unos meses me quede sin insumos y luego se postergo el proyecto que ahora retomo.

4.- Plasma es un Gladiator pro 807/15/220 de 40a que para mis necesidades de hobista debe ir sin problemas.

TODO ESTO ES LO QUE YA TENGO RESUELTO. AHORA MIS DUDAS / INQUIETUDES / PROBLEMAS SIN RESOLVER.

1.- MACRO: No entiendo como llamarla desde el codigo G.
2 .- SOFTWARE: Sheetcam tiene unos dos mil postprocesadores, no termino de identificar el adecuado para la tarea.
3.- THC: Entiendo perfectamente como configurarlo y en alguna medida como funciona (cualquiera de ellos) lo que no entiendo al tener las maquinas monofasicas hogareñas tan baja altura de corte ( un mm o menos) y no tener arco piloto ( lo que obliga a "cablear" la masa a la punta de la tobera ) como efectuar la configuración sin romper 100 consumibles (unos 500 dolares aca). 
No entiendo, o mejor dicho desconozco, si el acto de llevar la maza directamente a la punta de la tobera "anula" en cierta medida la función del THC (que se supone que varia la tensión y trabaja sobre el eje Z en función del voltaje del arco) y en este caso no termino de entender como se resolvería este tema.

Bueno saludos y espero que algún forero con mas experiencia me pueda orientar en estos temas.

PD: edito y agrego la guía para modificar el interior del plasma de corte. 

.pdf   modificar plasma.pdf (Tamaño: 421.76 KB / Descargas: 13)
Responder
#2
Hola veo que el mensaje ya tiene unos dias y seguramente ya lo tienes resuelto, yo me hice una fresadora CNC y le hice la posibilidad de poenrle una cama de agua y sobre el spindle de fresar le adapte un eje z flotante , uso sheetcam y yo con el eje flotante uso este que te pongo aqui. El original seria el Mach3 flame with THC G31 modificado.

function OnAbout(event)
  ctrl = event:GetTextCtrl()
  ctrl:AppendText("plasma THC300 post processor\n")
  ctrl:AppendText("\n")
  ctrl:AppendText("Modal G-codes and coordinates\n")
  ctrl:AppendText("Comments enclosed with ( and )\n")
  ctrl:AppendText("M03/M05 turn the torch on/off\n")
  ctrl:AppendText("Incremental IJ\n")
  ctrl:AppendText("The torch is referenced at cut start and every 500mm of movement thereafter\n")
  ctrl:AppendText("Designed for use with Mach2 and Campbell Designs THC300\n")
  ctrl:AppendText("Post variables:\n")
  ctrl:AppendText("refdistance - set the distance between each reference\n")
end



--  revision 3/2/07
--  Removed final safety move. This is now done in SheetCam

--  revision 7/10/05
--  Added new arc handling

--  created 27/10/04
--  Based on plasma1.post



function OnInit()

  post.SetCommentChars ("()", "[]")  --make sure ( and ) characters do not appear in system text
  post.Text (" (Filename: ", fileName, ")\n")
  post.Text (" (Post processor: ", postName, ")\n")
  post.Text (" (Date: ", date, ")\n")
  if(scale == metric) then
      post.Text (" G21 (Units: Metric)\n") --metric mode
  else
      post.Text (" G20 (Units: Inches)\n") --inch mode
  end
  post.Text (" G53 G90 G40\n F1\n S500\n")

  dist = 9999999
  refdistance = 50 * scale
  switchoffset = -16.53
  bigarcs = 1 --stitch arc segments together
  minArcSize = 0.05 --arcs smaller than this are converted to moves
end

function OnNewLine()
  post.Text ("N")
  post.Number (lineNumber, "0000")
  lineNumber = lineNumber + 10
end


function OnFinish()
  post.Text (" M05 M30\n")
end

function OnRapid()
  if(math.hypot(endX-currentX , endY-currentY) < 0.001 and endZ < currentZ) then return end
  dist = dist + math.hypot(endX-currentX , endY-currentY)
  post.ModalText (" G00")
  post.ModalNumber (" X", endX * scale, "0.0000")
  post.ModalNumber (" Y", endY * scale, "0.0000")
  post.ModalNumber (" Z", endZ * scale, "0.0000")
  post.Eol()
end

function OnMove()
  dist = dist + math.hypot(endX-currentX , endY-currentY)
  post.ModalText (" G01")
  post.ModalNumber (" X", endX * scale, "0.0000")
  post.ModalNumber (" Y", endY * scale, "0.0000")
  post.ModalNumber (" Z", endZ * scale, "0.0000")
  post.ModalNumber (" F", feedRate * scale, "0.###")
  post.Eol()
end

function OnArc()
  dist = dist + math.hypot(endX-currentX , endY-currentY)
  if(arcAngle <0) then
      post.ModalText (" G03")
  else
      post.ModalText (" G02")
  end
  post.NonModalNumber (" X", endX * scale, "0.0000")
  post.NonModalNumber (" Y", endY * scale, "0.0000")
  post.ModalNumber (" Z", endZ * scale, "0.0000")
  post.Text (" I")
  post.Number ((arcCentreX - currentX) * scale, "0.0000")
  post.Text (" J")
  post.Number ((arcCentreY - currentY) * scale, "0.0000")
  post.ModalNumber (" F", feedRate * scale, "0.0###")
  post.Eol()
end


function OnPenDown()
  if(dist >= (refdistance/scale)) then
      dist = 0
      post.ModalText(" G31 Z -100")
      post.ModalNumber (" F", 500 * scale, "0.0###")
      post.Eol()
      post.ModalText(" G92")
      post.NonModalNumber(" Z", switchoffset, "0.0000")
      post.Eol()
      post.CancelModalNumbers()
  end
--[[  post.ModalText (" G00")
  post.ModalNumber (" X", endX * scale, "0.0000")
  post.ModalNumber (" Y", endY * scale, "0.0000")
  post.Eol()]]
  if (preheat > 0) then
      post.ModalText (" G00")
      post.ModalNumber (" Z", cutHeight * scale, "0.0000")
      post.Eol()
      post.Text(" M801\n G04 P 0.5\n M802\n G04 P0.1\n M902")
      post.Text ("\n G04 P")
      post.Number (preheat,"0.###")
      post.Eol()
  end
  post.ModalText (" G00")
  post.ModalNumber (" Z", pierceHeight * scale, "0.0000")
  post.Text ("\n M03\n")
  if (pierceDelay > 0) then
      post.Text (" G04 P")
      post.Number (pierceDelay,"0.###")
      post.Eol()
  end
end


function OnPenUp()
  post.Text (" M05\n")
  if (endDelay > 0) then
      post.Text (" G04 P")
      post.Number (endDelay,"0.###")
      post.Eol()
  end
end


function OnNewOperation()
  post.Text (" (Process: ", operationName, ")\n")
  if (plungeRate <= 0) then
      post.Warning("WARNING: Plunge rate is zero")
  end
  if (feedRate <= 0) then
      post.Warning("WARNING: Feed rate is zero")
  end
end

function OnComment()
  post.Text(" (",commentText,")\n")
end

function OnToolChange()
  post.Text (" M06 T")
  post.Number (tool, "0")
  post.Text ("  (", toolName, ")\n")
end

function OnNewPart()
  post.Text(" (Part: ",partName,")\n");
end

function OnDrill()
  OnRapid()
  OnPenDown()
  endZ = drillZ
  OnMove()
  OnPenUp()
  endZ = safeZ
  OnRapid()
end

No recuerdo de donde lo saque porque navegue por mil sitios, habia muy poca info. Te comento que yo no tengo THC pero con este post me va de coña, si me pasas tu correo te lo puedo mandar. Tambien puedes usar el Aspire, de casualidad lo probe y funciona bien como si fuera una fresadora , de locos!!!
Que alegria encontrar otro loco con plasma cnc!!!!! Big Grin Big Grin Big Grin

te paso video donde puedes ver eje z flotante hay miles de ejemplos yo lo hice con impresora 3d

https://www.youtube.com/shorts/Dz9ep77_rZA


un saludo!!!

https://www.youtube.com/shorts/cpmGAyqu67E
Responder


Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)