- in Squaring modifiche a GetTools e CreateGeometry per contemplare tutti i casi specifici

This commit is contained in:
luca.mazzoleni
2024-10-23 12:13:39 +02:00
parent fdd114a8cd
commit b4b3df0f5e
2 changed files with 223 additions and 98 deletions
+6 -6
View File
@@ -1094,13 +1094,9 @@ local function AddSquaring( sSquaringTool, RawPart)
return false, sMsg
end
bOk, Geometry = Squaring.CreateGeometry( sSquaringTool, RawPart, SquaringTools)
if not bOk then
sMsg = 'Squaring failed: cannot create geometry'
return false, sMsg
end
MachiningGeometries = Squaring.CreateGeometry( sSquaringTool, SquaringTools, RawPart)
bOk, sMsg, OperationsId = Squaring.AddMachinings( sSquaringTool, SquaringTools, Geometry)
bOk, sMsg, OperationsId = Squaring.AddMachinings( MachiningGeometries)
if not bOk then
for i = 1, #OperationsId do
EgtRemoveOperation( i)
@@ -1111,6 +1107,10 @@ local function AddSquaring( sSquaringTool, RawPart)
Squaring.AddScrapRemoval()
if WD.SQUARING_TYPE == 2 then
Squaring.RemoveExternalMachinings( Geometry)
end
return true, sMsg
end