Trimming :

- piccole migliorie/correzioni.
This commit is contained in:
Riccardo Elitropi
2026-01-26 18:05:42 +01:00
parent e44363de3d
commit ae87d890cb
2 changed files with 8 additions and 6 deletions
+4 -4
View File
@@ -39,8 +39,8 @@ if dEdgeLinTol then dLinTolForEdges = dEdgeLinTol end
if dEdgeAngTol then dAngTolForEdges = dEdgeAngTol end
if dEdgeThick then dThickForEdges = dEdgeThick end
local vsVal = EgtDialogBox( 'Edge Extraction', { 'Type', 'CB:*Extract Edges,Edges from Normals'},
{ 'Linear Tolerance', tostring( dLinTolForEdges)},
{ 'Angular Tolerance', tostring( dAngTolForEdges)},
{ 'Approx Linear Tolerance', tostring( dLinTolForEdges)},
{ 'Approx Angular Tolerance', tostring( dAngTolForEdges)},
{ 'Thickness', tostring( dThickForEdges)})
if not vsVal or #vsVal ~= 4 then return end
dEdgeLinTol = tonumber( vsVal[2])
@@ -92,7 +92,7 @@ local nFirstId, nCount
--------------------------------- Estrazione degli Edges ---------------------------------
if vsVal[1] == 'Extract Edges' then
-- Recupero i Bordi
bOk, nFirstId, nCount = EgtTrimmingGetBorders( nCurrLayerId, vSel, dEdgeLinTol, dEdgeAngTol)
bOk, nFirstId, nCount = EgtTrimmingGetBorders( nCurrLayerId, vSel, dLinTol, dAngTol, dEdgeLinTol, dEdgeAngTol)
if not bOk then
EgtOutBox( ERROR_EDGE_CREATION .. 'Error in Computing Edges', 'Error', 'ERROR', 'OK')
return
@@ -109,7 +109,7 @@ if vsVal[1] == 'Extract Edges' then
--------------------------------- Calcolo Edges per normali ---------------------------------
else
-- Calcolo i Bordi
bOk, nFirstId, nCount = EgtTrimmingGetBordersByNormals( nCurrLayerId, vSel, dEdgeLinTol, dEdgeAngTol, dEdgeThick)
bOk, nFirstId, nCount = EgtTrimmingGetBordersByNormals( nCurrLayerId, vSel, dLinTol, dAngTol, dEdgeLinTol, dEdgeAngTol, dEdgeThick)
if not bOk then
EgtOutBox( ERROR_EDGE_CREATION .. 'Error in Computing Edges', 'Error', 'ERROR', 'OK')
return
+4 -2
View File
@@ -29,8 +29,10 @@ local bDelete = EgtOutBox( 'Do you want to delete the current Trimming machining
if not bDelete then return end
-- Recupero ed eventualmente elimino il Layer delle curve di Sincronizzazione associato
local nLayerSynEditId = GlobVar.GetCurrentEditSyncCurvesLayer( nCurrPartId, nCurrLayerId)
if nLayerSynEditId ~= nil and nLayerSynEditId ~= GDB_ID.NULL then EgtErase( nLayerSynEditId) end
local nLayerSyncEditId = GlobVar.GetCurrentEditSyncCurvesLayer( nCurrPartId, nTrimmingLayerId)
if nLayerSyncEditId ~= nil and nLayerSyncEditId ~= GDB_ID.NULL then EgtErase( nLayerSyncEditId) end
-- Elimino il Layer di Trimming corrente
EgtErase( nTrimmingLayerId)
-- Aggiorno la Grafica