- Aggiornato 3D con macchina reale

- Sistemata direzione assi
- Modificata posizione scarico per pezzi standard e pezzi corti
- Collisioni scritte sotto forma di tabella
- Aggiunta note utensili e lavorazioni
- Sistemati ToolHolders

Saomad-KAIROS.mlse

@@ -41,6 +41,7 @@ local MIN_JOIN_SL = 290
 local MIN_JOIN_LL = 400
 local MinJoin = MIN_JOIN_SS
 local MinOther = abs( MinX1) + abs( MaxX2) + MinJoin
+local MaxLenSmT = 1500             -- massima lunghezza pezzo scaricato con nastri verdi
 
 ----------------------- Variabili -----------------------------------
 local Test = false
@@ -412,7 +413,8 @@ function OnSpecialApplyDisposition()
    if IsStartOrRestPhase( EMC.PHASE) or IsEnd2Phase( EMC.PHASE) then
       EMC.TPOS = dPosT
       SpecSetCarrPosFromCmds( vCmd)
-      local dDistFront = EgtIf( EMC.LB < abs( MinX2 - UnloadT), MinJoin, EMC.LB - abs( MinX2 - UnloadT) + MinJoin + DeltaTol) 
+      local CurrUnloadT = EgtIf( EMC.LB < MaxLenSmT, UnloadSmT, UnloadT)
+      local dDistFront = EgtIf( EMC.LB < abs( MinX2 - CurrUnloadT), MinJoin, EMC.LB - abs( MinX2 - CurrUnloadT) + MinJoin + DeltaTol) 
       vCmd2 = SpecCalcCarriages( dDistFront, 0)
       if vCmd and #vCmd > 1 and vCmd2 and #vCmd2 > 1 then
          table.insert( vCmd, { 0, 'CARR_MOVE'})
@@ -1309,7 +1311,7 @@ function SpecCalcUnload()
    end
    -- Se non supero la lunghezza massima di scarico, sposto il pezzo in posizione di scarico
    if bStdUl then
-      local dFinT = UnloadT - EMC.LB
+      local dFinT = EgtIf( EMC.LB < MaxLenSmT, UnloadSmT, UnloadT) - EMC.LB
       local dFinV = dFinT + EMC.VDELTA
       table.insert( vCmd, { 2, 'T', dFinT, 'X2', dFinV})
    else