DataBeam :
- piccole correzioni e migliorie.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
-- ProcessMortise.lua by Egaltech s.r.l. 2019/08/08
|
||||
-- ProcessMortise.lua by Egaltech s.r.l. 2019/08/27
|
||||
-- Gestione calcolo mortase per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -49,15 +49,9 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
|
||||
end
|
||||
-- se curva aperta la allungo e chiudo
|
||||
if not EgtCurveIsClosed( AuxId) then
|
||||
local EXTRA_LEN = 30
|
||||
local dGap = dist( EgtSP( AuxId), EgtEP( AuxId))
|
||||
if dGap <= 2 * EXTRA_LEN then
|
||||
EgtAddCurveCompoArcTg( AuxId, EgtSP( AuxId))
|
||||
else
|
||||
EgtExtendCurveStartByLen( AuxId, EXTRA_LEN)
|
||||
EgtExtendCurveEndByLen( AuxId, EXTRA_LEN)
|
||||
EgtCloseCurveCompo( AuxId)
|
||||
end
|
||||
local _, nCount = EgtCurveDomain( AuxId)
|
||||
EgtCloseCurveCompo( AuxId)
|
||||
EgtSetInfo( AuxId, 'OPEN', nCount)
|
||||
end
|
||||
-- recupero i dati del bottom
|
||||
local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
|
||||
|
||||
Reference in New Issue
Block a user