From 2439dc01b41072bb5ec24707b35c8e63a7ee5bb6 Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Thu, 2 Apr 2026 15:21:51 +0200 Subject: [PATCH] - Corretto SetUp - Modificata macro chiodatura - Cambio versione per rilascio a cliente --- Essetre-90480023_XS-MW.mlde | 162 +----------------------------------- Essetre-WALL.NUM.mlpe | 8 +- Scripts/SetUp.lua | 23 +---- 3 files changed, 10 insertions(+), 183 deletions(-) diff --git a/Essetre-90480023_XS-MW.mlde b/Essetre-90480023_XS-MW.mlde index 9ddeeaf..e2de54d 100644 --- a/Essetre-90480023_XS-MW.mlde +++ b/Essetre-90480023_XS-MW.mlde @@ -8,7 +8,7 @@ require( 'EmtGenerator') EgtEnableDebug( false) if not EmtModifyHeadAuxDirection then error( 'A newer version of the program is required (minimum 2.3j5)') end -PP_VER = '3.1c1' +PP_VER = '3.1d1_DEV1' PP_NVER = '2.7.4.1' -- Parametri macchina @@ -163,9 +163,6 @@ local Nail12OffsZ = Nail12DeltaZ + 421.6497 local Nail13OffsX = Nail13DeltaX + 279.1875 local Nail13OffsY = Nail13DeltaY - 136.1311 local Nail13OffsZ = Nail13DeltaZ + 421.6497 ---[[local Nail14OffsX = Nail14DeltaX - 383.8 -local Nail14OffsY = Nail14DeltaY - 170.0 -local Nail14OffsZ = Nail14DeltaZ - 37.0]] EmtGeneral { File='Essetre-WALL.nge', @@ -225,17 +222,7 @@ EmtAxis { Home = 0, Geo = 'Z1_AXIS/GEO', Aux = {'Z1_AXIS/SOLID'}} --- Chiodatrice ---[[local H14Id = EmtHead { - Name = 'H14', - Parent = 'Z1', - HSet = 'H14', - Type = MCH_HT.STD, - Pos = Point3d( Nail14DeltaX, Nail14DeltaY, Nail14DeltaZ), - TDir = Z_AX(), - Geo = 'H14_HEAD/GEO', - Aux = {'H14_HEAD/SOLID'}} - EgtMove( EgtGetFirstNameInGroup( H14Id, 'SOLID'), Vector3d( Nail14OffsX, Nail14OffsY, Nail14OffsZ), GDB_RT.GLOB)]] + -- Assi rotanti EmtAxis { Name = 'C1', @@ -282,19 +269,7 @@ EmtAxis { Stroke = { 0, 270}, Home = 180, Geo = 'A1_AXIS/GEO'} ---[[local H3Id = EmtHead { - Name = 'H3', - Parent = 'A1', - HSet = 'H1', - Type = MCH_HT.STD, - Pos = Point3d( 0, 0, -ChSawLen), - TDir = Y_AX(), - ADir = Z_AX(), - Rot1W = 0.1, - SolCh = MCH_SCC.ADIR_NEAR, - OthColl = {'B1/SOLID', 'C1/SOLID'}, - Geo = 'H3_HEAD/GEO'} - EgtSetInfo( H3Id, 'ZSAFEDELTA', 60)]] + -- Carro 2 local X2Id = EmtAxis { Name = 'X2', @@ -321,30 +296,7 @@ local Z2Id = EmtAxis { Geo = 'Z2_AXIS/GEO', Aux = {'Z2_AXIS/SOLID'}} EgtMove( EgtGetFirstNameInGroup( Z2Id, 'SOLID'), Vector3d( SawOffsX, SawOffsY, SawOffsZ), GDB_RT.GLOB) ---[[local C2Id = EmtAxis { - Name = 'C2', - Parent = 'Z2', - Token = 'C', - Type = MCH_AT.ROTARY, - Dir = Z_AX(), - Pos = Point3d( SawDeltaX, SawDeltaY, 0), - Stroke = {MinC2, MaxC2}, - Home = 0, - Geo = 'C2_AXIS/GEO', - Aux = {'C2_AXIS/SOLID', 'C2_AXIS/COLLISION'}} - EgtMove( EgtGetFirstNameInGroup( C2Id, 'SOLID'), Vector3d( SawOffsX, SawOffsY, SawOffsZ), GDB_RT.GLOB) - EgtMove( EgtGetFirstNameInGroup( C2Id, 'COLLISION'), Vector3d( SawOffsX, SawOffsY, SawOffsZ), GDB_RT.GLOB)]] ---[[local H2Id = EmtHead { - Name = 'H2', - Parent = 'C2', - HSet = 'H2', - Type = MCH_HT.STD, - Pos = Point3d( SawDeltaX, SawDeltaY + SawOffs, SawDeltaZ), - TDir = -Y_AX(), - ADir = Z_AX(), - Rot1W = 0.2, - OthColl = {'C2/SOLID'}, - Geo = 'H2_HEAD/GEO'}]] + local H21Id = EmtHead { Name = 'H21', Parent = 'Z2', @@ -426,112 +378,6 @@ EmtTcPos { TDir = Y_AX(), ADir = -X_AX(), Geo = 'Y_AXIS/TA7'} ---[[EmtTcPos { - Name = 'T8', - Parent = 'Y', - Pos = ptTcA - 840 * Z_AX(), - TDir = -Y_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TA8'} -EmtTcPos { - Name = 'T9', - Parent = 'Y', - Pos = ptTcA - 960 * Z_AX(), - TDir = -Y_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TA9'} -local ptTcB = Point3d( -495.6,-5226.7,17.0) -EmtTcPos { - Name = 'T10', - Parent = 'Y', - Pos = ptTcB, - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB1'} -EmtTcPos { - Name = 'T11', - Parent = 'Y', - Pos = ptTcB + 120 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB2'} -EmtTcPos { - Name = 'T12', - Parent = 'Y', - Pos = ptTcB + 240 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB3'} -EmtTcPos { - Name = 'T13', - Parent = 'Y', - Pos = ptTcB + 360 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB4'} -EmtTcPos { - Name = 'T14', - Parent = 'Y', - Pos = ptTcB + 480 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB5'} -EmtTcPos { - Name = 'T15', - Parent = 'Y', - Pos = ptTcB + 600 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB6'} -EmtTcPos { - Name = 'T16', - Parent = 'Y', - Pos = ptTcB + 720 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB7'} -EmtTcPos { - Name = 'T17', - Parent = 'Y', - Pos = ptTcB + 840 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB8'} -EmtTcPos { - Name = 'T18', - Parent = 'Y', - Pos = ptTcB + 960 * Y_AX(), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TB9'} -EmtTcPos { - Name = 'T101', - Parent = 'Y', - Pos = Point3d(-568.3,-1307.4,-83.8), - TDir = X_AX(), - ADir = Z_AX(), - Geo = 'Y_AXIS/TC1'} -EmtTcPos { - Name = 'T201', - Parent = 'Y', - Pos = Point3d(-804.5,-1682.5,-39.5), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TC3A'} -EmtTcPos { - Name = 'T202', - Parent = 'Y', - Pos = Point3d(-804.5,-2042.5,-39.5), - TDir = Z_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TC3B'} -EmtTcPos { - Name = 'T203', - Parent = 'Y', - Pos = Point3d(-5.35,206.5,-416.14), - TDir = -Y_AX(), - ADir = X_AX(), - Geo = 'Y_AXIS/TC2'}]] --------------------------------------------------------------------- -- Funzioni richiamate per modificare i dati macchina in casi particolari diff --git a/Essetre-WALL.NUM.mlpe b/Essetre-WALL.NUM.mlpe index 55958af..5728f53 100644 --- a/Essetre-WALL.NUM.mlpe +++ b/Essetre-WALL.NUM.mlpe @@ -253,9 +253,9 @@ function OnPathEnd() local dStep = GetValNotes( EgtGetMachiningParam( MCH_MP.USERNOTES), 'Par', 'd') or 100 local dSafeZ = max( EgtGetMachiningParam( MCH_MP.STARTPOS), 10) or 20 --local dSafeZ = EgtMdbGetGeneralParam( MCH_GP.SAFEZ) - if EMT.HEAD == 'H21' or EMT.HEAD == 'H23' then - EmtOutput( 'G102 X'..EmtLenToString( EMT.NAIL_START_L1, 3)..' Y'..EmtLenToString( EMT.NAIL_START_L2, 3)..' Z'..EmtLenToString( EMT.NAIL_START_L3, 3).. - ' U'..EmtLenToString( EMT.NAIL_END_L1, 3)..' V'..EmtLenToString( EMT.NAIL_END_L2, 3)..' A'..EmtLenToString( dStep, 3).. + if EMT.HEAD == 'H21' or EMT.HEAD == 'H22' or EMT.HEAD == 'H23' then + EmtOutput( 'G124 X'..EmtLenToString( EMT.NAIL_START_L1, 3)..' Y'..EmtLenToString( EMT.NAIL_START_L2, 3)..' Z'..EmtLenToString( EMT.NAIL_START_L3, 3).. + ' B'..EmtLenToString( EMT.NAIL_END_L1, 3)..' C'..EmtLenToString( EMT.NAIL_END_L2, 3)..' EA'..EmtLenToString( dStep, 3)..' EB1'.. ' W'..EmtLenToString( dSafeZ, 3)..EMT.NAIL_END) else local sExtra = '' @@ -731,8 +731,6 @@ function GetET() sET = ' ET12' elseif EMT.HEAD == 'H23' then sET = ' ET13' - elseif EMT.HEAD == 'H14' then - sET = ' ET14' end return sET end diff --git a/Scripts/SetUp.lua b/Scripts/SetUp.lua index a376b01..41e7b5b 100644 --- a/Scripts/SetUp.lua +++ b/Scripts/SetUp.lua @@ -35,26 +35,9 @@ local PositionTable={{Pos = "Pos1", TcPos = "T1", Head = "H1", Group = "G1"}, {Pos = "Pos5", TcPos = "T5", Head = "H1", Group = "G1"}, {Pos = "Pos6", TcPos = "T6", Head = "H1", Group = "G1"}, {Pos = "Pos7", TcPos = "T7", Head = "H1", Group = "G1"}, - {Pos = "Pos8", TcPos = "T8", Head = "H1", Group = "G1"}, - {Pos = "Pos9", TcPos = "T9", Head = "H1", Group = "G1"}, - {Pos = "Pos10", TcPos = "T10", Head = "H1", Group = "G2"}, - {Pos = "Pos11", TcPos = "T11", Head = "H1", Group = "G2"}, - {Pos = "Pos12", TcPos = "T12", Head = "H1", Group = "G2"}, - {Pos = "Pos13", TcPos = "T13", Head = "H1", Group = "G2"}, - {Pos = "Pos14", TcPos = "T14", Head = "H1", Group = "G2"}, - {Pos = "Pos15", TcPos = "T15", Head = "H1", Group = "G2"}, - {Pos = "Pos16", TcPos = "T16", Head = "H1", Group = "G2"}, - {Pos = "Pos17", TcPos = "T17", Head = "H1", Group = "G2"}, - {Pos = "Pos18", TcPos = "T18", Head = "H1", Group = "G2"}, - {Pos = "Pos19", TcPos = "T101", Head = "H3", Group = "G3"}, - {Pos = "Pos20", TcPos = "T201", Head = "H1", Group = "G3"}, - {Pos = "Pos21", TcPos = "T202", Head = "H1", Group = "G3"}, - {Pos = "Pos22", TcPos = "T203", Head = "H1", Group = "G3"}, - {Pos = "Pos23", TcPos = "T42", Head = "H2", Group = "G3"}, - {Pos = "Pos24", TcPos = "T31", Head = "H21", Group = "G4"}, - {Pos = "Pos25", TcPos = "T32", Head = "H22", Group = "G4"}, - {Pos = "Pos26", TcPos = "T33", Head = "H23", Group = "G4"}, - {Pos = "Pos27", TcPos = "T34", Head = "H14", Group = "G4"}} + {Pos = "Pos8", TcPos = "T11", Head = "H21", Group = "G2"}, + {Pos = "Pos9", TcPos = "T12", Head = "H22", Group = "G2"}, + {Pos = "Pos10", TcPos = "T13", Head = "H23", Group = "G2"}} local UsePositionHead = true