Egalware/DataBeam
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DataBeam :

Browse Source 
- migliorato calcolo ingombri di testa delle feature per posizionamento pinze
- feature Chamfer divisa in parti se lunga.
This commit is contained in:
Dario Sassi
2020-02-12 19:49:48 +00:00
parent dbb43355c3
commit 3f19150681
5 changed files with 157 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/ProcessChamfer.lua
+84 -33
View File
@@ -1,4 +1,4 @@
-- ProcessChamfer.lua by Egaltech s.r.l. 2020/02/11
-- ProcessChamfer.lua by Egaltech s.r.l. 2020/02/12
-- Gestione calcolo profilo libero per Travi
-- Tabella per definizione modulo
@@ -33,14 +33,6 @@ function ProcessChamfer.Make( Proc, nPhase, nRawId, nPartId)
EgtOutLog( sErr)
return false, sErr
end
-- inserisco la lavorazione
local sName = 'Chm_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
local nMchId = EgtAddMachining( sName, sMilling)
if not nMchId then
local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
EgtOutLog( sErr)
return false, sErr
end
-- recupero i dati dell'utensile
local dMillDiam = 10
local dMaxMat = 20
@@ -51,8 +43,17 @@ function ProcessChamfer.Make( Proc, nPhase, nRawId, nPartId)
dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxMat
end
end
-- se onde
if AuxId then
-- inserisco la lavorazione
local sName = 'Chm_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
local nMchId = EgtAddMachining( sName, sMilling)
if not nMchId then
local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
EgtOutLog( sErr)
return false, sErr
end
-- impongo lavorazione dall'alto
local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
if vtExtr:getZ() < 0 then
@@ -73,11 +74,19 @@ function ProcessChamfer.Make( Proc, nPhase, nRawId, nPartId)
EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-- aggiungo geometria
EgtSetMachiningGeometry( {{ AuxId, -1}})
-- eseguo
if not EgtApplyMachining( true, false) then
local _, sErr = EgtGetLastMachMgrError()
EgtSetOperationMode( nMchId, false)
return false, sErr
end
-- altrimenti smusso standard
else
-- normale ed elevazione della faccia principale
local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
local _, dElev = BL.GetPointDirDepth( nPartId, ptC, vtN)
local bFront = ( vtN:getY() < 0)
-- limitazioni su inizio e fine derivanti da altre facce
local bLimXmin = false
local bLimXmax = false
@@ -108,31 +117,73 @@ function ProcessChamfer.Make( Proc, nPhase, nRawId, nPartId)
if bLimXmax then dEndAll = dAllExtr end
if bLimXmin then dStartAll = dAllExtr end
end
-- lavoro tenendo l'utensile a sinistra
EgtSetMachiningParam( MCH_MP.INVERT, true)
EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-- imposto lavorazione un poco sotto
local sDepth = 'TH+'..EgtNumToString( BD.CUT_EXTRA)
EgtSetMachiningParam( MCH_MP.DEPTH_STR, sDepth)
EgtSetMachiningParam( MCH_MP.STEP, 0)
-- imposto utilizzo faccia
EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.PARAL_DOWN)
-- imposto attacchi e uscite
EgtSetMachiningParam( MCH_MP.STARTADDLEN, dStartAll)
EgtSetMachiningParam( MCH_MP.LIPERP, dMillDiam / 4)
EgtSetMachiningParam( MCH_MP.LITANG, 0)
EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAll)
EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-- aggiungo geometria
EgtSetMachiningGeometry( {{ Proc.Id, 0}})
end
-- eseguo
if not EgtApplyMachining( true, false) then
local _, sErr = EgtGetLastMachMgrError()
EgtSetOperationMode( nMchId, false)
return false, sErr
-- determino numero di parti
local dLen = Proc.Box:getDimX()
local dStartAccDist = BD.LONGCUT_ENDLEN
local dEndAccDist = BD.LONGCUT_ENDLEN
local nC = ceil( ( dLen - dStartAccDist - dEndAccDist) / BD.LONGCUT_MAXLEN)
local dC = 0
if nC > 0 then
dC = dLen / ( nC + 2)
dStartAccDist = dC
dEndAccDist = dC
nC = nC + 2
else
if dLen > min( dStartAccDist, dEndAccDist) then
nC = 2
dStartAccDist = dLen/2
dEndAccDist = dStartAccDist
else
nC = 1
dStartAccDist = 0
dEndAccDist = 0
end
end
-- eseguo le diverse parti
for i = 1, nC do
-- inserisco la lavorazione
local sName = 'Chm_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
local nMchId = EgtAddMachining( sName, sMilling)
if not nMchId then
local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
EgtOutLog( sErr)
return false, sErr
end
-- lavoro tenendo l'utensile a sinistra
EgtSetMachiningParam( MCH_MP.INVERT, true)
EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-- imposto lavorazione un poco sotto
local sDepth = 'TH+'..EgtNumToString( BD.CUT_EXTRA)
EgtSetMachiningParam( MCH_MP.DEPTH_STR, sDepth)
EgtSetMachiningParam( MCH_MP.STEP, 0)
-- imposto utilizzo faccia
EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.PARAL_DOWN)
-- imposto attacchi e uscite
local dSal, dEal
if bFront then
dSal = EgtIf( i == 1, dStartAll, -( i - 1) * dC)
dEal = EgtIf( i == nC, dEndAll, -( nC - i) * dC)
else
dSal = EgtIf( i == nC, dStartAll, -( nC - i) * dC)
dEal = EgtIf( i == 1, dEndAll, -( i - 1) * dC)
end
EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
EgtSetMachiningParam( MCH_MP.LIPERP, dMillDiam / 4)
EgtSetMachiningParam( MCH_MP.LITANG, 0)
EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-- aggiungo geometria
EgtSetMachiningGeometry( {{ Proc.Id, 0}})
-- eseguo
if not EgtApplyMachining( true, false) then
local _, sErr = EgtGetLastMachMgrError()
EgtSetOperationMode( nMchId, false)
return false, sErr
end
end
end
return true
end