Prima versione funzionante Motori 23 KW

Essetre-PF1250MAX.mlde

@@ -211,11 +211,12 @@ MaxForzaPinze = 1000                             -- [Kgf]
 Tc2Active = true                                 -- magazzino prima sega a catena
 SecondSaw = true                                 -- seconda lama su aggregato su TC3 presente
 SecondChain = true                               -- magazzino seconda sega a catena
-TcSpecialTools = true                            -- magarzzino per utensili speciali. In genere truciolatore
+TcSpecialTools = true                            -- magazzino per utensili speciali. In genere truciolatore
 TcAggreBladeUnder = true                         -- lama su aggregato per testa da sotto
 EmitAccClamps = true
 WriteAllCoordsOnFirstM101 = true
 ForceToCloseRollersGate = false
+Motors23KW = true
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250MAX.data"
@@ -299,6 +300,7 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.MAXPRESS then MaxForzaPinze = Machine.Offsets.MAXPRESS end
          if Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO then ForceToCloseRollersGate = Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO == 1 end
          if Machine.Offsets.WOOD_DENSITY then WoodDensity = Machine.Offsets.WOOD_DENSITY end
+         if Machine.Offsets.MOTORS23KW then Motors23KW = Machine.Offsets.MOTORS23KW end
 
          -- aggiustamenti
          MinY1 = MinV1 + MinDeltaYV
@@ -318,6 +320,7 @@ if EgtExistsFile( sDataBeam) then
    end
 end
 SecondSaw = ( SecondSaw and Tc2Active)
+local vtOffset23KW = Vector3d( 0, 0, EgtIf( Motors23KW, 37, 0))
 
 EmtGeneral {
       File='Essetre-PF1250.nge',
@@ -353,7 +356,7 @@ local X1Id = EmtAxis {
       Geo = 'X1_AXIS/GEO',
       Aux = {'X1_AXIS/SOLID', 'X1_AXIS/COLLISION'}}
 --  *** Testa 1 ***
-EmtAxis {
+local Z1Id = EmtAxis {
       Name = 'Z1',
       Parent = 'X1',
       Token = 'Z',
@@ -373,8 +376,8 @@ EmtAxis {
       Pos = Point3d(0.0,0.0,503.0),
       Stroke = {MinC1, MaxC1},
       Home = ParkC1,
-      Geo = 'C1_AXIS/GEO',
-      Aux = {'C1_AXIS/SOLID', 'C1_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'C1_AXIS_23KW/GEO', 'C1_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'C1_AXIS_23KW/SOLID', 'C1_AXIS/SOLID'), EgtIf( Motors23KW, 'C1_AXIS_23KW/COLLISION', 'C1_AXIS/COLLISION')}}
 EmtAxis {
       Name = 'B1',
       Parent = 'C1',
@@ -384,8 +387,8 @@ EmtAxis {
       Pos = Point3d(-108.4,0.0,MillOffs),
       Stroke = {MinB1, MaxB1},
       Home = ParkB1,
-      Geo = 'B1_AXIS/GEO',
-      Aux = {'B1_AXIS/SOLID', 'B1_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'B1_AXIS_23KW/GEO', 'B1_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'B1_AXIS_23KW/SOLID', 'B1_AXIS/SOLID'), EgtIf( Motors23KW, 'B1_AXIS_23KW/COLLISION', 'B1_AXIS/COLLISION')}}
 -- Frese
 local H11Id = EmtHead {
       Name = 'H11',
@@ -492,8 +495,8 @@ local C2Id = EmtAxis {
       Pos = Point3d( Head2X, Head2Y, Head2Z-485),
       Stroke = {MinC2, MaxC2},
       Home = ParkC2,
-      Geo = 'C2_AXIS/GEO',
-      Aux = {'C2_AXIS/SOLID', 'C2_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'C2_AXIS_23KW/GEO', 'C2_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'C2_AXIS_23KW/SOLID', 'C2_AXIS/SOLID'), EgtIf( Motors23KW, 'C2_AXIS_23KW/COLLISION', 'C2_AXIS/COLLISION')}}
 local B2Id = EmtAxis {
       Name = 'B2',
       Parent = 'C2',
@@ -503,8 +506,8 @@ local B2Id = EmtAxis {
       Pos = Point3d( Head2X, Head2Y, Head2Z-Mill2Offs),
       Stroke = {MinB2, MaxB2},
       Home = ParkB2,
-      Geo = 'B2_AXIS/GEO',
-      Aux = {'B2_AXIS/SOLID', 'B2_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'B2_AXIS_23KW/GEO', 'B2_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'B2_AXIS_23KW/SOLID', 'B2_AXIS/SOLID'), EgtIf( Motors23KW, 'B2_AXIS_23KW/COLLISION', 'B2_AXIS/COLLISION')}}
 EmtAxis {
       Name = 'A2',
       Parent = 'B2',
@@ -517,11 +520,11 @@ EmtAxis {
       Geo = 'A2_AXIS/GEO'}
       
 local vtMoveZ2 = Vector3d( 0, 0, Head2Z + 1781.0)
-EgtMove( EgtGetFirstNameInGroup( Z2Id, 'SOLID'), vtMoveZ2, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( Z2Id, 'COLLISION'), vtMoveZ2, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z2Id, 'SOLID'), vtMoveZ2 - vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z2Id, 'COLLISION'), vtMoveZ2 - vtOffset23KW, GDB_RT.GLOB)
 local vtMoveX2 = Vector3d( 0, Head2Y - 3735.9, Head2Z + 1781.0)
-EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMoveX2, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMoveX2, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMoveX2 - vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMoveX2 - vtOffset23KW, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( C2Id, 'SOLID'), vtMoveX2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( C2Id, 'COLLISION'), vtMoveX2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( B2Id, 'SOLID'), vtMoveX2, GDB_RT.GLOB)
@@ -679,7 +682,7 @@ EmtTable {
       Geo = 'TABLE/GEO',
       Aux = 'TABLE/SOLID'}
 -- *** ToolChanger ***
