Egalware/saomad-kairos-mk3
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Nuovi magazzini. (ToDo: aggregati a T)

Browse Source 
- Definizione variabile local in mlpe.
This commit is contained in:
daniele.nicoli
2026-04-20 12:17:54 +02:00
parent 2526f6bb39
commit 8eceb9b865
4 changed files with 59 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Saomad-KAIROS-MK3.mlde
+45 -15
View File
@@ -317,82 +317,83 @@ EmtTcPos {
EmtTcPos {
Name = 'T102',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110),
Pos = ptTcCen + Vector3d( 0, 0, -110),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T102'}
EmtTcPos {
Name = 'T103',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*2),
Pos = ptTcCen + Vector3d( 0, 0, -110*2),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T103'}
EmtTcPos {
Name = 'T104',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*3),
Pos = ptTcCen + Vector3d( 0, 0, -110*3),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T104'}
EmtTcPos {
Name = 'T105',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*4),
Pos = ptTcCen + Vector3d( 0, 0, -110*4),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T105'}
EmtTcPos {
Name = 'T106',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*5),
Pos = ptTcCen + Vector3d( 0, 0, -110*5),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T106'}
EmtTcPos {
Name = 'T107',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*6),
Pos = ptTcCen + Vector3d( 0, 0, -110*6),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T107'}
EmtTcPos {
Name = 'T108',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*7),
Pos = ptTcCen + Vector3d( 0, 0, -110*7),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T108'}
EmtTcPos {
Name = 'T109',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*8),
Pos = ptTcCen + Vector3d( 0, 0, -110*8),
TDir = -X_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T109'}
local ptTcVert = Point3d( 640.3120, -1030.0, 92.4414)
EmtTcPos {
Name = 'T110',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*9),
TDir = -X_AX(),
Pos = ptTcVert,
TDir = Z_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T110'}
EmtTcPos {
Name = 'T111',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*10),
TDir = -X_AX(),
Pos = ptTcVert + Vector3d( 0, 120, 0),
TDir = Z_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T111'}
EmtTcPos {
Name = 'T112',
Parent = 'Base',
Pos = ptTcCen - Vector3d( 0, 0, 110*11),
TDir = -X_AX(),
Pos = ptTcVert + Vector3d( 0, 120*2, 0),
TDir = Z_AX(),
ADir = -Y_AX(),
Geo = 'BASE/T112'}
-- ToolChanger 2 + Lama
local ptTc2Cen = Point3d( -533.186, -1025, 979.44)
local ptTc2Cen = Point3d( -533.1860, -1030.0, 1005.940)
EmtTcPos {
Name = 'T201',
Parent = 'Base',
@@ -414,6 +415,35 @@ EmtTcPos {
TDir = X_AX(),
ADir = Y_AX(),
Geo = 'BASE/T203'}
EmtTcPos {
Name = 'T204',
Parent = 'Base',
Pos = ptTc2Cen + Vector3d( 0, 0, -380-(110*2)),
TDir = X_AX(),
ADir = Y_AX(),
Geo = 'BASE/T204'}
local ptTc2Vert = Point3d( -639.6860, -1030.0, 242.440)
EmtTcPos {
Name = 'T205',
Parent = 'Base',
Pos = ptTc2Vert,
TDir = Z_AX(),
ADir = Y_AX(),
Geo = 'BASE/T205'}
EmtTcPos {
Name = 'T206',
Parent = 'Base',
Pos = ptTc2Vert + Vector3d( 0, 120, 0),
TDir = Z_AX(),
ADir = Y_AX(),
Geo = 'BASE/T206'}
EmtTcPos {
Name = 'T207',
Parent = 'Base',
Pos = ptTc2Vert + Vector3d( 0, 120*2, 0),
TDir = Z_AX(),
ADir = Y_AX(),
Geo = 'BASE/T207'}
-- Aggiusto posizioni geometriche
local vtMove = Vector3d( 0, ( DeltaTabY - 0), ( DeltaTabZ - 0))
Saomad-KAIROS-MK3.mlpe
+4 -3
View File
@@ -187,7 +187,7 @@ function OnSimulDispositionStart()
local b3ScrapRaw = EgtGetBBoxGlob( nScrapSolId, GDB_BB.STANDARD)
if b3ScrapRaw then
b3Raw:Add( b3ScrapRaw)
end
end
end
end
-- determino la risoluzione dello Zmap
@@ -356,11 +356,12 @@ function OnSimulDispositionStart()
-- ricerco vettore movimento per i successivi
local vtMove = Vector3d()
local nRawId = EgtGetFirstRawPart()
local b3Bar = BBox3d()
while nRawId do
if EgtGetInfo( nRawId, 'ORD', 'i') == nOrd + 1 then
vtMove = Vector3d( - LoadT - EgtGetRawPartBBox( nRawId):getMax():getX(), 0, 0)
break
end
end
nRawId = EgtGetNextRawPart( nRawId)
end
-- eseguo
@@ -390,7 +391,7 @@ function OnSimulDispositionStart()
if EgtGetInfo( nRawId, 'ORD', 'i') == nOrd + 1 then
vtMove = Vector3d( - LoadT - EgtGetRawPartBBox( nRawId):getMax():getX(), 0, 0)
break
end
end
nRawId = EgtGetNextRawPart( nRawId)
end
-- eseguo
Saomad-KAIROS-MK3.nge
BIN
View File
Binary file not shown.
Scripts/SetUp.lua
+10 -4
View File
@@ -36,10 +36,16 @@ local PositionTable={{Pos = "Pos1", TcPos = "T101", Head = "H1", Group = "G1"}
{Pos = "Pos7", TcPos = "T107", Head = "H1", Group = "G1"},
{Pos = "Pos8", TcPos = "T108", Head = "H1", Group = "G1"},
{Pos = "Pos9", TcPos = "T109", Head = "H1", Group = "G1"},
{Pos = "Pos10", TcPos = "T110", Head = "H1", Group = "G1"},
{Pos = "Pos11", TcPos = "T111", Head = "H1", Group = "G1"},
{Pos = "Pos12", TcPos = "T201", Head = "H1", Group = "G2"},
{Pos = "Pos13", TcPos = "T202", Head = "H3", Group = "G3"}}
{Pos = "Pos10", TcPos = "T110", Head = "H1", Group = "G2"},
{Pos = "Pos11", TcPos = "T111", Head = "H1", Group = "G2"},
{Pos = "Pos12", TcPos = "T112", Head = "H1", Group = "G2"},
{Pos = "Pos13", TcPos = "T201", Head = "H1", Group = "G3"},
{Pos = "Pos14", TcPos = "T202", Head = "H1", Group = "G3"},
{Pos = "Pos15", TcPos = "T203", Head = "H1", Group = "G3"},
{Pos = "Pos16", TcPos = "T204", Head = "H1", Group = "G3"},
{Pos = "Pos17", TcPos = "T205", Head = "H1", Group = "G4"},
{Pos = "Pos18", TcPos = "T206", Head = "H1", Group = "G4"},
{Pos = "Pos19", TcPos = "T207", Head = "H1", Group = "G4"}}
if EgtGetHeadId( 'H3') then
PositionTable[13].Head = 'H3'
end