--************************************************ --*** Set these values up to suit your machine *** -- Values set HERE are in MM. If the value can be set in SheetCAM it is in the UNITS (MM or Inches) you have in SheetCAM --************************************************ refDistance = 25 --this is the distance between each torch reference in MILLIMETRES.(can be set from POST Options button in UNITS) lineNumber = 0 --set this to 1 if you want the G-Code to have assigned line numbers on each line. Default is 0 for LinuxCNC minLength = 0 -- default minumum length of cut for DTHC operation (set dynamically) dthcTune = 1 -- set this to 1 if you are using the new DTHCIV and want variable tuning of Z response from code fullTAP = 1 --set this to 1 for TAP via Hypertherm RS485 (requires options) plasmaDrill = 1 --set this to 1 to use a plasma for a drill tool . Set it to 0 to use a drill or router bit warnings = true -- set this to false to turn off the Check Parameters warnings on a toolchange verbose = true -- set this to false to turn off the G-Code comments (except code snips) -- make sure you have the PROBE input in LINUXCNC Input Signals enabled and mapped to the probe switch input startCode = " M3 S100" --S command needed for LINUXCNC noTouchOff = false -- set to true if you want to run in simulation without touchoffs. Normal setting would be false extTOff = true -- set this to true to use a subroutine in CommandCNC to call a touch off sequence and apply the external switchoffset value. -- Leave this at "true" for commandCNC versions 0.6.0 and later --Scriber X,Y,Z offsets in MILLIMETRES. Do not use inches here even if you want inch code --For the marker use the scriber Z as the offset from Z zero you want the Z to move to during a scribe. --Change these values to suit your scriber setup scriberX = 25 scriberY = 25 scriberZ = 50 --scriber axis. Leave this as nil if the scriber is fixed to the same axis as the torch scriberAxis = nil --drill tool for Z axis drilling (not center peck with plasma)used with plasmaDrill set to 0] PenMarkerX = 25 PenMarkerY = 25 PenMarkerZ = 50 drillOffsetX = 25 drillOffsetY = 25 drillOffsetZ = 50 drillAxis = " Z" --if altternate Z axis is used this needs to be the Axis letter of that axis -- new Output control codes added 4/18 for new EBOB --these turn outputs on and off directly (not for torch or first two: Mist and Flood) DirectOutPut4On = " M64 P4 " DirectOutPut4Off = " M65 P4 " DirectOutPut5On = " M64 P5 " DirectOutPut5Off = " M65 P5 " DirectOutPut6On = " M64 P6 " DirectOutPut6Off = " M65 P6 " DirectOutPut7On = " M64 P7 " DirectOutPut7Off = " M65 P7 " DirectOutPut8On = " M64 P8 " DirectOutPut8Off = " M65 P8 " Output1_ON = " M3" Output2_ON = " M7" Output3_ON = " M8" Output1_OFF = " M5" Output2_OFF = " M9" Output3_OFF = " M9" --this value when set to "true" will set the Z to lift to rapid height between paths when using the marker tool. --if false it will not lift the Z between paths but will at the end markerZ = false drillZ = .250 --these codes are for the DCC extensions for Commandcnc and turn the DTHC on/off if you have DTHCII REV1.4 or DTHCIV REV1.6 or higher firmware. Used with --ALL DTHCIV units running with CommandCNC dynthcOnCode = " M67 E0 Q20" dynthcOffCode = " M67 E0 Q10" statthcONCode = " M68 E0 Q20" statthcOffCode = " M68 E0 Q10" --****************************************************************************************************************************************** -- do not change the following values unless you are told to do so by an experienced LinuxCNC user or vendor of your controller or table toolTrack = .254 -- Default .254 mm. This is the blending tolerance in MM (deviation from toolpath) the Path Blending allows. -- Lower numbers favors tight tracking over the defined feedrate (slows down) toolTolerance = .0254 -- Default .0254 mm.T his is the linear tolerance for multiple nodes in the same toolpath. -- Lower numbers cause nodes out of line by less than the toolTolerance amount to be a single line --******************************************************************************************************************************************* --************************************************************************** --*** End of settings *** --*** DO NOT CHANGE ANYTHING BELOW THIS LINE *** --************************************************************************** function OnAbout(event) ctrl = event:GetTextCtrl() ctrl:AppendText("Custom Post for CommadnCNC for Linux: \n") ctrl:AppendText("For CandCNC Linux Hardware \n") ctrl:AppendText("with/without Plate Marker\n") ctrl:AppendText("Added support for marker pen and drill head \n") ctrl:AppendText("Supports Full Automation for Plasma with Hypertherm RS485 Option \n") ctrl:AppendText("Adds options for SOFT PIERCE , MIN CUT LENGTH, PECK PIERCE and SOFT PECK\n") ctrl:AppendText("Use with SheetCAM TNG version 6.0.20 or higher or Development (Linux) ver 6.1.16 \n") ctrl:AppendText("Designed for use with LINUXCNC version 1.0.3 or later and CandCNC DTHCIV with Floating head Touch-n-Go\n") local window = ctrl:GetParent() local btn = wx.wxButton(window, wx.wxID_ANY, "Set custom post options") btn:Connect(wx.wxID_ANY, wx.wxEVT_COMMAND_BUTTON_CLICKED, OnButton) ctrl:GetContainingSizer():Insert(2, btn, 0, wx.wxALL, 5) end post.DefineVariable("cutDistance",sc.unitLINEAR,0,1e17) post.DefineVariable("slowPercent",sc.unitPERCENT,-1e17,1e17) if(fullTAP > 0) then post.DefineCustomToolParam("JetOperation", "Soft Pierce %", "softPierce", sc.unit0DECPLACE,100, 30, 100) post.DefineCustomToolParam("PlasmaTool", "Preset current", "presetAmps", sc.unit0DECPLACE, 45, 10, 200) post.DefineCustomToolParam("PlasmaTool", "Preset Air Pressure", "presetPSI", sc.unit0DECPLACE, 75, 50, 100) else softPierce = 0 presetAmps = 0 presetPSI = 0 end post.DefineCustomToolParam("PlasmaTool", "Preset volts", "presetVolts", sc.unit0DECPLACE, 49, 0, 200) post.DefineCustomToolParam("PlasmaTool", "DTHC delay -sec", "dthcDelay", sc.unit2DECPLACE, 1, 0, 99) post.DefineCustomToolParam("PlasmaTool", "Tip Size -Amps", "tipSize", sc.unit0DECPLACE, 45, 10, 200) post.DefineCustomToolParam("JetOperation", "Disable DTHC this OP ", "dthcOff", sc.unitBOOLEAN, 0, 0, 1) --1 is checked (off) post.DefineCustomToolParam("JetOperation", "Use AutoSet ", "autoSet", sc.unitBOOLEAN, 1, 0, 1) --1 is checked (on) post.DefineCustomToolParam("JetOperation", "Min Cut Length for DTHC", "minLength", sc.unit1DECPLACE, 1, .0, 100) post.DefineCustomToolParam("FlameTool", "Set Z Zero Manually ? - 1 is YES", "manualZSet", sc.unit0DECPLACE, 0, 1, 1) -- post.DefineCustomToolParam("JetOperation", "Toolpath tracking", "toolTrack", sc.unit3DECPLACE, .010, .0, .100) if (toolTrack) then --nothing else toolTrack = .001 end if (dthcTune > 0 ) then --post.DefineCustomToolParam("JetOperation", "DTHCIV Response Profile", "dthcTune", sc.unit0DECPLACE, 1, 0, 9) end if(plasmaDrill > 0) then --this is a peck drill using plasma torch like a drill tool if(fullTAP > 0) then post.DefineCustomToolParam("DrillOperation", "Preset Current Amps", "presetAmps", sc.unit0DECPLACE, 45, 0, 200) post.DefineCustomToolParam("DrillOperation", "Preset Air Pressure PSI", "presetPSI", sc.unit0DECPLACE, 75, 0, 200) else softPierce = 0 presetAmps = 0 presetPSI = 0 end post.DefineCustomToolParam("DrillOperation", "Peck Delay Sec", "peckPierce", sc.unit2DECPLACE, 0, 0, 1) post.DefineCustomToolParam("DrillOperation", "Soft Mark Percent", "softPeck", sc.unit0DECPLACE, 50, 10, 100) end post.DefineCustomOption("Ref Distance", "refDistance", sc.unitLINEAR, 0, 10000) -- post.DefineCustomOption("Switch Offset", "switchOffset", sc.unitLINEAR, 0, 10000)--took this out to remove swtichOffset from Custom Post Options in LINUX function OnButton(evt) post.ShowCustomOptions("Post settings") end 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 (" F10.0\n G90 G40\n") post.Text (" G64 P") post.Number (toolTrack * scale, "0.000") post.Text(" Q") post.Number (toolTolerance * scale, "0.000") post.Text (" (tracking tolerances set to " , toolTrack * scale, ") \n") -- check all of the DCC variables to make sure there are no nulls if(dthcOff) then --don't do anything else dthcOff = 0 --don't pass a null end if(presetVolts) then --don't do anything else presetVolts = 0 --don't pass a null end if(dthcDelay) then --don't do anything else dthcDelay = 0 --don't pass a null end if(tipSize) then --don't do anything else tipSize = 25 --don't pass a null end if(presetAmps) then --don't do anything else presetAmps = 0 --don't pass a null end if(presetPSI) then --don't do anything else presetPSI = 0 --don't pass a null end if(softPierce) then --don't do anything else softPierce = 100 --don't pass a null end if(entityLength) then --don't do anything else entityLength = 0 --don't pass a null end if plungeSafety < 10 then --minimum plungeSafety clearance is 9mm plungeSafety = 10 end if safeZ <= plungeSafety then --Rapid claearnce has to be greater than plunge safety or we set it to double safeZ = plungeSafety * 2 end off2X = .0254 off2Y = .0254 newOp = false minArcSize = 0.2 --arcs smaller than this are converted to moves firstRef = true currentZAxis = "Z" finalCut = false dist = 9999999 lastz = 0 post.Text (statthcOffCode)--turn off the DTHC no matter the state post.Eol() thcstate = 0 softPeck2 = 0 end function OnNewLine() if (linenumber == 1) then post.Text ("N") post.Number (lineNumber, "0000") lineNumber = lineNumber + 10 else post.Text (" ") end end local function round(x, n)--added by TLC --n = math.pow(10, n or 0) x = x * 100 if x >= 0 then x = math.floor(x + 0.5) else x = math.ceil(x - 0.5) end return x / n end function OnFinish() finalCut = true endXRND = round(endX, 100) endYRND = round(endY, 100) curXRND = round(currentX, 100) curYRND = round(currentY, 100) if (endXRND == curXRND) and (endYRND == curYRND) then --see if the current X and Y position is the same final move post.Text (" (No Parking values detected. Moving back to zero, zero)\n ") endX = 0 endY = 0 else post.Text (" (End of job , noving to predefined Parking position)\n ") end if endZ > safeZ then --use the largest number --nothing else endZ = safeZ end offX = 0 offY = 0 offZ = 0 OnRapid()--make the final rapid move if(toolClass == "FlameTool")then -- do not turn the global DTHC ON --do nothing else post.Text(" M68 E0 Q900 \n") --resets global DTHC to ON end post.Text(statthcOffCode) post.Text(" (DTHC is off)\n"); post.Text(" G4 P.2 \n") post.Text (" M5 M30\n") end function OnRapid() if(endX < 1e17 and endY < 1e17) then --don't update the distance moved if X or Y are unknown local len = math.hypot((endX + offX)-currentX , (endY + offY)-currentY) dist = dist + len end post.ModalText (" G0") post.ModalNumber (" X", (endX + offX) * scale, "0.000") post.ModalNumber (" Y", (endY + offY) * scale, "0.000") if(toolClass == "MarkerTool") then if(finalCut == true) or (markerZ == true) then --check to see if its the final cut or if the option to lift between cuts is on if (firstRef == true) then -- if this is a refenrence touch off then just lift Z to normal rapid height post.ModalNumber (" Z", safeZ * scale, "0.000")--raise the Z to the rapid Z height plus the Rapid Z) else if (toolName == "PenMarker") then --if this is a penmarker we use that defined offset for Z post.ModalNumber (" Z", (safeZ + PenMarkerZ) * scale, "0.000")--raise the Z to the rapid Z height plus the offset) else post.ModalNumber (" Z", (safeZ + scriberZ) * scale, "0.000")--raise the Z to the rapid Z height plus the Rapid Z) --post.Text (" (added offz in onrapid)") end end else --Should not move Z if it's not the final cut and markerZ is false --post.ModalNumber (" Z", offZ * scale, "0.000") --just stay at the normal scriber offset end finalCut = false else --this is not a marker tool if(firstRef == true) or (dist >= refDistance) then post.ModalNumber (" Z", safeZ * scale, "0.000") else post.ModalNumber (" Z", endZ * scale, "0.000") end end -- end marker tool post.Eol() end -- end on Rapid Function function OnMove() local len = math.hypot(endX - currentX , endY - currentY) dist = dist + len if (toolName ~= "CenterPunch") then if(toolClass == "MarkerTool") then post.ModalText (" G1") post.ModalNumber (" Z", (endZ + offZ) * scale, "0.000") post.ModalNumber (" F", feedRate * scale, "0.0##") post.Eol() post.ModalNumber (" X", (endX + offX) * scale, "0.000") post.ModalNumber (" Y", (endY + offY) * scale, "0.000") post.Eol() else post.ModalText (" G1") post.ModalNumber (" X", (endX + offX) * scale, "0.000") post.ModalNumber (" Y", (endY + offY) * scale, "0.000") post.ModalNumber (" Z", (endZ + offZ) * scale, "0.000") post.ModalNumber (" F", feedRate * scale, "0.0##") post.Eol() -- no DTHC stuff should be done for marker tools if (fullTAP > 0 ) then if (softPierce >0 ) then piercePlunge = 1 piercePlunge = (softPierce /100) feedRate2 = (feedRate * piercePlunge) -- lower the feedrate for soft pierce end else feedRate2 = feedRate end -- end TAP if(endZ < currentZ and endZ == cutHeight) then --this is a Z move on plunge post.ModalNumber (" F", feedRate2 * scale, "0.0###") post.Eol() if(dthcOff == 0 and entityLength * scale > minLength) then --global DTHC is ON and min cut length is OK DynThcOn()--turn on THC at bottom of Z plunge . This moves AMPs back to 100% . else if (softPierce > 0) then -- in case its set the softpierce in pendown and the min cut rule is active so we need to set the DTHC off with AMPs at 100% post.Text(dynthcOffCode)--turn off THC at bottom of Z plunge and set AMPS back to 100% post.Eol() end end else post.ModalNumber (" F", feedRate * scale, "0.0###")--this only runs if if its not a plunge from pierece height post.Eol() if(dthcOff == 0 and entityLength * scale > minLength) then --nothing else DynThcOff()-- takes amps back to 100% with DTHC off end end end end end --end of OnMove function function OnArc() local radius = math.hypot(currentX - arcCentreX, currentY - arcCentreY) dist = dist + radius * math.abs(arcAngle) if(arcAngle <0) then post.ModalText (" G3") else post.ModalText (" G2") end post.ModalNumber (" X", (endX + offX) * scale, "0.000") post.ModalNumber (" Y", (endY + offY) * scale, "0.000") post.Text (" I") post.Number ((arcCentreX - currentX) * scale, "0.000") post.Text (" J") post.Number ((arcCentreY - currentY) * scale, "0.000") post.ModalNumber (" F", feedRate* scale, "0.0###") post.Eol() end -- end OnArcfunction function DynThcOff() --Dynamic THC on/off is used when sync with motion is needed if(not dynthcOffCode) then return end if(thcstate ==1) then thcstate = 0 post.Text(dynthcOffCode) if (verbose == true) then post.Text(" (DTHC is off)"); end post.Eol() end end function DynThcOn() if(not dynthcOnCode) then return end if(toolClass == "MarkerTool") or (toolClass == "FlameTool") then return end if(thcstate ==0) then thcstate = 1 post.Text(dynthcOnCode) if (verbose == true) then post.Text(" (DTHC is on)"); end post.Eol() return end if(thcstate == 2) then thcstate = 0 end end function StatThcOff() --static THC ON/OFF is used when the THC is to be turned on/off when there is no subsequent motion move if(not statthcOffCode) then return end if(thcstate ==1) then -- if its not on it won't turn it off thcstate = 0 post.Text(statthcOffCode) if (verbose == true) then post.Text(" (DTHC is OFF)\n"); else post.Eol() end post.Eol() post.Text (" G4 P.1 ") post.Eol() end end function StatThcOn() if(not statthcOnCode) then return end if(toolClass == "MarkerTool") or (toolClass == "FlameTool") then return end if(thcstate ==0) then thcstate = 1 post.Text(statthcOnCode) if (verbose == true) then post.Text(" (DTHC is ON)\n"); else post.Eol() end post.Text (" G4 P.1 ") post.Eol() return end if(thcstate == 2) then thcstate = 0 end end function OnPenDown() if (toolClass == "DrillTool") then -- which is a plasma peck or drill process if (plasmaDrill == 1) then --see if its a plasmadrill if (firstRef == true) then Reference() offX = 0 -- no offsets for plasma peck offY = 0 offZ = 0 post.Text (" G0 Z1.000 \n")-- raise up and fire the torch for 1/2 sec to cycle torch post.Text (startCode.. "\n") post.Text (" G4 P.50 \n") post.Text (" M5") post.Eol() offZ = (drillStart/(-1) ) post.ModalNumber(" Z", offZ * scale, "0.000") -- now we need to drop and pierce the first hole post.Eol() post.Text (startCode.. "\n") if (peckPierce ) then post.Text (" G4 P", peckPierce) post.Text (" (Peck delay time)") post .Eol() end else -- not first ref post.ModalText(" G1") post.ModalNumber(" Z", offZ * scale, "0.000") --move Z down to pierce height prior to firing torch post.Text (" F", plungeRate * scale) post.Eol() post.Text(startCode.. "\n") if (peckPierce ) then post.Text (" G4 P", peckPierce) post.Text (" (Peck delay time)") post .Eol() end end --first ref else -- not plasma drill. regular drill if (firstRef == true) then Reference()--uses torch tip (ohmic) for touch off offX = drillOffsetX offY = drillOffsetY offZ = drillOffsetZ post.Text (" (Drill Motor - drill bit)") post.Eol() post.NonModalNumber ("(Drill: X offset = " , drillOffsetX * scale, "0.000") post.NonModalNumber (" Drill: Y offset = " , drillOffsetY * scale, "0.000") post.NonModalNumber (" drill: Z offset = " , drillOffsetZ * scale, "0.000") post.Text (")") post.Eol() end --end first ref check post.Text (" G0")--this is not an onrapid move so the movements have to be defined post.ModalNumber (" X", (currentX + offX) * scale, "0.000") post.ModalNumber (" Y", (currentY + offY) * scale, "0.000") post.NonModalNumber (" Z", (currentZ + offZ) * scale, "0.000")--lift the Z before the offset move post.Text (" (move to offsets)") post.Eol() post.NonModalNumber (" Z", offZ * scale, "0.000")--drop the Z to the scriber offset height. post.Text (" (Z move to drill height)") post.Eol() post.Text( "",( Output3_ON),"") --fire the marker on an engraver post.Text(" (turn on Drill Motor Marker)\n") post.Eol() onDrill() -- call the drlling routine end --end check for plasma drill or regular drill end -- end Drilltool check if (toolClass == "MarkerTool") then -- and (toolName == "CenterPunch") or (toolName == "PenMarker") then punchDown = true if (toolName =="CenterPunch" ) then offX = scriberX offY = scriberY offZ = scriberZ post.Text (" (Center punch tool)") post.Eol() elseif (toolName =="PenMarker" ) then offX = PenMarkerX offY = PenMarkerY offZ = PenMarkerZ post.Text (" (Pen marker tool)") post.Eol() else --it's not special center punch tool or Penmarker, so it's a pneumatic plate marker offX = scriberX offY = scriberY offZ = scriberZ post.Text (" (Plate marker - engrave tool)") post.Eol() end --end plate marker if (firstRef == true) then --this runs a reference at the first but not afterwards Reference() end post.Text (" (offset move for punch/marker/scriber)") post.Eol() post.Text (" G0") --this is not an onrapid move so the movements have to be defined post.NonModalNumber (" X", (currentX + offX) * scale, "0.000") post.NonModalNumber (" Y", (currentY + offY) * scale, "0.000") post.NonModalNumber (" Z", (currentZ + offZ) * scale, "0.000") --drop the Z to the scriber offset height. post.Eol() post.Text(" (turn on Plate Marker)\n") post.Text(" ", Output2_ON, "\n") --fire the marker on an engraver if (toolName =="PenMarker" ) then post.Text(" ", Output3_ON, "\n") --pen marker requires this output on as well end if (plasmaDrill == 0) then --its a drill tool and needs to turn on aux outout post.Text("", Output2_ON, "") --fire the marker on an engraver post.Text(" (turn on Plate Marker)\n") if (pierceDelay > 0) then --added 4-17 for plate marker delay after firing . StartDelay = PierceDelay post.Text (" G04 P") post.Number (pierceDelay,"0.###") post.Eol() end post.Eol() end -- end if plasma drill tool else -- not a marker or drill tool or plate engraver (maybe a Flametool?) if (firstRef) or (dist >= refDistance) then dist = 0 Reference() offX = 0 offY = 0 offZ = 0 end post.Text (" G1 ")--this adds in a G1 move to the same location to fix LINUXCNC bug of Run From here post.NonModalNumber (" X", (currentX + offX) * scale, "0.000") post.NonModalNumber (" Y", (currentY + offX) * scale, "0.000") post.Eol() if (fullTAP == 1) and (softPierce > 0) and (softPierce < 100) then -- turn off the DTHC but set the current to softpierce before the torch fires softPierceRND = round(softPierce,10) post.ModalNumber(" M67 E0 Q1",(softPierceRND/100), "0") post.Text ("( Set pierce AMPS)") post.Eol() end post.Text (" G0 ") post.NonModalNumber(" Z", pierceHeight * scale, "0.000") post.Eol() if (preheat > 0) then post.Text ("\n G4 P") post.Number (preheat,"0.###") post.Eol() end post.Text (startCode.. "\n") --if (ethrCut == 1) then -- post.Text (" M62 P2 \n") --end end --if markertool if (toolClass == "DrillTool") then --we don't want to add in a pierce delay on top of the peck delay in the drill tool --skip the pierceDelay else if (pierceDelay > 0) then post.Text (" G4 P") post.Number (pierceDelay,"0.###") post.Eol() end end thcstate = 0 end --end OnPenDown function function Reference() if (toolClass == "FlameTool") then post.Text ("(****************************************)\n") post.Text (" (Flame tools do not do an auto touch off)\n") return end if (noTouchOff == false) then -- check to see if there is supposed to be touchoffs in the code firstRef = false post.Text(" G0 Z") post.Number(plungeSafety * scale, "0.00")--rapid down to safety clearance post.Eol() if (extTOff == true) then -- run the touch off from a stored subroutine post.Text (" o call ") post.Text (" (external Touch off from Commandcnc)") else post.Text (" G38.2 Z") -- Probe Touch-Off post.Number(-plungeSafety * scale, "0.00") post.Text (" F#<_hal[gscreen.toffrate-s]> ") if (verbose == true) then post.Text (" (Probe Touch-Off)") end post.Eol() post.Text (" # = [#<_z> - #5063] ") -- Find distance past probe touch if (verbose == true) then post.Text(" (Find distance past probe touch)") end post.Eol() post.Text (" G92 Z[#<_ini[AXIS_2]HOME_OFFSET> + #] ") --Set Z to actual position if (verbose == true) then post.Text(" (Switch Offset)") end end post.Eol() post.CancelModalNumbers() else post.Text ("(Touch Off in this POST has been disabled )") post.Eol () end -- end check for noTouchOff end --end ref function function OnPenUp() if (toolClass == "MarkerTool") then if (punchDown == true) then post.CancelModalText() post.ModalText(Output2_OFF) -- turn off marker output post.Eol() if (toolName == "PenMarker") then post.ModalText(Output3_OFF) post.Eol() end post.CancelModalText() punchDown = false --if (thcstate == 1) then -- StatThcOff() --end end end -- end markertool if (toolClass ~= "DrillTool") then -- skip the tiny extension for DrillTool post.ModalText (" G0")--this is supposed to add a tiny segment before the M5 post.ModalNumber (" X", (currentX + offX + off2X) * scale, "0.000") post.ModalNumber (" Y", (currentY + offY + off2Y) * scale, "0.000") if (verbose == true) then post.Text (" (Add tiny extension)") end post.Eol() end if (toolClass == "PlasmaTool")then post.Text (" ",Output1_OFF, "\n")-- turn off plasma torch post.Text (" o call") -- call the end cut subroutine to sync up the Z from the DTHC post.Eol() end if (endDelay > 0) then post.Text (" G4 P") post.Number (endDelay,"0.###") post.Eol() end --if (newOp == true) then -- post.Text (" (Operation: ", operationName, ")\n") -- newOp = false -- end end --end OnPenUp function function OnNewOperation() newOp = true post.Text (" (Operation: ", 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 if(dthcOff == 1) then --value of 1 ENABLEs no DTHC on this OP post.Text (" M68 E0 Q999 ") if (verbose == true) then post.Text(" (Global DTHC ON/OFF is OFF ) \n") else post.Eol() end post.Text(" G4 P.1 \n" ) else post.Text (" M68 E0 Q900 ") if (verbose == true) then post.Text(" (Global DTHC ON/OFF is ON ) \n") else post.Eol() end post.Text (" G4 P.1 \n" ) end --end dthcOff loop --if (toolClass == "PlasmaTool") then -- this activates or deactivates Auto Set for each operation if(autoSet > 0 ) then --value > 0 turns on autoset post.Text (" M68 E0 Q80 ") --put in the prefix for LINUXCNC if (verbose == true) then post.Text(" (Auto Preset is active ) \n") end post.Eol() post.Text (" G4 P.1 \n") else post.Text (" M68 E0 Q89 ") --put in the prefix for LINUXCNC if (verbose == true) then post.Text(" (Auto Preset is not active ) \n") end post.Eol() post.Text (" G4 P.1 \n") end --end autoSet end --end function function OnToolChange() offX = 0 offY = 0 offZ = 0 if(toolClass == "FlameTool" ) then post.Text (" (Flame Cutting NO DTHC)\n") post.Text (" M68 E0 Q999\n ")-- this turns off the DTHC post.Text (" G4 P.1") post.Eol() post.Text (" (Flame tool number: ", tool ,")") post.Eol() post.Text(" (Preheat: ", preheat , ") \n") post.Text(" (Feedrate: ", feedRate * scale , ") \n") post.Text (" M0 \n") post.Text (" (Make sure you are running an Oxy-Fuel CONFIG.)\n ") post.Text (" (Hit the STOP button ") post.Text (" Jog the Z down manually or use an adjustable holder)\n") post.Text (" (touch the tip of the torch to the top of the metal, ") post.Text (" and then hit the Z Home button)\n ") post.Text (" (Hit the RUN FROM LINE to continue )\n") return --skip the rest of the tool change section end if (toolClass =="DrillTool" ) then if (plasmaTool == 1) then --see if its a plasma peck drill post.Text (" (tool number: ", tool ," ") post.Text (" Plasma peck drill )") post.Eol() post.Text (" ( Distance between Touch-offs: " , refDistance * scale, " ") post.Text(" Feedrate: ", feedRate * scale , ") \n") if(scriberAxis and scriberAxis ~= currentZAxis) then endZ = safeZ OnRapid() currentZAxis = scriberAxis end if(fullTAP ~= 0) then --check for TAP being used if(presetAmps > 0) then post.Text( " M68 E0 Q4" ,presetAmps, "") if (verbose == true) then post.Text(" ( Preset Cut Current: ",presetAmps, " Amps)") post .Eol() else post.Eol() end post.Text (" G4 P.1") post.Eol() end if(presetPSI > 0) then post.Text( " M68 E0 Q8" ,presetPSI, " ") if (verbose == true) then post.Text(" ( Preset Air Pressure: ",presetPSI, " PSI)") post .Eol() else post.Eol() end post.Text (" G4 P.1") post.Eol() else post.Text("(Using Auto Air Pressure)") post.Eol() end -- end preset psi if (softPeck and softPeck > 9) then softPeck2 = (softPeck/10) if (verbose == true) then post.Text ( " ( Soft Mark : " ,softPeck ," percent ) ") post.Eol() end else softpeck2 = 0 end if (softPeck2 > 0) then post.Text (" M68 E0 Q1" ,softPeck2, " \n ") post.Text (" G4 P.1 \n") else --ThcOff() end end --end fullTAP if(scriberAxis and scriberAxis ~= currentZAxis) then endZ = safeZ OnRapid() currentZAxis = scriberAxis end firstRef = true end --end if plasmadrill is 1 end -- drilltool if (toolClass== "PlasmaTool") then if (verbose == true) then if(presetVolts > 0) then post.Text ( "(Preset Volts: ",presetVolts,")\n " ) else post.Eol() end if (fullTAP ~=0) then --check to see if full tap if(presetAmps >0) then post.Text ( " (Preset AMPS: " ,presetAmps,") ") post.Eol() else post.Eol() end if(presetPSI>0) then post.Text ( " ( Air Pressure Preset: " ,presetPSI,") ") post.Eol() end if (softPierce > 0 ) then softPierce2 = (softPierce / 10) if (softPierce2 >= 10 ) then softPierce2 = 0 end else softPierce2 = 0 end -- end softpierce if(softPierce2 > 0 ) then post.Text ( " ( Soft Pierce : " ,softPierce," percent ) ") post.Eol() else post.Text ( " ( Soft pierce is off )") post.Eol() end end -- end of fullTap check if(tipSize>0) then post.Text ( "( Suggested Tip Size: " ,tipSize," )") post.Eol() end if(dthcDelay > 0 ) then post.Text ( " ( DTHC Delay: " ,dthcDelay," sec ) ") post.Eol() else post.Text ( " (Default DTHC Delay )") post.Eol() end if(minLength > 0 ) then post.Text ( " ( Min Cut Length for DTHC ON : " ,minLength ," units ) ") post.Eol() end post.Eol() end -- end of verbose check if(scriberAxis and scriberAxis == currentZAxis) then --always use Z as the Z axis endZ = safeZ OnRapid() currentZAxis = "Z" end if(presetVolts > 0) then post.Text ( " M68 E0 Q3" ,presetVolts, "" ) if (verbose == true) then post.Text(" (Preset Volts set to ",presetVolts ," Volts)") end post.Eol() post.Text (" G4 P.1 \n") else post.Text ( "(No Preset Volts)\n" ) end --end presetVolts if(fullTAP ~= 0) then --check for TAP being used if(presetAmps > 0) then post.Text( " M68 E0 Q4" ,presetAmps, " ") if (verbose == true) then post.Text (" ( Preset Amps set to ", presetAmps, " Amps)") end post.Eol() post.Text (" G4 P.1") post.Eol() end -- end presetAMPS if(presetPSI > 0) then post.Text( " M68 E0 Q8" ,presetPSI, " ") if (verbose == true) then post.Text (" ( Air pressure set to ", presetPSI, " PSI)") end post.Eol() post.Text (" G4 P.1") post.Eol() else post.Text("(Default Air Pressure)") post.Eol() end --end presetPSI end --end check for fullTAP if(dthcDelay > 0 ) then post.Text ( " M68 E0 Q5") post.Number (dthcDelay * 10, "00") ---multiplies times 10 to pass decimal values if (verbose == true) then post.Text(" (DTHC Delay set to ",dthcDelay ," Seconds)") end post.Eol() post.Text (" G4 P.1 \n") end --end dthcDelay --StatThcOff() --after loading values turn off the DTHC post.Text(statthcOffCode) if (verbose == true) then post.Text(" (DTHC is OFF)\n"); else post.Eol() end --post.Eol() post.Text (" G4 P.1 \n ") if (warnings == true) then post.Text ("(MSG, The PAUSE after this message is to allow the Operator to check the DTHC settings to confirn they are loaded from the G-Code and are correct. If you need to change anything do it before you hit the RESUME button to continue) \n") post.Text (" M1 \n")--pasue for operator response else -- post.Text (" M1") post.Text (" (Pause warning off)\n") post.Text ("( ###########################)\n") end --end warnings end -- end of plasma tool loop if (toolClass == "MarkerTool") and (toolName =="PenMarker") then post.Text (" (Pen Marker NO DTHC)\n") post.Text (" M68 E0 Q999\n ") post.Text ("G4 P.1") post.Eol() firstRef = true --added 7/24 to reffirst on a merker tool bef in mixed sequence cuts if (scriberAxis and scriberAxis ~= currentZAxis) then --use scriberAxis for Z endZ = safeZ OnRapid() currentZAxis = scriberAxis end else if(toolClass == "MarkerTool" ) then post.Text (" (Plate Marker NO DTHC)\n") post.Text (" M68 E0 Q999\n ") post.Text ("G4 P.1") post.Eol() firstRef = true --added 7/24 to reffirst on a merker tool bef in mixed sequence cuts if(scriberAxis and scriberAxis ~= currentZAxis) then --use scriberAxis for Z endZ = safeZ OnRapid() currentZAxis = scriberAxis end end end --end markertool loop end --end for toolchangefunction function OnNewPart() post.Text(" (Part: ",partName,")\n"); end function OnDrillStart() --May want to put something in here end function OnDrill() if (thcstate == 1) then ThcOff() end OnRapid() depth = drillStart buffer = plungeSafety endZ = depth + buffer OnRapid() if(drillRetract < buffer) then buffer = drillRetract end while depth > drillZ do OnRapid() depth = depth - drillPeck if (depth < drillZ) then depth = drillZ end endZ = depth OnMove() if (depth > drillZ) then --retract if we need to take another bite endZ = endZ + drillRetract if (endZ > safeZ) then endZ = safeZ end OnRapid() end endZ = depth + buffer end if (endZ < safeZ) then endZ = safeZ OnRapid() end end