- Corretto movimento con motosega

- corretta rappresentazione utensili su TC in cimulazione
- Aggiunto aggregato per testa da sotto

Common_PF1250.TPA.mlpe

@@ -738,9 +738,12 @@ function OnRapid()
             local MyMaxZ1 = EgtGetAxisMax( 'Z1')
             -- in caso di rotazione della lama lontano dalla posizione di home degli assi rotanti
             local bXSpec = EgtIf( BD.RIGHT_LOAD, ( EMT.L2 > -DeltaTabY), ( EMT.L2 < -DeltaTabY))
-            EmitMoveDataHead( 1, { X=EgtIf( bXSpec, -DeltaTabY, EMT.L2), Z=MyMaxZ1, S=Speed})
-            EmitMoveStartHead( 1)
-            EmitMoveWaitHead( 1)
+            -- se non è aggregato, posso preselezionare testa e andare in posizione
+            if EMT.HEAD ~= 'H13' and EMT.HEAD ~= 'H14' then
+               EmitMoveDataHead( 1, { X=EgtIf( bXSpec, -DeltaTabY, EMT.L2), Z=MyMaxZ1, S=Speed})
+               EmitMoveStartHead( 1)
+               EmitMoveWaitHead( 1)
+            end
             EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
             -- se necessario allargo le cabine
             if RollerParkingNeeded( EMT.HEAD, PrevR1, PrevR2, EMT.R1, EMT.R2) or
@@ -2494,7 +2497,8 @@ function EmitZmax( bReset, bEnd, PrevR1, PrevR2, bSplitCut, bTopGoHome, bUsePrev
          -- salgo in Z sicurezza raddrizzando la B
          local dSafeZ1 = EgtIf( EMT.TTOTLEN < MinLengthLongCSaw, ParkCSawZ1, ParkLongCSawZ1)
          EmitMoveDataHead( 1, { Z=dSafeZ1, B=dHomeB1, Fmt=1})
-         EmitMoveDataHead( 1, { X=-dHomeX1, C=dHomeC1, Fmt=1})
+         -- lascio la motosega a parcheggio. In caso di utilizzo della testa 3, la motosega viene scaricata automaticamente dalla macro.
+         EmitMoveDataHead( 1, { X=-ParkCSawX1, C=dHomeC1, Fmt=1})
          EmitMoveStartHead( 1)
          EmitMoveWaitHead( 1)
       end

Common_PF1250.mlpe

@@ -474,6 +474,8 @@ function OnSimulToolSelect( dPosA)
    end
    -- se sega a catena, imposto subito angolo scelto per asse virtuale A
    if EMT.HEAD == 'H13' then
+      -- se prima lavorazione con motosega, parto dalla sua posizione di parcheggio
+      EgtSetAxisPos( 'X1', ParkCSawX1)
       -- valore dell'asse virtuale
       dPosA = dPosA or GetNextChainSawingVirtualAxis( EMT.MCHID)
       -- imposto il valore di A
@@ -552,8 +554,9 @@ function OnSimulToolDeselect( dPrevA)
    -- se devo deselezionare testa 3, la mando a parcheggio
    if nSetHead == 3 then
       SimulMoveAxis( 'X3', ParkX3, MCH_SIM_STEP.RAPID)
+   end
    -- per testa gruppo 2 
-   elseif nNextSetHead == 2 then
+   if nNextSetHead == 2 then
       -- deposito lama su aggregato testa sotto
       if EMT.PREVHEAD_H2 == 'H22' then
          -- simulo movimento
@@ -659,7 +662,7 @@ function OnSimulToolDeselect( dPrevA)
       -- simulo movimento
       SimulMoveAxes( 'B1', ParkCSawB1, MCH_SIM_STEP.RAPROT, 'C1', EgtGetAxisHomePos( 'C1'), MCH_SIM_STEP.RAPROT)
       SimulMoveAxes( 'X1', ParkCSawX1, MCH_SIM_STEP.RAPID, 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID)
-   -- prendo utensile sega a catena
+   -- prendo aggregato multi drill
    elseif EMT.NEXTHEAD == 'H14' then
       -- simulo movimento
       SimulMoveAxes( 'B1', ParkMultiDrillB1, MCH_SIM_STEP.RAPROT, 'C1', EgtGetAxisHomePos( 'C1'), MCH_SIM_STEP.RAPROT)
@@ -2039,6 +2042,10 @@ function LoadFirstTool( nHSet, sTcPosDef)
    EgtUnloadTool( EgtIf( nHSet == 1, 'H11', 'H21'), 1)
    if GetHeadSetFromTcPos( sTcPosDef) ~= nHSet then return end
    local sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis = FindFirstToolOnHeadSet( nHSet)
+   -- se primo utensile motosega, non lo carico e visualizzo quello di default
+   if sHead == 'H13' then
+      sTool = nil
+   end
    if not sTool then
       local vTools = EgtGetToolsInCurrSetupPos( sTcPosDef)
       if vTools and vTools[1] then
@@ -2645,7 +2652,7 @@ function RollerParkingNeeded( sHead, dAng1p, dAng2p, dAng1, dAng2)
    elseif sHead == 'H21' or sHead == 'H22' then
       return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1 % 180.0) > 1))
    elseif sHead == 'H38' then
