diff --git a/Essetre-PF1500MAXrl-3T.mlde b/Essetre-PF1500MAXrl-3T.mlde index 6e9cf74..f22d525 100644 --- a/Essetre-PF1500MAXrl-3T.mlde +++ b/Essetre-PF1500MAXrl-3T.mlde @@ -5,8 +5,8 @@ require( 'EmtGenerator') EgtEnableDebug( false) -PP_VER = '2.7b5' -PP_NVER = '2.7.2.5' +PP_VER = '2.7c1' +PP_NVER = '2.7.3.1' MIN_MACH_VER = '2.5k1' MACH_NAME = 'Essetre-PF1500MAXrl-3T' @@ -182,7 +182,7 @@ FirstSaw = false SecondSaw = true SecondChain = true -- magazzino seconda sega a catena TcSpecialTools = true -- magazzino per utensili speciali. In genere truciolatore -DrillingAggregate = true -- aggregato foratura multipla dipende dal magazzino utensili speciali. Viene montato li +DrillingAggregate = false -- aggregato foratura multipla dipende dal magazzino utensili speciali. Viene montato li TcAggreBladeUnder = true -- lama su aggregato per testa da sotto EmitAccClamps = true WriteAllCoordsOnFirstM101 = true @@ -481,7 +481,7 @@ if DrillingAggregate then OthColl = {'B1/SOLID', 'C1/SOLID'}, Geo = 'H14_HEAD/GEO', Aux = {'H14_HEAD/SOLID', 'H14_HEAD/COLLISION'}} - end +end -- *** Testa 3 *** local X3Id = EmtAxis { @@ -939,28 +939,40 @@ if Tc2Active then ADir = X_AX(), Geo = 'BASE/T30'} end -local ptTc3 = Point3d( 600, 1181, -321) -EmtTcPos { - Name = 'T101', - Parent = 'Base', - Type = MCH_HT.MULTI, - ExitNbr = 6, - Pos1 = ptTc3 + Vector3d( 0, 0, 0), - TDir1 = Z_AX(), - Pos2 = ptTc3 + Vector3d( -40, 0, 0), - TDir2 = Z_AX(), - Pos3 = ptTc3 + Vector3d( -80, 0, 0), - TDir3 = Z_AX(), - Pos4 = ptTc3 + Vector3d( 40, 0, 0), - TDir4 = Z_AX(), - Pos5 = ptTc3 + Vector3d( 80, 0, 0), - TDir5 = Z_AX(), - Pos6 = ptTc3 + Vector3d( 120, 0, 0), - TDir6 = Z_AX(), - ADir = X_AX(), - Geo = 'BASE/T101', - Aux = 'BASE/T101_HS'} -local ptTc4 = Point3d( 750, 1561, -150.8) +if DrillingAggregate then + local ptTc3 = Point3d( 600, 1181, -321) + EmtTcPos { + Name = 'T101', + Parent = 'Base', + Type = MCH_HT.MULTI, + ExitNbr = 6, + Pos1 = ptTc3 + Vector3d( 0, 0, 0), + TDir1 = Z_AX(), + Pos2 = ptTc3 + Vector3d( -40, 0, 0), + TDir2 = Z_AX(), + Pos3 = ptTc3 + Vector3d( -80, 0, 0), + TDir3 = Z_AX(), + Pos4 = ptTc3 + Vector3d( 40, 0, 0), + TDir4 = Z_AX(), + Pos5 = ptTc3 + Vector3d( 80, 0, 0), + TDir5 = Z_AX(), + Pos6 = ptTc3 + Vector3d( 120, 0, 0), + TDir6 = Z_AX(), + ADir = X_AX(), + Geo = 'BASE/T101_MULTIDRILL', + Aux = 'BASE/T101_HS_MULTIDRILL'} +else + local ptTc3 = Point3d( 600, 1181, -180.8) + EmtTcPos { + Name = 'T101', + Parent = 'Base', + Pos = ptTc3, + TDir = -X_AX(), + ADir = Z_AX(), + Geo = 'BASE/T101'} +end + +local ptTc4 = Point3d( 750, 1561, -180.8) EmtTcPos { Name = 'T111', Parent = 'Base', @@ -968,7 +980,7 @@ EmtTcPos { TDir = -X_AX(), ADir = Z_AX(), Geo = 'BASE/T111'} -local ptTc5 = Point3d( 750, 1961, -150.8) +local ptTc5 = Point3d( 750, 1961, -110.8) EmtTcPos { Name = 'T121', Parent = 'Base', @@ -1074,8 +1086,9 @@ EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB, GDB_RT.G 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 +if TcAggreBladeUnder then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'T121') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end +if DrillingAggregate then EgtMove( EgtGetFirstNameInGroup( BaseId, 'T101') 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( Z1Id, 'SOLID'), vtOffset23KW, GDB_RT.GLOB) @@ -1275,12 +1288,8 @@ function GetAdjHeadFromTcPos( nHeadSet, sTcPos) if SecondSaw and sTcPos == 'T21' then return 'H16' -- utensili speciali - elseif TcSpecialTools and sTcPos == 'T121' then - if DrillingAggregate then - return 'H14' - else - return 'H11' - end + elseif DrillingAggregate and sTcPos == 'T101' then + return 'H14' -- motoseghe elseif sTcPos == 'T101' or sTcPos == 'T111' then return 'H13' @@ -1305,7 +1314,7 @@ end --------------------------------------------------------------------- -- Funzione che riconosce testa per sega a catena function HeadIsChainSaw( sHead) - return ( sHead == 'H13' or sHead == 'H15') + return ( sHead == 'H13') end --------------------------------------------------------------------- diff --git a/Essetre-PF1500MAXrl-3T.nge b/Essetre-PF1500MAXrl-3T.nge index 50af5b5..ba1daf0 100644 Binary files a/Essetre-PF1500MAXrl-3T.nge and b/Essetre-PF1500MAXrl-3T.nge differ diff --git a/Scripts/SetUp.lua b/Scripts/SetUp.lua index 90ed21f..3b9c052 100644 --- a/Scripts/SetUp.lua +++ b/Scripts/SetUp.lua @@ -117,6 +117,46 @@ elseif bTc2Active and SecondSaw and SecondChain and TcSpecialTools and TcAggreBl {Pos = "Pos37", TcPos = "T229", Head = "H21", Group = "G4"}, {Pos = "Pos38", TcPos = "T230", Head = "H21", Group = "G4"}, {Pos = "Pos39", TcPos = "T301", Head = "H38", Group = "G5"}} +elseif bTc2Active and SecondSaw and SecondChain and TcSpecialTools and TcAggreBladeUnder then + PositionTable = {{Pos = "Pos1", TcPos = "T1", Head = "H11", Group = "G1"}, -- TC 1 + {Pos = "Pos2", TcPos = "T2", Head = "H11", Group = "G1"}, + {Pos = "Pos3", TcPos = "T3", Head = "H11", Group = "G1"}, + {Pos = "Pos4", TcPos = "T4", Head = "H11", Group = "G1"}, + {Pos = "Pos5", TcPos = "T5", Head = "H11", Group = "G1"}, + {Pos = "Pos6", TcPos = "T6", Head = "H11", Group = "G1"}, + {Pos = "Pos7", TcPos = "T7", Head = "H11", Group = "G1"}, + {Pos = "Pos8", TcPos = "T8", Head = "H11", Group = "G1"}, + {Pos = "Pos9", TcPos = "T9", Head = "H11", Group = "G1"}, + {Pos = "Pos10", TcPos = "T10", Head = "H11", Group = "G1"}, + {Pos = "Pos11", TcPos = "T11", Head = "H11", Group = "G1"}, + {Pos = "Pos12", TcPos = "T12", Head = "H11", Group = "G1"}, + {Pos = "Pos13", TcPos = "T13", Head = "H11", Group = "G1"}, + {Pos = "Pos14", TcPos = "T101", Head = "H13", Group = "G2"}, -- utensile speciale + {Pos = "Pos15", TcPos = "T111", Head = "H13", Group = "G2"}, -- motosega + {Pos = "Pos16", TcPos = "T121", Head = "H11", Group = "G2"}, -- truciolatore + {Pos = "Pos17", TcPos = "T21", Head = "H16", Group = "G3"}, -- TC 2 + {Pos = "Pos18", TcPos = "T22", Head = "H11", Group = "G3"}, + {Pos = "Pos19", TcPos = "T23", Head = "H11", Group = "G3"}, + {Pos = "Pos20", TcPos = "T24", Head = "H11", Group = "G3"}, + {Pos = "Pos21", TcPos = "T25", Head = "H11", Group = "G3"}, + {Pos = "Pos22", TcPos = "T26", Head = "H11", Group = "G3"}, + {Pos = "Pos23", TcPos = "T27", Head = "H11", Group = "G3"}, + {Pos = "Pos24", TcPos = "T28", Head = "H11", Group = "G3"}, + {Pos = "Pos25", TcPos = "T29", Head = "H11", Group = "G3"}, + {Pos = "Pos26", TcPos = "T30", Head = "H11", Group = "G3"}, + {Pos = "Pos27", TcPos = "T201", Head = "H22", Group = "G4"}, -- lama con aggregatop da sotto + {Pos = "Pos28", TcPos = "T220", Head = "H21", Group = "G4"}, -- TC margherita + {Pos = "Pos29", TcPos = "T221", Head = "H21", Group = "G4"}, + {Pos = "Pos30", TcPos = "T222", Head = "H21", Group = "G4"}, + {Pos = "Pos31", TcPos = "T223", Head = "H21", Group = "G4"}, + {Pos = "Pos32", TcPos = "T224", Head = "H21", Group = "G4"}, + {Pos = "Pos33", TcPos = "T225", Head = "H21", Group = "G4"}, + {Pos = "Pos34", TcPos = "T226", Head = "H21", Group = "G4"}, + {Pos = "Pos35", TcPos = "T227", Head = "H21", Group = "G4"}, + {Pos = "Pos36", TcPos = "T228", Head = "H21", Group = "G4"}, + {Pos = "Pos37", TcPos = "T229", Head = "H21", Group = "G4"}, + {Pos = "Pos38", TcPos = "T230", Head = "H21", Group = "G4"}, + {Pos = "Pos39", TcPos = "T301", Head = "H38", Group = "G5"}} end local UsePositionHead = true