Egalware/masterwood-project265
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nuova lista MDRILL con tutte le info del gruppo a forare

Browse Source
This commit is contained in:
andrea.villa
2025-02-12 20:11:20 +01:00
parent d038dd3f16
commit d754281195
1 changed files with 45 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Masterwood-Project265.mlde
+45 -48
View File
@@ -32,27 +32,31 @@ AAxisStroke = {-110, 110}
-- testa 5 assi
H11Pos = Vector3d( 0, 0, 0)
-- gruppo forare
H21Pos = H11Pos + Vector3d( -249.005, 522.001, 255.95)
H21PosX = -249.005
H21PosY = 522.001
H21PosZ = 255.95
H21Pos = H11Pos + Vector3d( H21PosX, H21PosY, H21PosZ)
-- teste gruppo forare
H2101 = H21Pos + Vector3d( 0, 0, 0)
H2102 = H21Pos + Vector3d( 32, 0, 0)
H2103 = H21Pos + Vector3d( 64, 0, 0)
H2104 = H21Pos + Vector3d( 96, 0, 0)
H2105 = H21Pos + Vector3d( 128, 0, 0)
H2106 = H21Pos + Vector3d( 160, 0, 0)
H2107 = H21Pos + Vector3d( 192, 0, 0)
H2108 = H21Pos + Vector3d( 0, 64, 0)
H2109 = H21Pos + Vector3d( 0, 96, 0)
H2110 = H21Pos + Vector3d( 0, 128, 0)
H2111 = H21Pos + Vector3d( 0, 160, 0)
H2131 = H21Pos + Vector3d( -32, 32, -51.2)
H2133 = H21Pos + Vector3d( -32, -32, -51.2)
H2135 = H21Pos + Vector3d( 224, 64, -51.2)
H2136 = H21Pos + Vector3d( 224, 96, -51.2)
H2137 = H21Pos + Vector3d( 160, 64, -51.2)
H2138 = H21Pos + Vector3d( 160, 96, -51.2)
-- lametta su gruppo a forare
H2150 = H21Pos + Vector3d( 192, 192.5, -8.2)
MDRILL = { { Pos = H21Pos + Vector3d( 0, 0, 0), Ex=1, St=61}, -- uscita 1
{ Pos = H21Pos + Vector3d( 32, 0, 0), Ex=2, St=61}, -- uscita 2
{ Pos = H21Pos + Vector3d( 64, 0, 0), Ex=3, St=61}, -- uscita 3
{ Pos = H21Pos + Vector3d( 96, 0, 0), Ex=4, St=61}, -- uscita 4
{ Pos = H21Pos + Vector3d( 128, 0, 0), Ex=5, St=61}, -- uscita 5
{ Pos = H21Pos + Vector3d( 160, 0, 0), Ex=6, St=61}, -- uscita 6
{ Pos = H21Pos + Vector3d( 192, 0, 0), Ex=7, St=61}, -- uscita 7
{ Pos = H21Pos + Vector3d( 0, 64, 0), Ex=8, St=61}, -- uscita 8
{ Pos = H21Pos + Vector3d( 0, 96, 0), Ex=9, St=61}, -- uscita 9
{ Pos = H21Pos + Vector3d( 0, 128, 0), Ex=10, St=61}, -- uscita 10
{ Pos = H21Pos + Vector3d( 0, 160, 0), Ex=11, St=61}, -- uscita 11
{ Pos = H21Pos + Vector3d( -32, 32, -51.2), Ex=12, Token=31, Tw=13,St=76}, -- uscita 12
{ Pos = H21Pos + Vector3d( -32, -32, -51.2), Ex=13, Token=33, Tw=12,St=76}, -- uscita 13
{ Pos = H21Pos + Vector3d( 224, 64, -51.2), Ex=14, Token=35, Tw=16,St=76}, -- uscita 14
{ Pos = H21Pos + Vector3d( 224, 96, -51.2), Ex=15, Token=36, Tw=17,St=76}, -- uscita 15
{ Pos = H21Pos + Vector3d( 160, 64, -51.2),Ex=16, Token=37, Tw=14,St=76}, -- uscita 16
{ Pos = H21Pos + Vector3d( 160, 96, -51.2), Ex=17, Token=38, Tw=15,St=76}, -- uscita 17
{ Pos = H21Pos + Vector3d( 192, 192.5, -8.2), Ex=18, Token=50, St=76} -- uscita 18
}
----------------------------------------------------
----------------- DATI BANCALETTI ------------------
----------------------------------------------------
@@ -157,41 +161,41 @@ EmtHead {
Type = MCH_HT.MULTI,
SelType = MCH_SLT.MULTIEXITS,
ExitNbr = 18,
Pos1 = H2101,
Pos1 = MDRILL[1].Pos,
TDir1 = Z_AX(),
Pos2 = H2102,
Pos2 = MDRILL[2].Pos,
TDir2 = Z_AX(),
Pos3 = H2103,
Pos3 = MDRILL[3].Pos,
TDir3 = Z_AX(),
Pos4 = H2104,
Pos4 = MDRILL[4].Pos,
TDir4 = Z_AX(),
Pos5 = H2105,
Pos5 = MDRILL[5].Pos,
TDir5 = Z_AX(),
Pos6 = H2106,
Pos6 = MDRILL[6].Pos,
TDir6 = Z_AX(),
Pos7 = H2107,
Pos7 = MDRILL[7].Pos,
TDir7 = Z_AX(),
Pos8 = H2108,
Pos8 = MDRILL[8].Pos,
TDir8 = Z_AX(),
Pos9 = H2109,
Pos9 = MDRILL[9].Pos,
TDir9 = Z_AX(),
Pos10 = H2110,
Pos10 = MDRILL[10].Pos,
TDir10 = Z_AX(),
Pos11 = H2111,
Pos11 = MDRILL[11].Pos,
TDir11 = Z_AX(),
Pos12 = H2131,
Pos12 = MDRILL[12].Pos,
TDir12 = -Y_AX(),
Pos13 = H2133,
Pos13 = MDRILL[13].Pos,
TDir13 = Y_AX(),
Pos14 = H2135,
Pos14 = MDRILL[14].Pos,
TDir14 = -X_AX(),
Pos15 = H2136,
Pos15 = MDRILL[15].Pos,
TDir15 = -X_AX(),
Pos16 = H2137,
Pos16 = MDRILL[16].Pos,
TDir16 = X_AX(),
Pos17 = H2138,
Pos17 = MDRILL[17].Pos,
TDir17 = X_AX(),
Pos18 = H2150,
Pos18 = MDRILL[18].Pos,
TDir18 = -Y_AX(),
ADir = VectorFromPolar( 1, 45),
Geo = 'H21_HEAD/GEO',
@@ -450,13 +454,6 @@ function OnActivateDrillingUnit()
-- assegno dati testa
local nHeadId = EMC.HEADID
-- assegno dati uscite
local vExit = { {Ex=1,St=61}, {Ex=2,St=61}, {Ex=3,St=61}, {Ex=4,St=61}, {Ex=5,St=61}, {Ex=6,St=61}, {Ex=7,St=61}, --X
{Ex=8,St=61}, {Ex=9,St=61}, {Ex=10,St=61}, {Ex=11,St=61}, --Y
{Ex=12,Token=31,Tw=13,St=76}, {Ex=13,Token=33,Tw=12,St=76}, --Y_horz
{Ex=14,Token=35,Tw=16,St=76}, {Ex=15,Token=36,Tw=17,St=76}, --X_horz
{Ex=16,Token=37,Tw=14,St=76}, {Ex=17,Token=38,Tw=15,St=76}, --X_horz
{Ex=18,Token=50,St=76}} --Lametta
-- sistemo dati uscite attive
local vbExit = {}
@@ -465,9 +462,9 @@ function OnActivateDrillingUnit()
end
-- ciclo su tutte le uscite della testa
for nExit = 1, #vExit do
for nExit = 1, #MDRILL do
-- eventuale gemello
local nTwin = vExit[nExit].Tw or 0
local nTwin = MDRILL[nExit].Tw or 0
-- nome e identificativo della geometria dell'uscita
local sExit = 'T' .. EgtNumToString( nExit, 0)
local nExitId = EgtGetFirstNameInGroup( nHeadId, sExit)
@@ -475,7 +472,7 @@ function OnActivateDrillingUnit()
local sStem = 'SOL_' .. sExit
local nStemId = EgtGetFirstNameInGroup( nHeadId, sStem)
-- determino la posizione
local dPos = EgtIf( vbExit[nExit] or vbExit[nTwin], 0, vExit[nExit].St)
local dPos = EgtIf( vbExit[nExit] or vbExit[nTwin], 0, MDRILL[nExit].St)
-- eseguo posizionamento
if nStemId then
MoveGroup( nStemId, Z_AX(), dPos)