CNC PLASMA .. requiero una ayudita ..!

[juanmagaor]

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!!!!!

---

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