diff --git a/NestProcess.lua b/NestProcess.lua index f70fdd9..785de34 100644 --- a/NestProcess.lua +++ b/NestProcess.lua @@ -1807,40 +1807,39 @@ if bNestingOk then end end - -- aggiungo pezzi nestati a mano - nPartCount = 0 - for nInd = 1, #vDoneManually do - if vDoneManually[nInd].SheetId == nId then - vDoneManually[nInd].Done = 1 - for nInd2 = 1, #(vDoneManually[nInd].Parts) do - nPartCount = nPartCount + 1 - local nPartDuploId = EgtDuploNew( vDoneManually[nInd].Parts[nInd2].Id) - - -- aggiungo le curve corrispondenti alle aree di lavorazione del pezzo - local sToolOutlines = EgtGetInfo( vDoneManually[nInd].Parts[nInd2].Id, "ToolOutlines", 's') - if sToolOutlines then - -- recupero o creo il gruppo per gli outlines - local nToolOutlinesGrp = EgtGetFirstNameInGroup( nPartDuploId, "ToolOutlines") - if not nToolOutlinesGrp then - nToolOutlinesGrp = EgtGroup( nPartDuploId) - EgtSetName( nToolOutlinesGrp, "ToolOutlines") - EgtSetStatus( nToolOutlinesGrp, GDB_ST.ON) - end - - for str in string.gmatch(sToolOutlines, "([^"..",".."]+)") do - EgtCopyGlob( tonumber(str), nToolOutlinesGrp) + -- aggiungo pezzi nestati a mano + nPartCount = 0 + for nInd = 1, #vDoneManually do + if vDoneManually[nInd].SheetId == nId then + vDoneManually[nInd].Done = 1 + for nInd2 = 1, #(vDoneManually[nInd].Parts) do + nPartCount = nPartCount + 1 + local nPartDuploId = EgtDuploNew( vDoneManually[nInd].Parts[nInd2].Id) + + -- aggiungo le curve corrispondenti alle aree di lavorazione del pezzo + local sToolOutlines = EgtGetInfo( vDoneManually[nInd].Parts[nInd2].Id, "ToolOutlines", 's') + if sToolOutlines then + -- recupero o creo il gruppo per gli outlines + local nToolOutlinesGrp = EgtGetFirstNameInGroup( nPartDuploId, "ToolOutlines") + if not nToolOutlinesGrp then + nToolOutlinesGrp = EgtGroup( nPartDuploId) + EgtSetName( nToolOutlinesGrp, "ToolOutlines") + EgtSetStatus( nToolOutlinesGrp, GDB_ST.ON) + end + + for str in string.gmatch(sToolOutlines, "([^"..",".."]+)") do + EgtCopyGlob( tonumber(str), nToolOutlinesGrp) + end end + + -- applico flip, rotazione e traslazione pezzo e box da nesting + EgtSetInfo( nMachGroup, "PART" .. nPartCount, nPartDuploId .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posX, 3) .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posY, 3) .. "," .. 0 .."," .. 0) + EgtSetInfo( nPartDuploId, "POSX", vDoneManually[nInd].Parts[nInd2].posX) + EgtSetInfo( nPartDuploId, "POSY", vDoneManually[nInd].Parts[nInd2].posY) end - - -- applico flip, rotazione e traslazione pezzo e box da nesting - EgtSetInfo( nMachGroup, "PART" .. nPartCount, nPartDuploId .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posX, 3) .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posY, 3) .. "," .. 0 .."," .. 0) - EgtSetInfo( nPartDuploId, "POSX", vDoneManually[nInd].Parts[nInd2].posX) - EgtSetInfo( nPartDuploId, "POSY", vDoneManually[nInd].Parts[nInd2].posY) end end end - - end -- altrimenti pezzo else