- modifiche parziali per scrittura ingombri su disposizione

LuaLibs/BeamLib.lua

@@ -104,18 +104,28 @@ function BeamLib.GetPartSplittingPoints( Part)
 end
 
 -------------------------------------------------------------------------------------------------------------
-function BeamLib.AddPhaseWithRawParts( nRawId, OriXR, PosXR, dDeltaSucc)
+function BeamLib.AddPhaseWithRawParts( Part, OriXR, PosXR, dDeltaSucc)
+   local idRaw = Part.idRaw
+
+   -- TODO scrittura ingombri sulla disposizione
+   -- deve arrivare un valore per ogni rotazione
+   -- deve essere spostato in configurazione macchina???
+   local nPhase = EgtGetCurrPhase()
+   local idDisp = EgtGetPhaseDisposition( nPhase)
+   EgtSetInfo( idDisp, 'HCING', Part.NotClampableLength.dNotClampableLengthHead)
+   EgtSetInfo( idDisp, 'TCING', Part.NotClampableLength.dNotClampableLengthTail)
+
    EgtAddPhase()
    -- si aprono i limiti tavola per permettere rotazioni di pezzi più larghi della tavola
    EgtSetTableAreaOffset( 2000, 2000, 2000, 2000)
    local dRawMove = 0
-   while nRawId do
-      EgtKeepRawPart( nRawId)
-      EgtMoveToCornerRawPart( nRawId, OriXR, PosXR)
-      EgtMoveRawPart( nRawId, Vector3d( - dRawMove, 0, 0))
+   while idRaw do
+      EgtKeepRawPart( idRaw)
+      EgtMoveToCornerRawPart( idRaw, OriXR, PosXR)
+      EgtMoveRawPart( idRaw, Vector3d( - dRawMove, 0, 0))
       if dRawMove == 0 then dRawMove = dRawMove + dDeltaSucc end
-      dRawMove = dRawMove + EgtGetRawPartBBox( nRawId):getDimX()
-      nRawId = EgtGetNextRawPart( nRawId)
+      dRawMove = dRawMove + EgtGetRawPartBBox( idRaw):getDimX()
+      idRaw = EgtGetNextRawPart( idRaw)
    end
 end