Messages

1

General Mach Discussion / Re: engraver control

« on: June 13, 2010, 01:44:54 PM »

ok has anybody had success with the mp1000-dthc.scriber post. i am having a hard time setting the limits in the post. i have set the offsets but the engraver is still not set with the offset that its at in relation to the plasma torch. i have included the post to see were im going wrong. i would also like to install a pause at m08 for a second or two. any help would be great. thanks

function OnAbout(event)
   ctrl = event:GetTextCtrl()
   ctrl:AppendText("plasma MP1000-THC post processor with engraver\n")
   ctrl:AppendText("Tools 100 and up are the engraver\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("M08/M09 turn the engraver on/off\n")
   ctrl:AppendText("Incremental IJ - set in mach2\n")
   ctrl:AppendText("The torch is referenced at cut start and every 500mm of movement thereafter\n")
   ctrl:AppendText("Designed for use with Mach3 and CandCNC MP1000-THC and Floating head Touch-n-Go\n")
   ctrl:AppendText("Post variables:\n")
   ctrl:AppendText("refdistance - set the distance between each reference\n")
   ctrl:AppendText("switchoffset - set your net switch offset amount \n")
   ctrl:AppendText("\nScriber uses tool numbers 100 and up")
end



--   created 1/1/06
--   Based on plasma1.post



function OnInit()

   offX = 0
   offY = 0
   offZ = 0
  

   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")
   minArcSize = 0.2 --arcs smaller than this are converted to moves

   dist = 9999999
   refdistance = 10* scale

--Put your switch offset value here
   switchoffset =.260
   lastz = 0

--Scriber X,Y,Z offsets
   scriberX = -4.803
   scriberY = -.250
   scriberZ = 2.

end

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


function OnFinish()
   endZ = 2.0
   OnRapid()
   endX = 0
   endY = 0
   OnRapid()
   post.Text (" M05 M30 G28\n")
end

function OnRapid()
   dist = dist + math.hypot((endX + offX)-currentX , (endY + offY)-currentY)
   post.ModalText (" G00")
   post.ModalNumber (" X", (endX + offX) * scale, "0.0000")
   post.ModalNumber (" Y", (endY + offY) * scale, "0.0000")
   post.ModalNumber (" Z", (endZ + offZ) * scale, "0.0000")
   post.Eol()
end

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

function OnArc()
   dist = dist + math.hypot((endX + offX)-currentX , (endY + offY)-currentY)
   if(arcAngle <0) then
      post.ModalText (" G03")
   else
      post.ModalText (" G02")
   end
   post.ModalNumber (" X", (endX + offX) * scale, "0.0000")
   post.ModalNumber (" Y", (endY + offY) * scale, "0.0000")
   post.ModalNumber (" Z", (endZ + offZ) * 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(tool > 100) then
      post.Text(" M08\n")
      return
   end
   if(dist >= (refdistance/scale)) then
      dist = 0
--      modaltext (" G00")
--      text(" Z")
--      number (pierceheight  * scale, "0.0000")
--      eol()
      post.ModalText(" G28.1 Z")
      post.Number(3 * scale, "0.00")
      post.Eol()
      post.ModalText(" G92 Z0.0\n")
      post.ModalText (" G00")
      post.Text(" Z")
      post.Number (switchoffset, "0.0000")
      post.Eol()
      post.ModalText(" G92 Z0.0\n")
      post.ModalText (" G00")
      post.Text(" Z")
      post.Number (pierceHeight  * scale, "0.0000")
      post.Eol()
   else
      post.ModalText (" G00")
      post.Text(" Z")
      post.Number (pierceHeight  * scale, "0.0000")
      post.Eol()
   end
   if (preheat > 0) then
      post.Text ("\n G04 P")
      post.Number (preheat,"0.###")
      post.Eol()
   end
   post.Text ("\n M03\n")
   if (pierceDelay > 0) then
      post.Text (" G04 P")
      post.Number (pierceDelay,"0.###")
      post.Eol()
   end
end


function OnPenUp()
   if(tool > 100) then
      post.Text(" M09\n")
      return
   end
   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 OnToolChange()
    if (tool > 100) then
        offX = scriberX
        offY = scriberY
        offZ = scriberZ
    else
        offX = 0
        offY = 0
        offZ = 0
    end
end

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

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

2

General Mach Discussion / Re: engraver control

« on: June 08, 2010, 11:10:01 PM »

thanks alot for your help. i have to edit the to not drop the plasma torch down.

3

General Mach Discussion / Re: engraver control

« on: June 08, 2010, 10:59:34 PM »

Yep that worked. now its all up to the proccessor to write the coding correct

4

General Mach Discussion / Re: engraver control

« on: June 08, 2010, 10:28:21 PM »

is that the flood and mist controls. i have flood set to output 2. if i hit the output 2 button the platemarker comes on.

5

General Mach Discussion / Re: engraver control

« on: June 08, 2010, 10:15:30 PM »

ok ive looked everywhere that i can think of and cant find coolant on/off button.  how do i config the port and pin set up  the post has it written to turn it on by m08 and m09 off. but cant get mach set up to control it. i dont want to screw anything up either

6

General Mach Discussion / Re: engraver control

« on: June 08, 2010, 12:24:27 AM »

7

General Mach Discussion / engraver control

« on: June 07, 2010, 01:09:47 PM »

OK I'm a noob to this and was wondering if anyone could help me out or point me in the right direction. i have installed a platemarker onto my bladerunner AIO controller. i am able to manually turn the plate marker on by clicking the output #2 button on the mach ubobIII screen. now my question is how do i get the plate marker to turn on and off for a g-code that's loaded. then switch back to plasma cutting within the same code. i have looked in all the manuals that i can find but I'm either looking in the wrong spot or i dont have that manual. i  am running mp1000-dthc-scriber as my post processor to do the plasma cutting and engraving.

any help with figuring this out or pointing me in the right direction would be greatly appreciated

thanks