Dario Sassi
c0bb72e816
- aggiunta gestione feature SawCut (0/3/4-013-X) - elevazione del tenone diminuita di 0.1 per evitare poi problemi con arrotondamenti.
257 lines
11 KiB
Lua
257 lines
11 KiB
Lua
-- ProcessTenon.lua by Egaltech s.r.l. 2019/12/10
|
|
-- Gestione calcolo tenone per Travi
|
|
|
|
-- Tabella per definizione modulo
|
|
local ProcessTenon = {}
|
|
|
|
-- Include
|
|
require( 'EgtBase')
|
|
local BL = require( 'BeamLib')
|
|
local Cut = require( 'ProcessCut')
|
|
|
|
EgtOutLog( ' ProcessTenon started', 1)
|
|
|
|
-- Dati
|
|
local BD = require( 'BeamData')
|
|
local ML = require( 'MachiningLib')
|
|
|
|
|
|
---------------------------------------------------------------------
|
|
local function VerifyOrientation( Proc, vtN, b3Raw)
|
|
-- se trave molto bassa
|
|
if b3Raw:getDimZ() <= 120 then
|
|
-- se tenone praticamente in asse, accetto fino a -45 deg
|
|
if abs( vtN:getY()) < 0.04 then
|
|
return ( vtN:getZ() >= -0.7072)
|
|
-- altrimenti accetto fino a -30deg
|
|
else
|
|
return ( vtN:getZ() >= -0.51)
|
|
end
|
|
-- se trave bassa
|
|
elseif b3Raw:getDimZ() <= 200 then
|
|
-- se tenone praticamente in asse, accetto fino a -30 deg
|
|
if abs( vtN:getY()) < 0.04 then
|
|
return ( vtN:getZ() >= -0.51)
|
|
-- altrimenti accetto fino a -20deg
|
|
else
|
|
return ( vtN:getZ() >= -0.343)
|
|
end
|
|
-- se trave media
|
|
elseif b3Raw:getDimZ() <= 300 then
|
|
-- se tenone praticamente in asse, accetto fino a -20 deg
|
|
if abs( vtN:getY()) < 0.04 then
|
|
return ( vtN:getZ() >= -0.343)
|
|
-- altrimenti, accetto fino a -10 deg
|
|
else
|
|
return ( vtN:getZ() >= -0.174)
|
|
end
|
|
-- altrimenti
|
|
else
|
|
-- accetto fino a -5deg
|
|
return ( vtN:getZ() >= -0.088)
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Riconoscimento della feature
|
|
function ProcessTenon.Identify( Proc)
|
|
return ( (( Proc.Grp == 1 or Proc.Grp == 2) and Proc.Prc == 50) or
|
|
(( Proc.Grp == 1 or Proc.Grp == 2) and Proc.Prc == 52))
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Classificazione della feature
|
|
function ProcessTenon.Classify( Proc, b3Raw)
|
|
-- recupero i dati della curva di contorno della faccia top
|
|
local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
|
|
if not AuxId then return false end
|
|
AuxId = AuxId + Proc.Id
|
|
local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
|
|
-- verifico se il tenone è lavorabile solo da sotto
|
|
local bDown = not VerifyOrientation( Proc, vtExtr, b3Raw)
|
|
return true, bDown
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Applicazione della lavorazione
|
|
function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
|
|
-- ingombro del grezzo
|
|
local b3Raw = EgtGetRawPartBBox( nRawId)
|
|
-- ingombro del pezzo
|
|
local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
|
|
if not b3Solid then
|
|
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' part box not found'
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- recupero e verifico l'entità curva
|
|
local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
|
|
if AuxId then AuxId = AuxId + Proc.Id end
|
|
if not AuxId or ( EgtGetType( AuxId) & GDB_FY.GEO_CURVE) == 0 then
|
|
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing profile geometry'
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- recupero i dati della curva di contorno della faccia top
|
|
local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
|
|
local ptBC = EgtGP( AuxId, GDB_RT.GLOB)
|
|
local bClosed = EgtCurveIsClosed( AuxId)
|
|
-- verifico che il tenone non sia orientato troppo verso il basso
|
|
if not VerifyOrientation( Proc, vtExtr, b3Raw) then
|
|
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' Tenon from bottom impossible'
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- determino altezza del tenone
|
|
local frTen = Frame3d( ptBC, vtExtr)
|
|
local b3Ten = EgtGetBBoxRef( Proc.Id, GDB_BB.STANDARD, frTen)
|
|
local dTenH = b3Ten:getDimZ()
|
|
-- assegno centro e normale della faccia top
|
|
local vtN = vtExtr
|
|
local ptC = ptBC + vtN * dTenH
|
|
EgtOutLog( 'ptC=' .. tostring( ptC) ..' vtN=' .. tostring( vtN), 3)
|
|
-- determino larghezza massima di svuotatura
|
|
local b3Aux = EgtGetBBoxRef( AuxId, GDB_BB.STANDARD, frTen)
|
|
local dPockX = max( b3Ten:getMax():getX() - b3Aux:getMax():getX(), b3Aux:getMin():getX() - b3Ten:getMin():getX())
|
|
local dPockY = max( b3Ten:getMax():getY() - b3Aux:getMax():getY(), b3Aux:getMin():getY() - b3Ten:getMin():getY())
|
|
local dPockL = max( dPockX, dPockY)
|
|
-- porto inizio curva il più possibile sul bordo
|
|
BL.PutStartNearestToEdge( AuxId, b3Solid)
|
|
-- se vero tenone inclinato o non esattamente alle estremità, necessario taglio di lama sulla testa
|
|
if Proc.Prc ~= 52 and
|
|
( not AreSameOrOppositeVectorApprox( vtN, X_AX()) or
|
|
( Proc.Box:getMax():getX() < b3Raw:getMax():getX() - dOvmHead - 100 * GEO.EPS_SMALL and
|
|
Proc.Box:getMin():getX() > b3Raw:getMin():getX() + 100 * GEO.EPS_SMALL)) then
|
|
-- recupero gruppo per geometria addizionale
|
|
local nAddGrpId = BL.GetAddGroup( nPartId)
|
|
if not nAddGrpId then
|
|
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- creo piano di taglio sulla testa del tenone e lo lavoro
|
|
local AddId = EgtSurfTmPlaneInBBox( EgtGetParent( Proc.Id), ptC, vtN, b3Solid, GDB_RT.GLOB)
|
|
if AddId then
|
|
EgtRelocate( AddId, nAddGrpId)
|
|
EgtSetName( AddId, 'AddCut_' .. tostring( Proc.Id))
|
|
-- se pezzo piccolo, in coda e piano inclinato attorno a Z applico svuotatura
|
|
if b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getX() < 0 and abs( vtExtr:getY()) > 0.173 then
|
|
local sPocketing = ML.FindPocketing( 'OpenPocket')
|
|
-- inserisco la lavorazione di svuotatura
|
|
local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
|
|
local nMchFId = EgtAddMachining( sName, sPocketing)
|
|
if not nMchFId then
|
|
local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- aggiungo geometria
|
|
EgtSetMachiningGeometry( {{ AddId, -1}})
|
|
-- imposto uso faccia
|
|
EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
|
|
-- imposto posizione braccio porta testa
|
|
local nSCC = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
|
|
EgtSetMachiningParam( MCH_MP.SCC, nSCC)
|
|
-- eseguo
|
|
if not EgtApplyMachining( true, false) then
|
|
local _, sErr = EgtGetLastMachMgrError()
|
|
EgtSetOperationMode( nMchFId, false)
|
|
return false, sErr
|
|
end
|
|
-- altrimenti applico taglio di lama
|
|
else
|
|
local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, Head = Proc.Head, Tail = Proc.Tail}
|
|
local bFromBottom = ( b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getZ() > 0.25)
|
|
local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, 0, bFromBottom)
|
|
if not bOk then return bOk, sErr end
|
|
end
|
|
end
|
|
end
|
|
-- recupero la lavorazione
|
|
local sMilling = ML.FindMilling( 'Tenon')
|
|
if not sMilling then
|
|
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' milling not found in library'
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- recupero i dati dell'utensile
|
|
local dMillDiam = 20
|
|
local dMaxDepth = 0
|
|
if EgtMdbSetCurrMachining( sMilling) then
|
|
local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
|
|
if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
|
|
dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
|
|
dMaxDepth = ( EgtTdbGetCurrToolMaxDepth() or dMaxDepth)
|
|
end
|
|
end
|
|
-- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
|
|
local sWarn
|
|
local dDepth = 0
|
|
if dTenH > dMaxDepth + 10 * GEO.EPS_SMALL then
|
|
sWarn = 'Warning in tenon : elevation (' .. EgtNumToString( dTenH, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
|
|
dDepth = dMaxDepth - dTenH
|
|
dTenH = dMaxDepth
|
|
EgtOutLog( sWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
|
|
end
|
|
-- determino il numero di passate concentriche (max 4)
|
|
local MAX_PASS = 4
|
|
local nPass = min( ceil( dPockL / ( 0.7 * dMillDiam)), MAX_PASS)
|
|
local dStep = min( dPockL, 0.7 * dMillDiam * MAX_PASS) / nPass
|
|
for i = nPass, 1, -1 do
|
|
-- inserisco la passata finale della lavorazione
|
|
local sNameF = 'TenF_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
|
|
local nMchFId = EgtAddMachining( sNameF, sMilling)
|
|
if not nMchFId then
|
|
local sErr = 'Error adding machining ' .. sNameF .. '-' .. sMilling
|
|
EgtOutLog( sErr)
|
|
return false, sErr
|
|
end
|
|
-- aggiungo geometria
|
|
EgtSetMachiningGeometry( {{ AuxId, -1}})
|
|
-- sistemo i parametri
|
|
EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dTenH - 100 * GEO.EPS_SMALL, 1) .. ';')
|
|
EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
|
|
local dOffset = ( i - 1) * dStep
|
|
EgtSetMachiningParam( MCH_MP.OFFSR, dOffset)
|
|
-- se contorno aperto, cambio parametri di attacco/uscita
|
|
if not bClosed then
|
|
EgtSetMachiningParam( MCH_MP.LITANG, 0.7 * dMillDiam)
|
|
EgtSetMachiningParam( MCH_MP.LIPERP, 0)
|
|
EgtSetMachiningParam( MCH_MP.LOTANG, 0.7 * dMillDiam)
|
|
EgtSetMachiningParam( MCH_MP.LOPERP, 0)
|
|
end
|
|
-- imposto posizione braccio porta testa
|
|
local nSCC = MCH_SCC.ADIR_YM
|
|
if abs( vtExtr:getY()) > 0.088 then
|
|
nSCC = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
|
|
end
|
|
EgtSetMachiningParam( MCH_MP.SCC, nSCC)
|
|
-- eseguo
|
|
if not EgtApplyMachining( true, false) then
|
|
local _, sErr = EgtGetLastMachMgrError()
|
|
EgtSetOperationMode( nMchFId, false)
|
|
return false, sErr
|
|
end
|
|
end
|
|
-- eventuale segnalazione ingombro di testa o coda
|
|
if abs( vtN:getY()) > 0.1 or ( b3Raw:getDimZ() - Proc.Box:getDimZ()) < BD.MIN_HEIGHT then
|
|
if Proc.Head then
|
|
local dOffs = b3Raw:getMax():getX() - dOvmHead - Proc.Box:getMin():getX()
|
|
if abs( vtN:getY()) < 0.1 and vtN:getZ() > 0.5 then
|
|
dOffs = dOffs / 2
|
|
end
|
|
BL.UpdateHCING( nRawId, dOffs)
|
|
elseif Proc.Tail then
|
|
local dOffs = Proc.Box:getMax():getX() - b3Solid:getMin():getX()
|
|
if abs( vtN:getY()) < 0.1 and vtN:getZ() > 0.5 then
|
|
dOffs = dOffs / 2
|
|
end
|
|
BL.UpdateTCING( nRawId, dOffs)
|
|
end
|
|
end
|
|
return true, sWarn
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
return ProcessTenon
|