Egalware/essetre-pf1500maxrl-3t
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Possibilità di montare motosega in posizione T101

Browse Source 
- Piccole migliorie varie derivanti da modifica
This commit is contained in:
andrea.villa
2025-03-05 09:05:32 +01:00
parent f5276d9952
commit 23d4f09653
3 changed files with 84 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Essetre-PF1500MAXrl-3T.mlde
+44 -35
View File
@@ -5,8 +5,8 @@
require( 'EmtGenerator') require( 'EmtGenerator')
EgtEnableDebug( false) EgtEnableDebug( false)
PP_VER = '2.7b5' PP_VER = '2.7c1'
PP_NVER = '2.7.2.5' PP_NVER = '2.7.3.1'
MIN_MACH_VER = '2.5k1' MIN_MACH_VER = '2.5k1'
MACH_NAME = 'Essetre-PF1500MAXrl-3T' MACH_NAME = 'Essetre-PF1500MAXrl-3T'
@@ -182,7 +182,7 @@ FirstSaw = false
SecondSaw = true SecondSaw = true
SecondChain = true -- magazzino seconda sega a catena SecondChain = true -- magazzino seconda sega a catena
TcSpecialTools = true -- magazzino per utensili speciali. In genere truciolatore 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 TcAggreBladeUnder = true -- lama su aggregato per testa da sotto
EmitAccClamps = true EmitAccClamps = true
WriteAllCoordsOnFirstM101 = true WriteAllCoordsOnFirstM101 = true
@@ -481,7 +481,7 @@ if DrillingAggregate then
OthColl = {'B1/SOLID', 'C1/SOLID'}, OthColl = {'B1/SOLID', 'C1/SOLID'},
Geo = 'H14_HEAD/GEO', Geo = 'H14_HEAD/GEO',
Aux = {'H14_HEAD/SOLID', 'H14_HEAD/COLLISION'}} Aux = {'H14_HEAD/SOLID', 'H14_HEAD/COLLISION'}}
end end
-- *** Testa 3 *** -- *** Testa 3 ***
local X3Id = EmtAxis { local X3Id = EmtAxis {
@@ -939,28 +939,40 @@ if Tc2Active then
ADir = X_AX(), ADir = X_AX(),
Geo = 'BASE/T30'} Geo = 'BASE/T30'}
end end
local ptTc3 = Point3d( 600, 1181, -321) if DrillingAggregate then
EmtTcPos { local ptTc3 = Point3d( 600, 1181, -321)
Name = 'T101', EmtTcPos {
Parent = 'Base', Name = 'T101',
Type = MCH_HT.MULTI, Parent = 'Base',
ExitNbr = 6, Type = MCH_HT.MULTI,
Pos1 = ptTc3 + Vector3d( 0, 0, 0), ExitNbr = 6,
TDir1 = Z_AX(), Pos1 = ptTc3 + Vector3d( 0, 0, 0),
Pos2 = ptTc3 + Vector3d( -40, 0, 0), TDir1 = Z_AX(),
TDir2 = Z_AX(), Pos2 = ptTc3 + Vector3d( -40, 0, 0),
Pos3 = ptTc3 + Vector3d( -80, 0, 0), TDir2 = Z_AX(),
TDir3 = Z_AX(), Pos3 = ptTc3 + Vector3d( -80, 0, 0),
Pos4 = ptTc3 + Vector3d( 40, 0, 0), TDir3 = Z_AX(),
TDir4 = Z_AX(), Pos4 = ptTc3 + Vector3d( 40, 0, 0),
Pos5 = ptTc3 + Vector3d( 80, 0, 0), TDir4 = Z_AX(),
TDir5 = Z_AX(), Pos5 = ptTc3 + Vector3d( 80, 0, 0),
Pos6 = ptTc3 + Vector3d( 120, 0, 0), TDir5 = Z_AX(),
TDir6 = Z_AX(), Pos6 = ptTc3 + Vector3d( 120, 0, 0),
ADir = X_AX(), TDir6 = Z_AX(),
Geo = 'BASE/T101', ADir = X_AX(),
Aux = 'BASE/T101_HS'} Geo = 'BASE/T101_MULTIDRILL',
local ptTc4 = Point3d( 750, 1561, -150.8) 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 { EmtTcPos {
Name = 'T111', Name = 'T111',
Parent = 'Base', Parent = 'Base',
@@ -968,7 +980,7 @@ EmtTcPos {
TDir = -X_AX(), TDir = -X_AX(),
ADir = Z_AX(), ADir = Z_AX(),
Geo = 'BASE/T111'} Geo = 'BASE/T111'}
local ptTc5 = Point3d( 750, 1961, -150.8) local ptTc5 = Point3d( 750, 1961, -110.8)
EmtTcPos { EmtTcPos {
Name = 'T121', Name = 'T121',
Parent = 'Base', 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 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 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) 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 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, 'SOLID'), vtMovB, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB, GDB_RT.GLOB) EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( Z1Id, 'SOLID'), vtOffset23KW, 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 if SecondSaw and sTcPos == 'T21' then
return 'H16' return 'H16'
-- utensili speciali -- utensili speciali
elseif TcSpecialTools and sTcPos == 'T121' then elseif DrillingAggregate and sTcPos == 'T101' then
if DrillingAggregate then return 'H14'
return 'H14'
else
return 'H11'
end
-- motoseghe -- motoseghe
elseif sTcPos == 'T101' or sTcPos == 'T111' then elseif sTcPos == 'T101' or sTcPos == 'T111' then
return 'H13' return 'H13'
@@ -1305,7 +1314,7 @@ end
--------------------------------------------------------------------- ---------------------------------------------------------------------
-- Funzione che riconosce testa per sega a catena -- Funzione che riconosce testa per sega a catena
function HeadIsChainSaw( sHead) function HeadIsChainSaw( sHead)
return ( sHead == 'H13' or sHead == 'H15') return ( sHead == 'H13')
end end
--------------------------------------------------------------------- ---------------------------------------------------------------------
Essetre-PF1500MAXrl-3T.nge
BIN
View File
Binary file not shown.
Scripts/SetUp.lua
+40
View File
@@ -117,6 +117,46 @@ elseif bTc2Active and SecondSaw and SecondChain and TcSpecialTools and TcAggreBl
{Pos = "Pos37", TcPos = "T229", Head = "H21", Group = "G4"}, {Pos = "Pos37", TcPos = "T229", Head = "H21", Group = "G4"},
{Pos = "Pos38", TcPos = "T230", Head = "H21", Group = "G4"}, {Pos = "Pos38", TcPos = "T230", Head = "H21", Group = "G4"},
{Pos = "Pos39", TcPos = "T301", Head = "H38", Group = "G5"}} {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 end
local UsePositionHead = true local UsePositionHead = true