DatBeam :
- migliorie a Tenon e DtTenon.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
-- ProcessTenon.lua by Egaltech s.r.l. 2019/07/08
|
||||
-- ProcessTenon.lua by Egaltech s.r.l. 2019/07/16
|
||||
-- Gestione calcolo tenone per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -31,7 +31,7 @@ function ProcessTenon.Classify( Proc)
|
||||
AuxId = AuxId + Proc.Id
|
||||
local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
|
||||
-- verifico se il tenone è lavorabile solo da sotto
|
||||
local bDown = ( vtExtr:getZ() < - 0.1)
|
||||
local bDown = ( vtExtr:getZ() < - 0.26)
|
||||
return true, bDown
|
||||
end
|
||||
|
||||
@@ -60,8 +60,8 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
|
||||
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 verso il basso (-5 deg)
|
||||
if vtExtr:getZ() < - 0.1 then
|
||||
-- verifico che il tenone non sia orientato verso il basso (-15 deg)
|
||||
if vtExtr:getZ() < - 0.26 then
|
||||
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' Tenon from bottom impossible'
|
||||
EgtOutLog( sErr)
|
||||
return false, sErr
|
||||
|
||||
Reference in New Issue
Block a user