-local ptTc1 = Point3d( 150, -151, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc1 = Point3d( 150, -151, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 local vtDt1 = Vector3d( 0, 0, - 102.5)
 EmtTcPos {
       Name = 'T1',
@@ -774,7 +777,7 @@ EmtTcPos {
       Geo = 'BASE/T13'}
                   
 if Tc2Active then
-   local ptTc2 = Point3d( 150, 3917, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+   local ptTc2 = Point3d( 150, 3917, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
    local vtDt2 = Vector3d( 0, 0, - 102.5)
    EmtTcPos {
          Name = 'T21',
@@ -847,7 +850,7 @@ if Tc2Active then
          ADir = X_AX(),
          Geo = 'BASE/T30'}
 end
-local ptTc3 = Point3d( 600, 529, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc3 = Point3d( 600, 529, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T101',
       Parent = 'Base',
@@ -855,7 +858,7 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = Z_AX(),
       Geo = 'BASE/T101'}
-local ptTc4 = Point3d( 750, 909, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc4 = Point3d( 750, 909, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T111',
       Parent = 'Base',
@@ -863,7 +866,7 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = Z_AX(),
       Geo = 'BASE/T111'}
-local ptTc5 = Point3d( 750, 1309, -115 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc5 = Point3d( 750, 1309, -115 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T121',
       Parent = 'Base',
@@ -871,7 +874,7 @@ EmtTcPos {
       TDir = Z_AX(),
       ADir = X_AX(),
       Geo = 'BASE/T121'}
-local ptTcS = Point3d( -1, -22.3, -1723 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTcS = Point3d( -1, -22.3, -1723 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
    Name = 'T201',
    Parent = 'Base',
@@ -879,7 +882,7 @@ EmtTcPos {
    TDir = -Z_AX(),
    ADir = Y_AX(),
    Geo = 'BASE/T201'}
-local ptTcR = Point3d( -0.5, 4115, -1871.15 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTcR = Point3d( -0.5, 4115, -1871.15 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T220',
       Parent = 'Base',
@@ -960,18 +963,20 @@ EmtTcPos {
 
 -- Aggiusto posizioni geometriche
 local vtMovB = Vector3d( 0, 0, ( DeltaTabZ - DeltaRulliTraveZ + 55))
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'SOLID'), vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'COLLISION'), vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'SIGN') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC1') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC2') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
-if SecondChain then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC5') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCR') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
-EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'SOLID'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'COLLISION'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'SIGN') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC1') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC2') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB) end
+if SecondChain then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC5') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB) end
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCR') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB) end
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z1Id, 'SOLID'), vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z1Id, 'COLLISION'), vtOffset23KW, GDB_RT.GLOB)
 local vtMove = Vector3d( 0, ( DeltaTabY - 2550.0), ( DeltaTabZ + 1258.0))
 EgtMove( EgtGetFirstNameInGroup( BaseId, 'CONVOYER'..sGeomConvoyer), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Y1Id, 'SOLID'), vtMove, GDB_RT.GLOB)