- Modificato nuovamente ordine chiodatrici.

- mlse, ZMax() Aggiunta testa H12.
- mlpe, ToolDeselect() Aggiunta testa H12.
- Variabili disassamenti Lama (SawDelta).
- mlde, OnSetHead() Aggiunta gestione H12

Essetre-90480023_XS-MW.mlde

@@ -8,7 +8,7 @@ require( 'EmtGenerator')
 EgtEnableDebug( false)
 if not EmtModifyHeadAuxDirection then error( 'A newer version of the program is required (minimum 2.3j5)') end
 
-PP_VER = '3.1d1_DEV4'
+PP_VER = '3.1d1_DEV5'
 PP_NVER = '2.7.4.1'
 
 -- Parametri macchina
@@ -25,7 +25,7 @@ MinC1 = -275.0
 MaxC1 = 275.0
 PosSpecC1 = 34
 MillOffs = 170
-ChSawLen = 150.0
+ChSawLen = 0.0
 ParkC1 = 0
 ParkB1 = 0
 ParkSawC1 = -90
@@ -34,19 +34,19 @@ MinX2 = 1047.0
 MaxX2 = 6080.0
 MinZ2 = -770.0
 MaxZ2 = 0.0
-SawDeltaX = 33.65
-SawDeltaY = 210.0
-SawDeltaZ = -133.0
+SawDeltaX = 110.0
+SawDeltaY = 0.0
+SawDeltaZ = -150.0
 SawC1Offs = 0
 SawB1Offs = 0
-SawOffs = 115.5
-Nail11DeltaX = 318.0    -- Distanza da Mandrino a Graffettatrice H21
+SawOffs = 0.0
+Nail11DeltaX = -277.0    -- Distanza da Mandrino a Graffettatrice H21
 Nail11DeltaY = -112.5
 Nail11DeltaZ = -421.6497
-Nail12DeltaX = 315.8125   -- Distanza da Mandrino a Graffettatrice H22
+Nail12DeltaX = -279.1874   -- Distanza da Mandrino a Graffettatrice H22
 Nail12DeltaY = 135.1311
 Nail12DeltaZ = -421.6497
-Nail13DeltaX = -277.0 -- Distanza da Mandrino a Graffettatrice H23
+Nail13DeltaX = 318.0 -- Distanza da Mandrino a Graffettatrice H23
 Nail13DeltaY = -112.5
 Nail13DeltaZ = -421.6497
 Nail14DeltaX = 0        -- Distanza da Mandrino a Graffettatrice H24 (non esiste su questa macchina)
@@ -150,17 +150,17 @@ if EgtExistsFile( sData) then
 end
 
 -- Spostamenti della lama rispetto al disegno
-local SawOffsX = SawDeltaX - 33.65
-local SawOffsY = SawDeltaY - 210.0
-local SawOffsZ = SawDeltaZ + 133.0
+local SawOffsX = SawDeltaX - 110.0
+local SawOffsY = SawDeltaY + 0.0
+local SawOffsZ = SawDeltaZ + 150.0
 -- Spostamenti delle chiodatrici rispetto al disegno
-local Nail11OffsX = Nail11DeltaX - 318.0
+local Nail11OffsX = Nail11DeltaX + 277.0
 local Nail11OffsY = Nail11DeltaY + 112.5
 local Nail11OffsZ = Nail11DeltaZ + 421.6497
-local Nail12OffsX = Nail12DeltaX - 315.8125
+local Nail12OffsX = Nail12DeltaX + 279.1874
 local Nail12OffsY = Nail12DeltaY - 135.1311
 local Nail12OffsZ = Nail12DeltaZ + 421.6497
-local Nail13OffsX = Nail13DeltaX + 277.0
+local Nail13OffsX = Nail13DeltaX - 318.0
 local Nail13OffsY = Nail13DeltaY + 112.5
 local Nail13OffsZ = Nail13DeltaZ + 421.6497
 
@@ -264,7 +264,7 @@ EmtHead {
       Parent = 'B1',
       HSet = 'H12',
       Type = MCH_HT.STD,
-      Pos = Point3d( -110, 0, -150),
+      Pos = Point3d( - SawOffsX, 0, SawOffsZ),
       TDir = Z_AX(),
       ADir = X_AX(),
       Rot1W = 0.1,
@@ -430,16 +430,12 @@ function OnSetHead()
          EmtModifyAxisHome( 'C1', ParkC1)
          EmtModifyHeadAuxDirection( 'H1', Y_AX())
       end
-   elseif EMC.HEAD == '12' then
+   elseif EMC.HEAD == 'H12' then
       EmtModifyAxisHome( 'X1', ParkX1)
       EmtModifyAxisHome( 'Z1', ParkZ1)
-      EmtModifyAxisHome( 'C1', ParkC1)
-      EmtModifyAxisHome( 'B1', ParkB1)
-      if EMC.HEAD == 'H12' then
+      EmtModifyAxisHome( 'C1', ParkSawC1)
+      EmtModifyAxisHome( 'B1', ParkSawB1)
       EmtModifyAxisDirection( 'B1', Vector3d( cos( SawC1Offs), -sin( SawC1Offs), 0))
-      else
-         EmtModifyAxisDirection( 'B1', X_AX())
-      end
    else
       EmtModifyAxisStroke( 'B1', { MinB1, MaxB1})
       EmtModifyAxisHome( 'C1', ParkC1)

Essetre-WALL.mlpe

@@ -306,6 +306,13 @@ function OnSimulToolDeselect()
       EMT.TOOL_1 = nil
       EMT.TCPOS_1 = nil
    end
+   -- se testa attuale è lama devo depositarla
+   if EMT.HEAD == 'H12' then
+      ShowToolInTcPos( EMT.TCPOS_1, true)
+      EgtUnloadTool( 'H12', 1)
+      EMT.TOOL_1 = nil
+      EMT.TCPOS_1 = nil
+   end
    -- deposito utensile se non lama su rinvio o graffettatrici
    if ( EMT.NEXTHEAD == 'H1' or EMT.NEXTHEAD == 'H3') and ( EMT.HEAD == 'H1' or EMT.HEAD == 'H3') then
       if EMT.NEXTTOOL ~= EMT.TOOL_1 then

Essetre-WALL.mlse

@@ -47,6 +47,14 @@ function OnSpecialMoveZup()
          EMC.R2 = R2New
          EMC.TDIR = EgtGetCalcToolDirFromAngles( EMC.R1, EMC.R2, EMC.R3)
       end
+   -- Se altrimenti Lama normale
+   elseif EMC.HEAD == 'H12' then
+      if EMC.L3 > -300 then
+         EMC.R1 = EgtGetAxisHomePos( 'C1')
+         EMC.R2 = EgtGetAxisHomePos( 'B1')
+         EMC.TDIR = EgtGetCalcToolDirFromAngles( EMC.R1, EMC.R2)
+         EMC.MODIF = true
+      end
    -- se altre teste
    elseif EMC.HEAD == 'H14' or EMC.HEAD == 'H2' or EMC.HEAD == 'H21' or EMC.HEAD == 'H22' or EMC.HEAD == 'H23' then
       -- non è necessaria una gestione speciale