Merge branch 'main' into develop

- Corretta direzione motosega

Essetre-90580012.mlde

@@ -19,8 +19,8 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6k1'
-PP_NVER = '2.6.11.1'
+PP_VER = '2.7h1'
+PP_NVER = '2.7.8.1'
 
 -- Parametri macchina
 NumericalControl = 'NUM'                                      -- NUM o TPA
@@ -233,6 +233,7 @@ EmtHead {
       OthColl = {'B1/SOLID', 'C1/SOLID'},
       Geo = 'H1_HEAD/GEO'}
 -- Sega a catena
+-- attenzione: gestita solo la home per la posizione 104, unica abilitata. Se si aggiungono altre posizioni, la home sarà da modificare nella OnSetHead
 EmtAxis {
       Name = 'A1',
       Parent = 'B1',
@@ -241,7 +242,7 @@ EmtAxis {
       Dir = Z_AX(),
       Pos = Point3d( 0, 0, 0),
       Stroke = { -90, 180},
-      Home = 0,
+      Home = 90,
       Geo = 'A1_AXIS/GEO'}
 local H3Id = EmtHead {
       Name = 'H3',
@@ -249,7 +250,7 @@ local H3Id = EmtHead {
       HSet = 'H1',
       Type = MCH_HT.STD,
       Pos = Point3d( 0, 0, -ChSawLen),
-      TDir = -Y_AX(),
+      TDir = X_AX(),
       ADir = Z_AX(),
       Rot1W = 0.1,
       SolCh = MCH_SCC.ADIR_NEAR,

Essetre-WALL.NUM.mlpe

@@ -181,6 +181,7 @@ function OnMachiningStart()
    --EMT.MCHLIBNAME = EgtGetMachiningParam( MCH_MP.NAME)
    EMT.MCHNAME = EgtGetOperationName( EMT.MCHID)
    EMT.MCHTYPE = EgtGetMachiningParam(MCH_MP.TYPE)
+   EMT.MCHUSERNOTES = EgtGetMachiningParam( MCH_MP.USERNOTES)
    -- non ancora iniziata la lavorazione
    EMT.MCHFIRST = true
    -- primo posizionamento sempre in globale
@@ -219,10 +220,13 @@ function OnRapid()
          -- se prima lavorazione sui fianchi con sega a catena
          if EMT.CSAWFIRST and string.sub( EMT.MCHNAME, 1, 5) == 'Csaw_' then
             EMT.CSAWFIRST = false
-            -- pausa per rimozione sfridi
-            local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
-            local ParkY = max( -( MaxY + b3Raw:getMin():getX() + b3Raw:getDimX() + 3000), -MaxY)
-            EmtOutput( 'G104 Y' .. EmtLenToString( ParkY, 3) .. ' ET1' .. GetEF())
+            -- eventuale pausa per rimozione sfridi
+            if EMT.SCRAPFIRST then
+               EMT.SCRAPFIRST = false
+               local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
+               local ParkY = max( -( MaxY + b3Raw:getMin():getX() + b3Raw:getDimX() + 3000), -MaxY)
+               EmtOutput( 'G104 Y' .. EmtLenToString( ParkY, 3) .. ' ET1' .. GetEF())
+            end
             -- pre-posizionamento
             EmitCount()
             EmtResetPrev()
@@ -240,8 +244,10 @@ function OnRapid()
          end
       -- altrimenti verifico se necessaria pausa
       else
-         if EMT.SCRAPFIRST and EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER') then
-            EMT.SCRAPFIRST = false
+         local bSystemSR = ( EMT.SCRAPFIRST and EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER'))
+         local bUserSR = ( EgtGetValInNotes( EMT.MCHUSERNOTES, 'ScrapRemove', 'i') == 1)
+         if bSystemSR or bUserSR then
+            if bSystemSR then EMT.SCRAPFIRST = false end
             -- pausa per rimozione sfridi
             local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
             local ParkY = max( -( MaxY + b3Raw:getMin():getX() + b3Raw:getDimX() + 3000), -MaxY)
@@ -555,10 +561,10 @@ function GetEU()
    elseif EMT.HEAD == 'H2' then
       sEU = ' EU0'
    elseif EMT.HEAD == 'H3' then
-      if abs( EMT.R3 - 0) < 0.1 then
-         sEU = ' EU101'
-      --elseif abs( EMT.R3 - 90) < 0.1 then
-      --   sEU = ' EU104'
+      --if abs( EMT.R3 - 0) < 0.1 then
+      --   sEU = ' EU101'
+      if abs( EMT.R3 - 90) < 0.1 then
+         sEU = ' EU104'
       else
          EmtSetLastError( 1210, 'Chain saw orientation not allowed')
       end

Essetre-WALL.mlpe

@@ -323,6 +323,7 @@ function OnSimulMachiningStart()
    EMT.MCHNAME = EgtGetOperationName( EMT.MCHID)
    EMT.MCHTYPE = EgtGetMachiningParam( MCH_MP.TYPE)
    local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+   EMT.MCHUSERNOTES = EgtGetMachiningParam( MCH_MP.USERNOTES)
    EMT.VMRS = false
    -- recupero CUTID e TASKID della feature lavorata
    local vId = EgtGetMachiningGeometry()
@@ -335,15 +336,15 @@ function OnSimulMachiningStart()
       EMT.TASKID = 0
    end
    -- eventuale pausa per rimozione sfridi
-   if EMT.SCRAPFIRST then
-      if ( EMT.HEAD == 'H3' and string.sub( EMT.MCHNAME, 1, 5) == 'Csaw_') or EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER') then
-         EMT.SCRAPFIRST = false
-         EgtOutText( 'Pause for Scrap Remove')
-         ParkForScrapRemove()
-         ExecScrapRemove()
-         EgtPause( 500)
-         EgtOutText( '')
-      end
+   local bSystemSR = ( EMT.SCRAPFIRST and (( EMT.HEAD == 'H3' and string.sub( EMT.MCHNAME, 1, 5) == 'Csaw_') or EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER')))
+   local bUserSR = ( EgtGetValInNotes( EMT.MCHUSERNOTES, 'ScrapRemove', 'i') == 1)
+   if bSystemSR or bUserSR then
+      if bSystemSR then EMT.SCRAPFIRST = false end
+      EgtOutText( 'Pause for Scrap Remove')
+      ParkForScrapRemove()
+      ExecScrapRemove()
+      EgtPause( 500)
+      EgtOutText( '')
    end
    -- non ancora iniziata la lavorazione
    EMT.MCHFIRST = true
@@ -463,76 +464,181 @@ end
 
 ---------------------------------------------------------------------
 function ExecScrapRemove()
-   if EMT.VMILL then
-      local nPart = EgtVolZmapPartCount( EMT.VMILL)
-      if nPart > 1 then
-         -- recupero i box dei pezzi
-         local vPrtBox = {}
-         local nPartId = EgtGetFirstPartInRawPart( EMT.RAWID)
-         while nPartId do
-            local b3Part = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
-            table.insert( vPrtBox, b3Part)
-            nPartId = EgtGetNextPartInRawPart( nPartId)
+   -- Se non c'è virtual milling attivo, esco
+   if not EMT.VMILL then return end
+   -- Se non ci sono almeno due parti nel virtual milling, esco
+   local nVmPart = EgtVolZmapPartCount( EMT.VMILL)
+   if nVmPart < 2 then return end
+   -- Recupero box e area dei pezzi
+   local vPart = {}
+   local nPartId = EgtGetFirstPartInRawPart( EMT.RAWID)
+   while nPartId do
+      -- box e area
+      local b3Part = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+      local dPartArea = b3Part:getDimX() * b3Part:getDimY()
+      local nOlEntId = EgtGetFirstInGroup( EgtGetFirstNameInGroup( nPartId, 'Outline') or GDB_ID.NULL)
+      while nOlEntId do
+         if EgtGetType( nOlEntId) == GDB_TY.SRF_FRGN and EgtSurfFrNormVersor( nOlEntId, GDB_ID.ROOT):getZ() > 0.8 then
+            dPartArea = EgtSurfArea( nOlEntId)
+            break
          end
-         -- tengo solo le parti del Vmill che contengono almeno un box di un pezzo
-         for i = nPart, 1, -1 do
-            -- recupero il box della parte
-            local b3VmPart = EgtVolZmapGetPartBBoxGlob( EMT.VMILL, i - 1, GDB_BB.STANDARD)
-            -- lo ingrandisco per sicurezza
-            b3VmPart:expand( 100)
-            -- verifiche per parte da eliminare
-            local bToRemove = true
-            -- se box abbastanza grande, allora da verificare
-            local dVol = b3VmPart:getDimX() * b3VmPart:getDimY() * b3VmPart:getDimZ()
-            if dVol > 1e6 then
-               for j = 1, #vPrtBox do
-                  local b3Part = vPrtBox[j]
-                  if EnclosesXY( b3VmPart, b3Part) then
-                     bToRemove = false
+         nOlEntId = EgtGetNext( nOlEntId)
+      end
+      -- box espanso
+      local b3PartExp = BBox3d( b3Part)
+      b3PartExp:Add( b3PartExp:getMin() - Vector3d( 10, 10, 0))
+      b3PartExp:Add( b3PartExp:getMax() + Vector3d( 10, 10, 0))
+      -- salvo i dati
+      table.insert( vPart, { Box = b3Part, BoxExp = b3PartExp, Area = dPartArea, Outline = nOlEntId})
+      -- passo al successivo
+      nPartId = EgtGetNextPartInRawPart( nPartId)
+   end
+   -- Recupero box e area delle parti di Vmill
+   local vVmPart = {}
+   for i = 1, nVmPart do
+      -- recupero il box e calcolo l'area della parte come Vmill
+      local b3VmPart = EgtVolZmapGetPartBBoxGlob( EMT.VMILL, i - 1, GDB_BB.STANDARD)
+      local dVmPartArea = EgtVolZmapPartVolume( EMT.VMILL, i - 1) / b3VmPart:getDimZ()
+      -- box espanso
+      local b3VmPartExp = BBox3d( b3VmPart)
+      b3VmPartExp:Add( b3VmPart:getMin() - Vector3d( 100, 100, 0))
+      b3VmPartExp:Add( b3VmPart:getMax() + Vector3d( 100, 100, 0))
+      -- salvo i dati
+      table.insert( vVmPart, { Box = b3VmPart, BoxExp = b3VmPartExp, Area = dVmPartArea})
+   end
+
+   -- se presente squadratura, tengo tutti i pezzi all'interno
+   local nRawId = EgtGetFirstRawPart()
+   local SquaringEntities = {}
+   SquaringEntities = EgtGetNameInGroup( nRawId, 'SquaringGeometry')
+   local b3SquaringBox = nil
+   if SquaringEntities then
+      for i = 1, #SquaringEntities do
+         if i == 1 then
+            b3SquaringBox = EgtGetBBoxGlob( SquaringEntities[i], GDB_BB.STANDARD)
+         else
+            if b3SquaringBox then
+               b3SquaringBox:Add( EgtGetBBoxGlob( SquaringEntities[i], GDB_BB.STANDARD))
+            end
+         end
+      end
+      if b3SquaringBox then
+         b3SquaringBox:expand( 50)
+      end
+   end
+
+   -- Tengo solo le parti del Vmill che contengono almeno un box di un pezzo o che interferiscono e sono abbastanza grandi
+   local nValidCnt = 0
+   for i = #vVmPart, 1, -1 do
+      -- verifiche per parte da eliminare
+      local bToRemove = true
+      -- se area abbastanza grande, allora da verificare
+      if vVmPart[i].Area > 1e4 then
+         -- se presente squadratura, verifico che il VMILL sia all'interno del BOX squadratura
+         if not b3SquaringBox or EnclosesXY( b3SquaringBox, vVmPart[i].Box) then
+            -- verifico se sono sicuramente valide (i due box si equivalgono entro la tolleranza)
+            for j = 1, #vPart do
+               if ( vPart[j].Outline  and  vVmPart[i].Area > 0.95 * vPart[j].Area  and  vVmPart[i].Area < 1.05 * vPart[j].Area) or
+                  ( EnclosesXY( vVmPart[i].BoxExp, vPart[j].Box) and EnclosesXY( vPart[j].BoxExp, vVmPart[i].Box)) then
+                  bToRemove = false
+                  vVmPart[i].Part = j
+                  nValidCnt = nValidCnt + 1
+                  break
+               end
+            end
+            -- verifico se sono molto probabilmente valide
+            for j = 1, #vPart do
+               if bToRemove and ( OverlapsXY( vVmPart[i].Box, vPart[j].Box) and vVmPart[i].Area > 0.25 * vPart[j].Area) then
+                  bToRemove = false
+                  break
+               end
+            end
+         end
+      end
+      -- se richiesta eliminazione, la eseguo
+      if bToRemove then
+         EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
+         table.remove( vVmPart, i)
+      end
+   end
+   -- Se il numero delle parti sicuramente valide uguaglia il numero dei pezzi, elimino le altre ed ho finito
+   if nValidCnt == #vPart then
+      for i = #vVmPart, 1, -1 do
+         if not vVmPart[i].Part then
+            EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
+            table.remove( vVmPart, i)
+         end
+      end
+      return
+   end
+   -- Calcolo punti interni alle parti di Vmill non già dichiarate valide
+   for i = 1, #vVmPart do
+      if not vVmPart[i].Part then
+         local vtDir = VectorFromRotated( X_AX(), Z_AX(), 45) 
+         local ptP = vVmPart[i].Box:getCenter() - vtDir * ( vVmPart[i].Box:getRadius() + 10)
+         local bOk, vIntType, vIntDist = EgtLineVolZmapInters( ptP, vtDir, EMT.VMILL, GDB_RT.GLOB)
+         if bOk then
+            for j = 1, #vIntType do
+               -- se la corrente entra ed esiste la successiva che esce
+               if vIntType[j] == GDB_SLT.IN and j + 1 <= #vIntType and vIntType[j + 1] == GDB_SLT.OUT then
+                  local ptC = ptP + vtDir * (( vIntDist[j] + vIntDist[j + 1]) / 2)
+                  local nPart = EgtVolZmapGetPartMinDist( EMT.VMILL, ptC, GDB_RT.GLOB)
+                  if nPart == i - 1 then
+                     if not vVmPart[i].Cen then
+                        vVmPart[i].Cen = ptC
+                     elseif not vVmPart[i].Cen2 then
+                        vVmPart[i].Cen2 = ptC
+                     else
+                        vVmPart[i].Cen3 = ptC
+                        break
+                     end
+                  end
+               end
+            end
+         end
+      end
+   end
+   -- Verifico le parti di Vmill non già dichiarate valide
+   for i = #vVmPart, 1, -1 do
+      if not vVmPart[i].Part then
+         local bToRemove = true
+         if vVmPart[i].Cen then
+            for j = 1, #vPart do
+               if EnclosesPointXY( vPart[j].Box, vVmPart[i].Cen) then
+                  bToRemove = false
+                  break
+               elseif vVmPart[i].Cen2 and EnclosesPointXY( vPart[j].Box, vVmPart[i].Cen2) then
+                  bToRemove = false
+                  break
+               elseif vVmPart[i].Cen3 and EnclosesPointXY( vPart[j].Box, vVmPart[i].Cen3) then
+                  bToRemove = false
+                  break
+               end
+               -- controllo per gestire squadratura inserita manualmente da operatore
+               -- verifico se il box del part è completamente incluso nel box del VM, allora non posso cancellarlo
+               if Encloses( vVmPart[i].BoxExp, vPart[j].Box) then
+                  bToRemove = false
+                  break
+               end
+            end
+            for k = 1, #vVmPart do
+               if k ~= i then
+                  local vExpBox = BBox3d( vVmPart[k].Box)
+                  -- lo espando in XY per sicurezza
+                  vExpBox:Add( vExpBox:getMin() - Vector3d( 100, 100, 0))
+                  vExpBox:Add( vExpBox:getMax() + Vector3d( 100, 100, 0))
+                  -- verifico contenimento
+                  if EnclosesXY( vExpBox, vVmPart[i].Box) then
+                     bToRemove = true
                      break
                   end
                end
             end
-            -- se richiesta eliminazione, la eseguo
-            if bToRemove then
-               EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
-            end
          end
-         -- se sono rimaste più parti del numero di pezzi, devo fare ulteriori verifiche
-         local nRest = EgtVolZmapPartCount( EMT.VMILL)
-         if nRest > #vPrtBox then
-            -- recupero tutti i box delle parti
-            local vVmpBox = {}
-            for i = 1, nRest do
-               local b3VmPart = EgtVolZmapGetPartBBoxGlob( EMT.VMILL, i - 1, GDB_BB.STANDARD)
-               table.insert( vVmpBox, b3VmPart)
-            end
-            --
-            local vVmpFlag = {}
-            for i = 1, #vPrtBox do
-               local b3Part = vPrtBox[i]
-               local nVmp
-               local dErr = 400
-               for j = 1, nRest do
-                  local b3VmPart = vVmpBox[j]
-                  local dCurrErr = ( b3Part:getCenter() - b3VmPart:getCenter()):len() +
-                                   abs( b3Part:getDimX() - b3VmPart:getDimX()) +
-                                   abs( b3Part:getDimY() - b3VmPart:getDimY()) +
-                                   abs( b3Part:getDimZ() - b3VmPart:getDimZ())
-                  if dCurrErr < dErr then
-                     nVmp = j
-                     dErr = dCurrErr
-                  end
-               end
-               if nVmp then
-                  vVmpFlag[nVmp] = i
-               end
-            end
-            for i = nRest, 1, -1 do
-               if not vVmpFlag[i] then
-                  EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
-               end
-            end
+         -- se richiesta eliminazione, la eseguo
+         if bToRemove then
+            EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
+            table.remove( vVmPart, i)
          end
       end
    end

Wall/WallData.lua

@@ -23,7 +23,7 @@ local WallData = {
    MIN_Z_SAW = -6,                          -- quota minima rispetto alla tavola (default 0)
    NZ_MINA = 0.5,                           -- componente limite in Z normale di una faccia (-30deg)
    NZ_MINB = -0.4,                          -- componente limite in Z normale di un insieme di facce (-23deg)
-   DRILL_TOL = 0.5,                         -- tolleranza tra diametro foro e diametro punta
+   DRILL_TOL = 0.2,                         -- tolleranza tra diametro foro e diametro punta
    DRILL_VZ_MIN = 0.5,                      -- componente limite in Z del versore di un foro
    DRILL_VX_MAX = 0.866,                    -- componente limite in X del versore di un foro sulle facce laterali
    DRILL_OVERLAP = 5,                       -- sovrapposizione tra due mezze forature
@@ -37,7 +37,7 @@ local WallData = {
    SIMUL_VIEW_DIR = 3,                      -- direzione di vista predefinita per la simulazione (1=NW, 2=SW, 3=NE, 4=SE)
    ORIG_CORNER = 'TL',                      -- angolo tavola per origine di battuta (BR (default), TR, BL, TL)
    RAWPART_ROT = 180,                       -- rotazione del pannello grezzo rispetto alla descrizione BTL
-   CUT_WITH_OUTLINE = true,                 -- taglio delle feature con l'outline del pezzo
+   CUT_WITH_OUTLINE = false,                 -- taglio delle feature con l'outline del pezzo
    TAB_EXTRA_XP = 10500,                    -- extra spazio su tavola per grezzo in X più
    TAB_EXTRA_XM = 0,                        -- extra spazio su tavola per grezzo in X meno
    TAB_EXTRA_YP = 0,                        -- extra spazio su tavola per grezzo in Y più
@@ -45,13 +45,20 @@ local WallData = {
    DELTA_X = 0,                             -- allontanamento in X dai riferimenti
    DELTA_Y = 0,                             -- allontanamento in Y dai riferimenti
    DELTA_Z = 0,                             -- sollevamento dalla tavola
+   SQUARING_TYPE = 0,                       -- master panel squaring: 0 = disabled, 1 = on rawpart, 2 = shrink to parts
+   SQUARING_TOOL = 5,                       -- 0 = auto, 1 = double diskmill, 2 = double diskmill+blade, 3 = double blade, 4 = diskmill, 5 = blade, 6 = double mill, 7 = mill
+   SQUARING_USE_ZIGZAG = true,              -- false = oneway, true = zigzag. For mill only
+   SQUARING_STARTS_ON_REFERENCE = true,     -- false = squaring starts near machine parking, true = squaring starts on reference edge
+   SQUARING_OFFSET_XY = 0,                  -- > 0 = larger rectangle, < 0 = smaller rectangle. Only with squaring on rawpart
+   SQUARING_EXTEND_Z = 0,                   -- > 0 = squaring extends below Z0, < 0 = squaring stops above Z0
+   SQUARING_MAX_OVERMATERIAL = 40,          -- max overmaterial before squaring
 }
 
 local function GetChainSawBlockedAxis( nInd)
    if nInd == 1 then
-      return 'A1=0'
-   else
       return 'A1=90'
+   else
+      return 'A1=0'
    end
 end
 WallData.GetChainSawBlockedAxis = GetChainSawBlockedAxis