DataBeam :
- migliorie varie.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
-- ProcessMortise.lua by Egaltech s.r.l. 2019/03/22
|
||||
-- ProcessMortise.lua by Egaltech s.r.l. 2019/08/07
|
||||
-- Gestione calcolo mortase a coda di rondice per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -71,8 +71,12 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId)
|
||||
dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
|
||||
end
|
||||
end
|
||||
-- verifico se necessarie più passate
|
||||
local dDist = dist( EgtSP( AuxId, GDB_RT.GLOB), EgtEP( AuxId, GDB_RT.GLOB))
|
||||
-- verifico se necessarie più passate (distanza all'imbocco ortogonale all'asse)
|
||||
local vtDiff = EgtEP( AuxId, GDB_RT.GLOB) - EgtSP( AuxId, GDB_RT.GLOB)
|
||||
local vtAx = EgtEV( AuxId, GDB_RT.GLOB) - EgtSV( AuxId, GDB_RT.GLOB)
|
||||
vtAx:normalize()
|
||||
local vtOrtDiff = vtDiff - vtDiff * vtAx * vtAx
|
||||
local dDist = vtOrtDiff:len()
|
||||
if dDist < dToolDiam + 0.5 then
|
||||
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' Dt mortise too narrow'
|
||||
EgtOutLog( sErr)
|
||||
|
||||
Reference in New Issue
Block a user