DataBeam :
- modifiche a Mortise per lato mensola asse C FAST e per direzione lavoro con mortasatrice a catena.
This commit is contained in:
DarioS
+126
-86
@@ -82,7 +82,8 @@ end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
-- Aggiunge la lavorazione di pulizia angoli
|
||||
local function AddCleanCornersMachining( nProcId, sMortising, nWorkFaceInd, vtN)
|
||||
local function AddCleanCornersMachining( nProcId, sMortising, nWorkFaceInd, vtN, dDepth)
|
||||
-- aggiungo la lavorazione
|
||||
local sName = 'Mort_' .. ( EgtGetName( nProcId) or tostring( nProcId)) .. '_CleanCorners1'
|
||||
local nMchFId = EgtAddMachining( sName, sMortising)
|
||||
if not nMchFId then
|
||||
@@ -90,19 +91,28 @@ end
|
||||
EgtOutLog( sErr)
|
||||
return false, sErr
|
||||
end
|
||||
sName = EgtGetOperationName( nMchFId)
|
||||
-- aggiungo geometria
|
||||
-- imposto geometria
|
||||
EgtSetMachiningGeometry( {{ nProcId, nWorkFaceInd}})
|
||||
local nFaceUse = BL.GetNearestParalOpposite( vtN)
|
||||
local vtOrtho = BL.GetVersRef( nFaceUse)
|
||||
-- imposto angolo 3° asse rot
|
||||
EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 1))
|
||||
EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 1))
|
||||
-- imposto lato di lavoro e inversione
|
||||
local vtFaceN = EgtSurfTmFacetNormVersor( nProcId, nWorkFaceInd, GDB_ID.ROOT)
|
||||
local bInvert = ( vtFaceN:getZ() < -GEO.EPS_SMALL or vtFaceN:getY() > GEO.EPS_SMALL)
|
||||
EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bInvert, MCH_MORTISE_WS.LEFT, MCH_MORTISE_WS.RIGHT))
|
||||
EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
|
||||
-- se richiesto, imposto affondamento
|
||||
if dDepth then
|
||||
EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
|
||||
end
|
||||
-- imposto uso del lato faccia
|
||||
local nFaceUse = BL.GetNearestParalOpposite( vtN)
|
||||
EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
|
||||
-- applico il parametro plunge, che setta la lavorazione per affondare solamente, senza lavorare tutto il contorno; 1: solo lato iniziale, 2: solo lato finale, 3: entrambi
|
||||
sNotes = 'Plunge=3;'
|
||||
EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
|
||||
-- imposto angolo 3° asse rot
|
||||
local vtOrtho = BL.GetVersRef( nFaceUse)
|
||||
EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 1))
|
||||
EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 1))
|
||||
-- calcolo la lavorazione
|
||||
if not ML.ApplyMachining( true, false) then
|
||||
if EgtGetOutstrokeInfo() then
|
||||
local _, sErr = EgtGetLastMachMgrError()
|
||||
@@ -128,77 +138,95 @@ end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
-- Pulizia angoli nel caso sia settato il parametro P04=1
|
||||
local function CleanCorners( Proc, dMorH, vtN, bOpenBtm, AuxId)
|
||||
local function CleanCorners( Proc, dMorH, vtN, bDoubleDir, AuxId)
|
||||
-- verifico se è attiva la pulizia e se l'orientamento della feature è adeguato
|
||||
local bCleanCorners = ( EgtGetInfo( Proc.Id, 'P04', 'i') == 1 and
|
||||
( AreSameOrOppositeVectorApprox( vtN, X_AX()) or
|
||||
AreSameOrOppositeVectorApprox( vtN, Y_AX()) or
|
||||
AreSameOrOppositeVectorApprox( vtN, Z_AX())))
|
||||
( AreSameOrOppositeVectorApprox( vtN, X_AX()) or
|
||||
AreSameOrOppositeVectorApprox( vtN, Y_AX()) or
|
||||
AreSameOrOppositeVectorApprox( vtN, Z_AX())))
|
||||
if not bCleanCorners then
|
||||
EgtOutLog( 'Warning: mortising not aligned with XYZ axes, corner cleaning skipped')
|
||||
return
|
||||
end
|
||||
-- cerco la lavorazione adatta
|
||||
local sMortisingCleanCorners = ML.FindSawing( 'Mortising')
|
||||
if bCleanCorners and sMortisingCleanCorners then
|
||||
local dSawWidth = 50
|
||||
local dSawThick = 12
|
||||
local dMaxDepth = 200
|
||||
-- se non trova la lavorazione non faccio nulla
|
||||
if not sMortisingCleanCorners then
|
||||
local sWarn = 'Warning: mortising tool not found, corner cleaning skipped'
|
||||
EgtOutLog( sWarn)
|
||||
return true, sWarn
|
||||
else
|
||||
-- recupero i dati dell'utensile
|
||||
if EgtMdbSetCurrMachining( sMortisingCleanCorners) then
|
||||
local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
|
||||
if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
|
||||
dSawWidth = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawWidth
|
||||
dSawThick = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dSawThick
|
||||
dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
|
||||
end
|
||||
end
|
||||
-- al momento se l'utensile non arriva salto la lavorazione
|
||||
local dFullMorH = EgtIf( bOpenBtm, dMorH * 2, dMorH)
|
||||
if dFullMorH > dMaxDepth + 10 * GEO.EPS_SMALL then
|
||||
local sWarn = 'Warning in corner cleaning with mortise: elevation (' .. EgtNumToString( dFullMorH, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
|
||||
EgtOutLog( sWarn)
|
||||
return true, sWarn
|
||||
end
|
||||
-- verifico se la tasca ha dimensioni sufficienti per l'utensile
|
||||
local nSurf = EgtSurfTmByFlatContour( EgtGetParent( AuxId), AuxId, 0.05)
|
||||
local frMor, dMortiseWidth, dMortiseThick = EgtSurfTmFacetMinAreaRectangle( nSurf, 0, GDB_ID.ROOT)
|
||||
if abs( frMor:getVersX() * X_AX()) < abs( frMor:getVersY() * X_AX()) then
|
||||
dMortiseWidth, dMortiseThick = dMortiseThick, dMortiseWidth
|
||||
end
|
||||
EgtErase( nFlat)
|
||||
if dSawWidth >= dMortiseWidth + 10 * GEO.EPS_SMALL or dSawThick >= dMortiseThick + 10 * GEO.EPS_SMALL then
|
||||
local sWarn = 'warning in corner cleaning with mortise: pocket too small'
|
||||
EgtOutLog( sWarn)
|
||||
return true, sWarn
|
||||
end
|
||||
-- cerco le due facce migliori da lavorare
|
||||
local nWorkFaceInd, nWorkFaceInd2
|
||||
if AreSameOrOppositeVectorApprox( vtN, X_AX()) then
|
||||
nWorkFaceInd, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ Y_AX())
|
||||
nWorkFaceInd2, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ Y_AX(), nWorkFaceInd)
|
||||
else
|
||||
nWorkFaceInd, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ X_AX())
|
||||
nWorkFaceInd2, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ X_AX(), nWorkFaceInd)
|
||||
end
|
||||
-- lavoro la prima faccia
|
||||
local bOk1, sErr = AddCleanCornersMachining( Proc.Id, sMortisingCleanCorners, nWorkFaceInd, vtN)
|
||||
-- lavoro la seconda faccia
|
||||
local bOk2, sErr2 = AddCleanCornersMachining( Proc.Id, sMortisingCleanCorners, nWorkFaceInd2, vtN)
|
||||
if sErr2 then
|
||||
if not sErr then sErr = '' end
|
||||
if sErr ~= sErr2 then
|
||||
sErr = EgtIf( #sErr > 0, sErr .. '\n' .. sErr2, sErr2)
|
||||
end
|
||||
end
|
||||
if not bOk1 or not bOk2 then
|
||||
return false, sErr
|
||||
end
|
||||
return true, sErr
|
||||
if not sMortisingCleanCorners then
|
||||
EgtOutLog( 'Warning: mortising tool not found, corner cleaning skipped')
|
||||
return
|
||||
end
|
||||
-- recupero i dati dell'utensile
|
||||
local dSawWidth = 50
|
||||
local dSawThick = 12
|
||||
local dMaxDepth = 200
|
||||
if EgtMdbSetCurrMachining( sMortisingCleanCorners) then
|
||||
local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
|
||||
if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
|
||||
dSawWidth = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawWidth
|
||||
dSawThick = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dSawThick
|
||||
dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
|
||||
end
|
||||
end
|
||||
-- se l'utensile non arriva in fondo, riduco l'affondamento
|
||||
local sWarn
|
||||
local dDepth
|
||||
local bUseDoubleDir
|
||||
if bDoubleDir then
|
||||
if ( 2 * dMorH + dSawWidth / 2) > dMaxDepth + 10 * GEO.EPS_SMALL then
|
||||
bUseDoubleDir = true
|
||||
if ( dMorH + dSawWidth / 2) > dMaxDepth + 10 * GEO.EPS_SMALL then
|
||||
dDepth = dMaxDepth
|
||||
sWarn = 'Warning in corner cleaning with mortise: elevation (' .. EgtNumToString( dMorH + dSawWidth / 2, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
|
||||
EgtOutLog( sWarn)
|
||||
else
|
||||
dDepth = dMorH + dSawWidth / 2
|
||||
end
|
||||
else
|
||||
dDepth = 2 * dMorH + dSawWidth / 2
|
||||
end
|
||||
else
|
||||
if dMorH > dMaxDepth + 10 * GEO.EPS_SMALL then
|
||||
dDepth = dMaxDepth
|
||||
sWarn = 'Warning in corner cleaning with mortise: elevation (' .. EgtNumToString( dMorH, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
|
||||
EgtOutLog( sWarn)
|
||||
end
|
||||
end
|
||||
-- verifico se la tasca ha dimensioni sufficienti per l'utensile
|
||||
local nFlat = EgtSurfTmByFlatContour( EgtGetParent( AuxId), AuxId, 0.05)
|
||||
local frMor, dMortiseWidth, dMortiseThick = EgtSurfTmFacetMinAreaRectangle( nFlat, 0, GDB_ID.ROOT)
|
||||
if abs( frMor:getVersX() * X_AX()) < abs( frMor:getVersY() * X_AX()) then
|
||||
dMortiseWidth, dMortiseThick = dMortiseThick, dMortiseWidth
|
||||
end
|
||||
EgtErase( nFlat)
|
||||
if dSawWidth >= dMortiseWidth + 10 * GEO.EPS_SMALL or dSawThick >= dMortiseThick + 10 * GEO.EPS_SMALL then
|
||||
sWarn = 'warning in corner cleaning with mortise: pocket too small'
|
||||
EgtOutLog( sWarn)
|
||||
return true, sWarn
|
||||
end
|
||||
-- cerco le due facce migliori da lavorare
|
||||
local nWorkFaceInd, nWorkFaceInd2
|
||||
if AreSameOrOppositeVectorApprox( vtN, X_AX()) then
|
||||
nWorkFaceInd, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ Y_AX())
|
||||
nWorkFaceInd2, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ Y_AX(), nWorkFaceInd)
|
||||
else
|
||||
nWorkFaceInd, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ X_AX())
|
||||
nWorkFaceInd2, _, _ = BL.FindFaceBestOrientedAsAxis( Proc, vtN ^ X_AX(), nWorkFaceInd)
|
||||
end
|
||||
-- lavoro la prima faccia
|
||||
local bOk1, sErr = AddCleanCornersMachining( Proc.Id, sMortisingCleanCorners, nWorkFaceInd, vtN, dDepth)
|
||||
-- lavoro la seconda faccia
|
||||
local bOk2, sErr2 = AddCleanCornersMachining( Proc.Id, sMortisingCleanCorners, nWorkFaceInd2, vtN, dDepth)
|
||||
if sErr2 then sErr = ( sErr or '') .. EgtIf( sErr, '\n', '') .. sErr2 end
|
||||
-- se richiesto di lavorare dall'altra parte
|
||||
if bUseDoubleDir then
|
||||
local bOk3, sErr3 = AddCleanCornersMachining( Proc.Id, sMortisingCleanCorners, nWorkFaceInd, -vtN, dDepth)
|
||||
if sErr3 then sErr = ( sErr or '') .. EgtIf( sErr, '\n', '') .. sErr3 end
|
||||
local bOk4, sErr4 = AddCleanCornersMachining( Proc.Id, sMortisingCleanCorners, nWorkFaceInd2, -vtN, dDepth)
|
||||
if sErr4 then sErr = ( sErr or '') .. EgtIf( sErr, '\n', '') .. sErr4 end
|
||||
end
|
||||
if not bOk1 or not bOk2 or not bOk3 or not bOk4 then
|
||||
return false, sErr
|
||||
end
|
||||
return true, sWarn
|
||||
end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
@@ -280,7 +308,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
local dMove = bxMin:getZ()-bxMax:getZ()
|
||||
-- se il percorso ausiliario è esterno al grezzo, lo riavvicino
|
||||
if abs( dMove) > GEO.EPS_SMALL then
|
||||
AuxId = EgtCopyGlob( AuxId, BL.GetAddGroup(nPartId))
|
||||
AuxId = EgtCopyGlob( AuxId, BL.GetAddGroup( nPartId))
|
||||
EgtMove( AuxId, Vector3d(0,0,-dMove))
|
||||
EgtMove( nFlat, Vector3d(0,0,-dMove))
|
||||
frMor, dL, dW = EgtSurfTmFacetMinAreaRectangle( nFlat, 0, GDB_ID.ROOT)
|
||||
@@ -409,8 +437,12 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
local nSCC = MCH_SCC.NONE
|
||||
if bPockAngTrasm then
|
||||
nSCC = MCH_SCC.ADIR_NEAR
|
||||
elseif not BD.C_SIMM then
|
||||
if vtN:getY() < GEO.EPS_SMALL then
|
||||
elseif not BD.C_SIMM then
|
||||
if abs( vtN:getX()) < GEO.EPS_SMALL and abs( vtN:getY()) < GEO.EPS_SMALL then
|
||||
nSCC = MCH_SCC.ADIR_YM
|
||||
elseif abs( vtN:getX()) < GEO.EPS_SMALL then
|
||||
nSCC = MCH_SCC.ADIR_XP
|
||||
elseif vtN:getY() < GEO.EPS_SMALL then
|
||||
nSCC = EgtIf( bRevertSide, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
|
||||
else
|
||||
nSCC = EgtIf( bRevertSide, MCH_SCC.ADIR_YM, MCH_SCC.ADIR_YP)
|
||||
@@ -449,12 +481,6 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
EgtSetOperationMode( nMchFId, false)
|
||||
return false, sErr
|
||||
end
|
||||
-- verifico se necessaria la pulizia degli angoli ( tenone ad angoli non raggiati) e applico nel caso
|
||||
local _, sWarn2 = CleanCorners( Proc, dMorH, vtN, bOpenBtm, AuxId)
|
||||
if sWarn2 then
|
||||
if not sWarn then sWarn = '' end
|
||||
sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
|
||||
end
|
||||
-- Se non c'è il fondo e la lavorazione non ha lavorato tutta la superficie per limite altezza utensile
|
||||
-- inserisco una ulteriore lavorazione contraria
|
||||
if bOpenBtm and not bForceOneSide and nDepthMin and abs(nDepthMin) > 0 then
|
||||
@@ -475,11 +501,19 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
-- sistemo la direzione di lavoro
|
||||
EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, true, false))
|
||||
-- imposto posizione braccio porta testa
|
||||
if vtN:getY() < GEO.EPS_SMALL then
|
||||
EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_YP)
|
||||
else
|
||||
EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_YM)
|
||||
local nSCC = MCH_SCC.NONE
|
||||
if not BD.C_SIMM then
|
||||
if abs( vtN:getX()) < GEO.EPS_SMALL and abs( vtN:getY()) < GEO.EPS_SMALL then
|
||||
nSCC = MCH_SCC.ADIR_YM
|
||||
elseif abs( vtN:getX()) < GEO.EPS_SMALL then
|
||||
nSCC = MCH_SCC.ADIR_XP
|
||||
elseif vtN:getY() < GEO.EPS_SMALL then
|
||||
nSCC = MCH_SCC.ADIR_YP
|
||||
else
|
||||
nSCC = MCH_SCC.ADIR_YM
|
||||
end
|
||||
end
|
||||
EgtSetMachiningParam( MCH_MP.SCC, nSCC)
|
||||
-- se altezza mortasa differente da altezza massima lavorabile
|
||||
if abs( dMorH - dMaxDepth) > GEO.EPS_SMALL then
|
||||
nDepthMin = -dMorH
|
||||
@@ -497,6 +531,12 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
return false, sErr
|
||||
end
|
||||
end
|
||||
-- verifico se necessaria la pulizia degli angoli ( tenone ad angoli non raggiati) e applico nel caso
|
||||
local _, sWarn2 = CleanCorners( Proc, dMorH, vtN, bOpenBtm and not bForceOneSide, AuxId)
|
||||
if sWarn2 then
|
||||
if not sWarn then sWarn = '' end
|
||||
sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
|
||||
end
|
||||
|
||||
return true, sWarn
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user