In SplitCut e HeadCut aggiunti smussi con possibilità di raccordare o smussare spigoli

2025-11-07 10:02:16 +01:00
parent 0d5dd4d348
commit fef5db6046
2 changed files with 239 additions and 0 deletions
@@ -167,6 +167,99 @@ local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmTail)
   return true, nil
 end

+---------------------------------------------------------------------
+-- smussi in coda
+local function MakeTailChamfer( idProc, nPartId, dDepthTailChamfer)
+   -- recupero gruppo per geometria aggiuntiva
+   local AddGrpId = BL.GetAddGroup( nPartId)
+   if not AddGrpId then
+      local sErr = 'Error on process StartFace impossible to find AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+
+   -- recupero la lavorazione
+   local sMilling = ML.FindMilling( 'Mark')
+   if not sMilling then
+      local sErr = 'Error : milling not found in library'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+
+   local nLoopId, nLoopCnt = EgtExtractSurfTmFacetLoops( idProc, 0, AddGrpId)
+   if not nLoopId or nLoopCnt > 1 then
+      local sErr = 'Error MakeHeadChamfer : too many loops'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+
+   -- setto direzione estrusione corretta
+   EgtModifyCurveExtrusion( nLoopId, -X_AX())
+   EgtSetGridFrame( Frame3d( 0,0,0, GDB_FR.LEFT))
+
+   local dQ09Value = EgtGetInfo( idProc, 'Q09', 'd')
+   local bChamferedEdge = dQ09Value > 0
+
+   local nIdFirstEntity, nEntityCnt = EgtExplodeCurveCompo( nLoopId)
+   local p3MidPoint = EgtMP( nIdFirstEntity, GDB_ID.GRID)
+   
+   for i = 0, nEntityCnt - 1 do
+      if EgtCurveLength( nIdFirstEntity + i) - 10 < abs( dQ09Value) * 2 then
+         local sErr = 'Error MakeTailChamfer : Q09 too high'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+   end
+
+   -- creo raccordo o fillet
+   for i = 0, nEntityCnt - 1 do
+      local idFirst = nIdFirstEntity + i
+      local idSecond = EgtIf( i == nEntityCnt - 1, nIdFirstEntity, idFirst + 1)
+      local ptEndPointFirst = EgtEP( idFirst, GDB_ID.GRID) - ( abs( dQ09Value) * EgtEV( idFirst, GDB_ID.GRID))
+      local ptStartPointSecond = EgtSP( idSecond, GDB_ID.GRID) + ( abs( dQ09Value) * EgtEV( idSecond, GDB_ID.GRID))
+
+      if bChamferedEdge then
+         EgtCurveChamfer( AddGrpId, idFirst, ptEndPointFirst, idSecond, ptStartPointSecond, abs( dQ09Value), true, GDB_RT.GRID)
+      else
+         EgtCurveFillet( AddGrpId, idFirst, ptEndPointFirst, idSecond, ptStartPointSecond, abs( dQ09Value), true, GDB_RT.GRID)
+      end
+   end
+
+   EgtSelectPathObjs( nIdFirstEntity, true)
+   local idGeom, idGeomCnt = EgtCurveCompoByChain( AddGrpId, GDB_ID.SEL, {0,0,0}, true)
+   if not idGeom or idGeomCnt > 1 then
+      local sErr = 'Error MakeTailChamfer : too many loops'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   EgtChangeClosedCurveStartPoint( idGeom, p3MidPoint, GDB_RT.GRID)
+
+   -- Inserisco la lavorazione del lato standard
+   local dExtra = 2
+   local sName1 = 'TailCham_' .. ( EgtGetName( idProc) or tostring( idProc))
+   local nMch1Id = EgtAddMachining( sName1, sMilling)
+   if not nMch1Id then
+      local sErr = 'Error adding machining ' .. sName1 .. '-' .. sMilling
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- aggiungo geometria
+   EgtSetMachiningGeometry( {{ idGeom, -1}})
+   -- assegno affondamento e offset radiale
+   EgtSetMachiningParam( MCH_MP.DEPTH, dDepthTailChamfer + dExtra)
+   EgtSetMachiningParam( MCH_MP.OFFSR, dExtra)
+   -- assegno lato di lavoro
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+   -- eseguo
+   if not ML.ApplyMachining( true, false) then
+      local _, sErr = EgtGetLastMachMgrError()
+      EgtSetOperationMode( nMch1Id, false)
+      return false, sErr
+   end
+
+   return true, nil
+end
+
 ---------------------------------------------------------------------
 -- lavorazione con sega a catena per sezioni alte e larghe
 local function MakeCutByChainSaw( nSurfId, sSawing, nFaceUse, dDepth, sNotes, dRadialOffset, bExtendStartEnd, bInvert)
@@ -819,6 +912,43 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt

   local bOk, sErr = MakeStandardCuts( Proc, b3Raw, nCuts, dOffsL, TailCutType, Cutting1Data, Cutting2Data, nil, dLenEndRaw)

+   -- se smussi in coda da aggiungere
+   local dDepthTailChamfer = EgtGetInfo( nOriId or Proc.Id, 'Q08', 'd') or 0
+   if dDepthTailChamfer > 100 * GEO.EPS_SMALL then
+      -- creo subito nuova fase qui, a meno che non sia stata già creata
+      if nNewPhase == 0 then
+         BL.AddPhaseWithRawParts( nRawId, BD.OriXR, BD.PosXR, BD.RAW_OFFSET)
+         nNewPhase = EgtGetCurrPhase()
+         local nDispId = EgtGetPhaseDisposition( nNewPhase)
+         if sDownOrSideOrStd == 'down' then
+            EgtRotateRawPart( nRawId, X_AX(), 180)
+            EgtSetInfo( nDispId, 'TYPE', 'MID2')
+            EgtSetInfo( nDispId, 'ROT', -2)
+         elseif sDownOrSideOrStd == 'side' then
+            if bPreMove then EgtMoveRawPart( nRawId, vtMove) end
+            EgtRotateRawPart( nRawId, X_AX(), EgtIf( BD.RIGHT_LOAD, -90, 90))
+            if not bPreMove then EgtMoveRawPart( nRawId, vtMove) end
+            EgtSetInfo( nDispId, 'TYPE', 'MID2')
+            EgtSetInfo( nDispId, 'ROT', -1)
+         else
+            EgtSetInfo( nDispId, 'TYPE', 'END')
+         end
+         EgtSetInfo( nDispId, 'ORD', nOrd)
+         -- se grezzo successivo senza pezzi e finale, va tolto
+         local nNextRawId = EgtGetNextRawPart( nRawId)
+         if nNextRawId  and  EgtGetPartInRawPartCount( nNextRawId) == 0  and  EgtGetRawPartBBox( nNextRawId):getDimX() < BD.MinRaw then
+            EgtRemoveRawPartFromCurrPhase( nNextRawId)
+         end
+      end
+      -- alla fine del taglio si aggiungono gli smussi in testa
+      local _, sErrHeadChamfer = MakeTailChamfer( nOriId or Proc.Id, nPartId, dDepthTailChamfer)
+      if sErr then
+         sErr = sErr..'\n'..sErrHeadChamfer
+      else
+         sErr = sErrHeadChamfer
+      end
+   end
+
   return bOk, sErr, nNewPhase
 end