Lua Modul - Postprozessor

local limitmove = 0

function ppStart( prj, job, jobnext)                --executed within s2.pp.run(objlist) -> see ppMain()
    s2.printnl("start pp run in project <", prj:get("nameProject"), ">")
end

function ppJobStart(prj, joblast, job, jobnext)     --executed every time a new job starts
    s2.printnl("\tstart of ", job:get("nameJob"))
    limitmove = 0
end

function ppMove(job,x,y,z,gflag,mflag)              --executed for each toolpath point
    if limitmove > 2 then return end
    s2.print("\t\t")
    if x ~= nil then s2.print("X ", x," ") end
    if y ~= nil then s2.print("Y ", y," ") end
    if z ~= nil then s2.print("Z ", z," ") end
    s2.nl()
    limitmove = limitmove + 1
end


function ppJobEnd(prj, joblast, job, jobnext)       --executed after the last movement of the current job
    s2.printnl("\tend of ", job:get("nameJob"))
end

function ppEnd(prj, joblast, job)                   --executed after all jobs have been completed
    s2.printnl("pp run finished")
end


function ppMain(objlist, prj)                       --entry point
    s2.pp.run(objlist)                              --start postprocessor run (ppStart, ppJobStart. ppMove, ppJobEnd, ppEnd)
    s2.success("Done!")
end

-------------------------------------------------------------------------------
-- This template is a very minimal example script and is not intended for productive use.
-------------------------------------------------------------------------------

local pushToConsole     = true      -- Write NC Code to Console (if set it's recomented to set debugLimiter also)
local pushToFile        = true      -- Write NC Code to File   
local debugLimiter      = 50        -- Set this value to limit ppMove to maximum lines (very usefull for debugging).
local debugCounter
local ncbuffer
local codeFeed
local codeFeedRamp
local codeFeedDrill
local codeFeedRapid

function ppStart     (prj, job, jobnext)        --executed within s2.pp.run(objlist) -> see ppMain()
    s2.clear()                                  --clear console
    ncbuffer    =   s2.txtBuf()                 --create empty textbuffer
    ncbuffer:addnl("G17 G40 G49 G80 G90 G94")   --write NC code header at beginning of the textbuffer
    ncbuffer:addnl("G21 (mm)")
end

function ppJobStart (prj, joblast, job, jobnext) --executed every time a new job starts
    if job:get("collision") then s2.abort("collision detected") return end  --abort in case of a collision
    debugCounter        =   0 
    codeFeed            =   string.format("G1 F%d",       job:get("feed")         or 0) -- save codesnippet for the feedrate
    codeFeedRamp        =   string.format("G1 F%d",       job:get("feedRamp")     or 0) -- (used frequently in ppMove)
    codeFeedDrill       =   string.format("G1 F%d",       job:get("feedDrill")    or 0)
    codeFeedRapid       =   string.format("G0")
    if job:get("feedMode") ~= 0 then
       codeFeedRapid    =   string.format("G1 F%d",       job:get("feedRapid")    or 0)
    end
    ncbuffer:addnl("(start job '", job:get("nameJob"), "')") --write jobname as NC Comment to textbuffer
    ncbuffer:addnl(string.format("T%d M06 (%s)\n", job:get("toolId"),job:get("nameTool"))) --Tool call
end

function ppMove     (job,x,y,z,gflag,mflag) --executed for each toolpath point
    if debugLimiter > 0 and debugCounter == debugLimiter then 
        ncbuffer:addnl("M5 M0\n(...skipped)") --debugLimiter -> write NC Stop to textbuffer
        debugCounter = debugCounter + 1 
    end
    if debugLimiter > 0 and debugCounter >= debugLimiter then return end --Limit calls in debugmode (debugLimiter)

    if mflag ~= nil then    --check cooling and spindle start and write to textbuffer
        if (mflag&FLAG_M_SPINDLE_START) ~= 0 then
            speed = math.tointeger(job:get("spindleSpeed"))

            if speed == nil or speed <= 0 then 
                s2.abort("no spindlespeed set in job <",job:get("nameJob"),">" ) 
                return 
            end

            if job:get("spindleRot") == 0 then ncbuffer:addnl("S", speed, "M03")
            else                               ncbuffer:addnl("S", speed, "M04")
            end
            if      job:get("cooling") == 1 then ncbuffer:addnl("M08")
            elseif  job:get("cooling") == 2 then ncbuffer:addnl("M09")
            end
        end
    end

    local gcode = nil --check if feedmode changed
    if gflag ~= nil then
        if      (gflag&FLAG_G1_PLUNGE) ~= 0 then gcode = codeFeedDrill
        elseif  (gflag&FLAG_G1_RAMP)   ~= 0 then gcode = codeFeedRamp
        elseif  (gflag&FLAG_G1)        ~= 0 then gcode = codeFeed
        elseif  (gflag&FLAG_G0)        ~= 0 then gcode = codeFeedRapid
        end
    end

    if gcode    ~= nil then gcode   = gcode .. " "             end --create string for coordinates
    if x        ~= nil then x       = string.format("X%g ", x) end
    if y        ~= nil then y       = string.format("Y%g ", y) end
    if z        ~= nil then z       = string.format("Z%g ", z) end
    
    ncbuffer:add((gcode or "") .. (x or "") .. (y or "") .. (z or "").. "\n") -- write movement to textbuffer
    debugCounter = debugCounter + 1
end

function ppJobEnd   (prj, joblast, job, jobnext) --executed after the last movement of the current job
    if job:get("pause") then
        ncbuffer:addnl("M00")
    end
    ncbuffer:addnl("(end of job '", job:get("nameJob"), "')")
end

function ppEnd    (prj, job)    --executed after all jobs have been completed
    ncbuffer:addnl("M30")       --write "nc end and rewind" in the end of the textbuffer
    outpath = s2.path.build(prj:get("dirProject"),s2.path.basename(prj:get("nameProject"))..".txt") --build savepath (projectfolder\projectname.txt)
    s2.printnl("saving nc code to file <", outpath, ">")
    if pushToFile    then        ncbuffer:save(outpath) end --save textbuffer to disc
    if pushToConsole then        ncbuffer:print()       end --write textbuffer to console
end

function ppMain(objlist, prj)   --entry point
    s2.pp.run(objlist)          --start postprocessor run (ppStart, ppJobStart. ppMove, ppJobEnd, ppEnd)
    s2.success("Done!")
end