- 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.mlde

@@ -1,11 +1,12 @@
 -- Descrizione macchina Saomad-KAIROS by EgalWare s.r.l.   2024/06/27
 -- 2024/06/27 ver 2.6f1 Prima versione (derivata da Kairos023)
 -- 2024/07/01 ver 2.6g1 Aggiornato 3D con nuovo gruppo testa
+-- 2024/07/03 ver 2.6g2 Aggiornato 3D con modello reale e altre piccole modifiche
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6g1'
+PP_VER = '2.6g2'
 MIN_MACH_VER = '2.5j1'
 
 EgtOutLog ( '** Saomad-KAIROS '..PP_VER..' (MinMach '.. MIN_MACH_VER ..') **', 1)
@@ -21,13 +22,13 @@ MinZ = -298
 MaxZ = 915
 ParkZ = 900
 FmaxZ = 45000
-MinA = -109.5
-MaxA = 109.5
+MinA = -120
+MaxA = 120
 ParkA = 0
 FmaxA = 10440
 MinC = -240
 MaxC = 240
-ParkC = 90
+ParkC = -90
 FmaxC = 18000
 MillOffs = 211.0
 ChSawLen = 141.5
@@ -41,6 +42,7 @@ ParkX2 = -480.0
 FmaxX2 = 45000
 LoadT = 1800.0
 UnloadT = -1800
+UnloadSmT = UnloadT
 TurnerOffs = 0
 MaxHOpen = 301
 MaxVOpen = 621
@@ -92,6 +94,7 @@ if EgtExistsFile( sData) then
       ParkZ = EgtClamp( ParkZ, MinZ, MaxZ)
       ParkA = EgtClamp( ParkA, MinA, MaxA)
       ParkC = EgtClamp( ParkC, MinC, MaxC)
+      UnloadSmT = UnloadT
    end
 end
 
@@ -147,7 +150,7 @@ EmtAxis {
       Parent = 'C',
       Token = 'A1',
       Type = MCH_AT.ROTARY,
-      Dir = Y_AX(),
+      Dir = X_AX(),
       Pos = Point3d( 0, 0, MillOffs),
       Stroke = {MinA, MaxA},
       Home = ParkA,
@@ -183,7 +186,7 @@ local H3Id = EmtHead {
       HSet = 'H1',
       Type = MCH_HT.STD,
       Pos = Point3d( 0, 0, -ChSawLen),
-      TDir = -X_AX(),
+      TDir = Y_AX(),
       ADir = Z_AX(),
       Rot1W = 0.2,
       SolCh = MCH_SCC.ADIR_NEAR,
@@ -197,7 +200,7 @@ local X1Id = EmtAxis {
       Parent = 'Base',
       Type = MCH_AT.LINEAR,
       Dir = -X_AX(),
-      Pos = Point3d( -1253.5, 245.0, 918.94),
+      Pos = Point3d( -1193.5, 245.0, 918.94),
       Stroke = { MinX1, MaxX1},
       Home = ParkX1,
       Geo = 'X1_AXIS/GEO',
@@ -207,7 +210,7 @@ local PX1Id = EmtAxis {
       Parent = 'X1',
       Type = MCH_AT.LINEAR,
       Dir = -Y_AX(),
-      Pos = Point3d( -1253.5, 95.0, 918.94),
+      Pos = Point3d( -1193.5, 95.0, 918.94),
       Stroke = { 0, MaxHOpen},
       Home = MaxHOpen,
       Geo = 'PX1_AXIS/GEO',
@@ -217,7 +220,7 @@ local QX1Id = EmtAxis {
       Parent = 'X1',
       Type = MCH_AT.LINEAR,
       Dir = Z_AX(),
-      Pos = Point3d( -874.2, -22.5, 668.9787),
+      Pos = Point3d( -814.2, -22.5, 668.9787),
       Stroke = { 0, MaxVOpen},
       Home = MaxVOpen,
       Geo = 'QX1_AXIS/GEO',
@@ -228,7 +231,7 @@ local X2Id = EmtAxis {
       Parent = 'Base',
       Type = MCH_AT.LINEAR,
       Dir = -X_AX(),
-      Pos = Point3d( 1253.5001, 245.0, 918.94),
+      Pos = Point3d( 1193.5001, 245.0, 918.94),
       Stroke = { MinX2, MaxX2},
       Home = ParkX2,
       Geo = 'X2_AXIS/GEO',
@@ -238,7 +241,7 @@ local PX2Id = EmtAxis {
       Parent = 'X2',
       Type = MCH_AT.LINEAR,
       Dir = -Y_AX(),
-      Pos = Point3d( 1253.5001, 95.0, 918.94),
+      Pos = Point3d( 1193.5001, 95.0, 918.94),
       Stroke = { 0, MaxHOpen},
       Home = MaxHOpen,
       Geo = 'PX2_AXIS/GEO',
@@ -248,7 +251,7 @@ local QX2Id = EmtAxis {
       Parent = 'X2',
       Type = MCH_AT.LINEAR,
       Dir = Z_AX(),
-      Pos = Point3d( 874.2001, 640.4727, -1591.561),
+      Pos = Point3d( 814.2001, 640.4727, -1591.561),
       Stroke = { 0, MaxVOpen},
       Home = MaxVOpen,
       Geo = 'QX2_AXIS/GEO',
@@ -414,8 +417,16 @@ function OnSetHead()
       local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
       local dPosCS = tonumber( sVal:sub( 4) or '')
       EmtModifyAxisHome( 'C', GetChainSawCHomeFromVirtualAxis( dPosCS))
+   -- altrimenti
    else
       EmtModifyAxisHome( 'C', ParkC)
+      -- se lama
+      if EMC.TCPOS == 'T21' then
+         EmtModifyAxisStroke( 'A', { -100, 100})
+      -- altrimenti
+      else
+         EmtModifyAxisStroke( 'A', { MinA, MaxA})
+      end
    end
 end