DataWall :

- correzioni varie
- aggiunta gestione origini diverse da BtlInfo/REFPOS su tavola.
This commit is contained in:
DarioS
2021-07-29 11:27:31 +02:00
parent 06c592d72b
commit 5794d267b4
5 changed files with 25 additions and 15 deletions
+4 -3
View File
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/07/07
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/07/28
-- Gestione calcolo profilo libero per Pareti
-- Tabella per definizione modulo
@@ -440,6 +440,7 @@ local function GetTunnelDimension( nId, nPartId, nAddGrpId)
ptN2:toGlob(frFc)
-- creo superficie intermedia
local nSurfInt = EgtSurfTmPlaneInBBox( nAddGrpId, ptN2, vtOrtho, b3Solid, GDB_ID.ROOT)
if not nSurfInt then return end
-- ritaglio la superficie con le facce della fessura
for i = 1, nFacCnt do
local ptN, vtN = EgtSurfTmFacetCenter( nId, i - 1, GDB_ID.ROOT)
@@ -1079,7 +1080,7 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
end
-- cancello la copia della superfice
if nNewProc then
EgtErase(nNewProc)
EgtErase( nNewProc)
end
return true
end
@@ -1546,7 +1547,7 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
-- assegno affondamento
local dDepth = vFace[i].Depth
local vtNz = vFace[i].Norm:getZ()
if vtNz < 0 then
if ( WD.CHECK_MIN_Z_SAW == nil or WD.CHECK_MIN_Z_SAW) and vtNz < 0 then
dDepth = dDepth - dSawThick * abs( vtNz)
end
EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)