DataBeam :
- aggiunta gestione svuotature con lati aperti in LapJoint e assimilate.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
-- ProcessTenon.lua by Egaltech s.r.l. 2019/09/27
|
||||
-- ProcessTenon.lua by Egaltech s.r.l. 2019/10/08
|
||||
-- Gestione calcolo tenone a coda di rondine per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
-- ProcessLapJoint.lua by Egaltech s.r.l. 2019/10/05
|
||||
-- ProcessLapJoint.lua by Egaltech s.r.l. 2019/10/08
|
||||
-- Gestione calcolo mezzo-legno per Travi
|
||||
-- 2019/10/08 Agg. gestione OpenPocket.
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
local ProcessLapJoint = {}
|
||||
@@ -630,9 +631,10 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId)
|
||||
end
|
||||
end
|
||||
-- recupero la lavorazione
|
||||
local sMchFind = EgtIf( Proc.Fct <= 3, 'OpenPocket', 'Pocket')
|
||||
local dDiam = min( dH, dV)
|
||||
EgtOutLog( 'Mortise Find Diam =' .. EgtNumToString( dDiam))
|
||||
local sPocketing = ML.FindPocketing( 'Mortise', dDiam, dFacElev)
|
||||
--EgtOutLog( 'Mortise Find Diam =' .. EgtNumToString( dDiam))
|
||||
local sPocketing = ML.FindPocketing( sMchFind, dDiam, dFacElev)
|
||||
-- se non trova una svuotatura adatta
|
||||
if not sPocketing then
|
||||
-- verifico se due o tre facce a L con una faccia di terminazione
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
-- ProcessMortise.lua by Egaltech s.r.l. 2019/08/27
|
||||
-- ProcessMortise.lua by Egaltech s.r.l. 2019/10/08
|
||||
-- Gestione calcolo mortase per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -70,7 +70,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
|
||||
local _, dCenElev = BL.GetPointDirDepth( nPartId, ptC, vtN)
|
||||
dMorH = max( dMorH, dCenElev or 0)
|
||||
-- recupero la lavorazione
|
||||
local sPocketing = ML.FindPocketing( 'Mortise', 30)
|
||||
local sPocketing = ML.FindPocketing( 'Pocket', 30)
|
||||
if not sPocketing then
|
||||
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' pocketing not found in library'
|
||||
EgtOutLog( sErr)
|
||||
|
||||
Reference in New Issue
Block a user