-      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1 % 180.0) > 1))
+      return ( abs( dAng1 - dAng1p) > 1 or  abs( dAng2 - dAng2p) > 1)
    end
 end
 

Essetre-PF1500MAXrl-3T.ini

@@ -25,6 +25,7 @@ H21.1=Standard.nge
 H21.1:MILL_NOTIP=MillNoTip.nge
 H21.1:SAW_STD=SawH2Std.nge
 H21.1:SAW_FLAT=SawH2Flat.nge
+H22.1=Saw.nge
 
 [Machinings]
 Drilling=1

Essetre-PF1500MAXrl-3T.mlde

@@ -5,7 +5,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6k2_DEV3'
+PP_VER = '2.6k2_DEV7'
 PP_NVER = '2.6.11.2'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PF1500MAXrl-3T'
@@ -127,8 +127,8 @@ ParkX3 = 0
 ParkZ3 = 0
 ParkC3 = 0
 ParkB3 = 0
-SafeX3RotAxis = 1300
-SafeZ3RotAxis = -600
+SafeX3RotAxis = 1600
+SafeZ3RotAxis = -530
 MinX2 = -3060
 MaxX2 = 0
 MinZ2 = 0
@@ -765,7 +765,7 @@ EmtTable {
       Geo = 'TABLE/GEO',
       Aux = 'TABLE/SOLID'}
 -- *** ToolChanger ***
-local ptTc1 = Point3d( 150, 501, -221)
+local ptTc1 = Point3d( 150, 501, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
 local vtDt1 = Vector3d( 0, 0, - 102.5)
 EmtTcPos {
       Name = 'T1',
@@ -860,7 +860,7 @@ EmtTcPos {
       Geo = 'BASE/T13'}
 
 if Tc2Active then
-   local ptTc2 = Point3d( 150, 5168.75, -221)
+   local ptTc2 = Point3d( 150, 5168.75, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
    local vtDt2 = Vector3d( 0, 0, - 102.5)
    EmtTcPos {
          Name = 'T21',
@@ -970,7 +970,7 @@ EmtTcPos {
       ADir = X_AX(),
       Geo = 'BASE/T121',
       Aux = 'BASE/T121_HS'}
-local ptTcS = Point3d( -1, 519.75, -1675 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTcS = Point3d( -1, 620.75, -1825.25 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
 EmtTcPos {
    Name = 'T201',
    Parent = 'Base',
@@ -1113,7 +1113,7 @@ function OnSetHead()
          EmtModifyAxisHome( 'X1', ParkTc2X1)
       end
       EmtModifyAxisStroke( 'Z1', {MinZ1, MaxZ1})
-      if EMC.TOTLEN < LongTool then
+      if EMC.TOTLEN and EMC.TOTLEN < LongTool then
          EmtModifyAxisHome( 'Z1', ParkZ1)
          EmtModifyAxisStroke( 'C1', {MinC1, MaxC1})
          EmtModifyAxisHome( 'C1', ParkC1)