DataBeam :

- piccole correzioni e migliorie.
This commit is contained in:
Dario Sassi
2019-08-29 09:11:27 +00:00
parent a4bbc3767c
commit fcdc31ae09
3 changed files with 12 additions and 14 deletions
+4 -10
View File
@@ -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)