function OnAbout(event) ctrl = event:GetTextCtrl() ctrl:AppendText("BEEFYS MODIFIED Mach3 plasma 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") end -- revision 3/2/07 -- Removed final safety move. This is now done in SheetCam -- revision 7/10/05 -- Added new arc handling -- revision 11/7/05 -- Moved torch to cut height when preheating -- Added dummy spindle speed to prevent Mach2 throwing a zero spindle speed error -- revision 9/10/04 -- Added preheat -- revision 28/6/04 -- Replaced startx,y,z with currentx,y,z -- created 28/5/04 -- Based on Mach2 metric.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 (" G90\n F1\n") 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() 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() 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.0###") post.Eol() end function OnArc() 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 (preheat > 0.001) then post.ModalText (" G00") post.ModalNumber (" Z", cutHeight * scale, "0.0000") post.Text ("\n G04 P") post.Number (preheat,"0.###") post.Eol() end Reference() post.ModalText (" G00 Z") post.Number (pierceHeight * scale, "0.0000") post.Text ("\n M03\n") if (pierceDelay > 0.001) then post.Text (" G04 P") post.Number (pierceDelay,"0.###") post.Eol() end end function Reference() post.ModalText(" G28.1 Z15") --ENTER Z VALUE TO SUIT post.Eol() post.ModalText(" G92 Z0.0\n") post.ModalText (" G00") post.Text(" Z") post.Number (0.4, "0.0000") --ENTER SWITCH OFFSET (FIRST PARAMETER) post.Eol() post.ModalText(" G92 Z0.0\n") 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 (" (Operation: ", operationName, ")\n") end function OnComment() post.Text(" (",commentText,")\n") end function OnToolChange() post.Text (" M06 T") post.Number (tool, "0") post.ModalNumber(" F",feedRate * scale,"0.0###") post.Text (" (", toolName, ")\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 OnNewPart() post.Text(" (Part: ",partName,")\n"); end function OnDrill() OnRapid() OnPenDown() endZ = drillZ OnMove() OnPenUp() endZ = safeZ OnRapid() end