From 724dafe7adc365646a8e218f98f7e4e78b99ee8f Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Thu, 28 Mar 2024 16:36:20 +0100 Subject: [PATCH] =?UTF-8?q?-=20Possibilit=C3=A0=20di=20lavorazione=20da=20?= =?UTF-8?q?X-=20tra=20le=20pinze,=20se=20abilitata=20da=20flag=20(User.ENA?= =?UTF-8?q?BLE=5FTOOL=5FBETWEEN=5FVICES=20=3D=3D=201).=20-=20Aggiunto=20pa?= =?UTF-8?q?rametro=20'IS=5FTEST=5FMACHINE'=20per=20test=20Egalware=20inter?= =?UTF-8?q?ni?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Common-FAST.NUM.mlpe | 10 +++++++--- Common-FAST.NUM_PLUS.mlpe | 10 +++++++--- Common-FAST.TPA.mlpe | 10 +++++++--- Common-FAST.mlse | 11 ++++++++--- UpdateLog.txt | 6 +++++- Version.lua | 4 ++-- 6 files changed, 36 insertions(+), 15 deletions(-) diff --git a/Common-FAST.NUM.mlpe b/Common-FAST.NUM.mlpe index 351943d..d07300d 100644 --- a/Common-FAST.NUM.mlpe +++ b/Common-FAST.NUM.mlpe @@ -41,13 +41,17 @@ function OnProgramStart() local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or EgtGetCurrMachGroup() or GDB_ID.NULL local nPatt = EgtGetInfo( BtlInfoId, 'PATTID', 'i') or 40 EmtOutput( '%'..EgtNumToString( nPatt, 0)..'.0') + + -- aggiungo prefisso per commentae commenti iniziali se la macchina è utilizzata per fare i test + local sPrefixCommentLine = '' ; if IS_TEST_MACHINE then sPrefixCommentLine = '//' end + if EMT.INFO then - EmtOutput( '('..EMT.INFO..')') + EmtOutput( sPrefixCommentLine..'('..EMT.INFO..')') else EmtOutput( '(Program Start)') end - EmtOutput( '('.. CSP_INFO..')') - EmtOutput( '('.. MACHINE_INFO..')\n') + EmtOutput( sPrefixCommentLine..'('.. CSP_INFO..')') + EmtOutput( sPrefixCommentLine..'('.. MACHINE_INFO..')\n') -- Se modalità test, aggiungo linee per muovere tappeto e alzare la testa (in automatico viene fatto dal main residente) if TEST_USE then EmtOutput( 'M28') diff --git a/Common-FAST.NUM_PLUS.mlpe b/Common-FAST.NUM_PLUS.mlpe index 85e999d..548bf83 100644 --- a/Common-FAST.NUM_PLUS.mlpe +++ b/Common-FAST.NUM_PLUS.mlpe @@ -41,13 +41,17 @@ function OnProgramStart() local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or EgtGetCurrMachGroup() or GDB_ID.NULL local nPatt = EgtGetInfo( BtlInfoId, 'PATTID', 'i') or 40 EmtOutput( '%'..EgtNumToString( nPatt, 0)..'.0') + + -- aggiungo prefisso per commentae commenti iniziali se la macchina è utilizzata per fare i test + local sPrefixCommentLine = '' ; if IS_TEST_MACHINE then sPrefixCommentLine = '//' end + if EMT.INFO then - EmtOutput( '('..EMT.INFO..')') + EmtOutput( sPrefixCommentLine..'('..EMT.INFO..')') else EmtOutput( '(Program Start)') end - EmtOutput( '('.. CSP_INFO..')') - EmtOutput( '('.. MACHINE_INFO..')\n') + EmtOutput( sPrefixCommentLine..'('.. CSP_INFO..')') + EmtOutput( sPrefixCommentLine..'('.. MACHINE_INFO..')\n') -- Se modalità test, aggiungo linee per muovere tappeto e alzare la testa (in automatico viene fatto dal main residente) if TEST_USE then EmtOutput( 'M28') diff --git a/Common-FAST.TPA.mlpe b/Common-FAST.TPA.mlpe index 1d0224a..0e5bfd9 100644 --- a/Common-FAST.TPA.mlpe +++ b/Common-FAST.TPA.mlpe @@ -38,14 +38,18 @@ end --------------------------------------------------------------------- function OnProgramStart() + + -- aggiungo prefisso per commentae commenti iniziali se la macchina è utilizzata per fare i test + local sPrefixCommentLine = '' ; if IS_TEST_MACHINE then sPrefixCommentLine = '//' end + -- Intestazioni if EMT.INFO then - ParkLine( '('..EMT.INFO..')') + ParkLine( sPrefixCommentLine..'('..EMT.INFO..')') else ParkLine( '(Program Start)') end - ParkLine( '('.. CSP_INFO..')') - ParkLine( '('.. MACHINE_INFO..')') + ParkLine( sPrefixCommentLine..'('.. CSP_INFO..')') + ParkLine( sPrefixCommentLine..'('.. MACHINE_INFO..')') -- Se modalità test, aggiungo linee per muovere tappeto e alzare la testa (in automatico viene fatto dal main residente) if TEST_USE then diff --git a/Common-FAST.mlse b/Common-FAST.mlse index c3ffd73..3849ad8 100644 --- a/Common-FAST.mlse +++ b/Common-FAST.mlse @@ -1,4 +1,4 @@ --- Special Operations macchina Essetre-FAST by EgalWare s.r.l. 2024/02/23 +-- Special Operations macchina Essetre-FAST by EgalWare s.r.l. 2024/03/28 -- Intestazioni require( 'EmtGenerator') @@ -796,6 +796,7 @@ function SpecialCalcMachiningEncumbrance( nMchId, bPreCut) local bAngTrasm = ( sHead == 'H5' or sHead == 'H6') local dTLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) + local dThLen = EgtTdbGetCurrToolThLength() -- Se sega a catena, devo correggere il versore Aux per farlo coincidere con la direzione del braccio C if bChain then if abs( vAxes[6] or 0) < 1 then @@ -811,7 +812,7 @@ function SpecialCalcMachiningEncumbrance( nMchId, bPreCut) if nExit == 2 then vtAux = -vtAux end end -- Calcolo limiti derivanti dalla lavorazione - local dDistFront, dDistBack = SpecCalcEncumbrance( vtTool, vtAux, ptMin, ptMax, bSaw, bChain, dTLen, dTDiam) + local dDistFront, dDistBack = SpecCalcEncumbrance( vtTool, vtAux, ptMin, ptMax, bSaw, bChain, dTLen, dTDiam, dThLen) return dDistFront, dDistBack end @@ -870,7 +871,7 @@ function GetFinalCutPmax( nMchId) end --------------------------------------------------------------------- -function SpecCalcEncumbrance( vtTool, vtArm, ptMin, ptMax, bSaw, bChain, dTLen, dTDiam) +function SpecCalcEncumbrance( vtTool, vtArm, ptMin, ptMax, bSaw, bChain, dTLen, dTDiam, dThLen) -- Quota in Z dal punto di inclinazione dei carrelli local dCompZ = sqrt( 1 - vtTool:getZ() * vtTool:getZ()) local dZup = ptMin:getZ() - 0.5 * dCompZ * dTDiam - ( EMC.ZMIN + 130) @@ -1055,6 +1056,10 @@ function SpecCalcEncumbrance( vtTool, vtArm, ptMin, ptMax, bSaw, bChain, dTLen, (( vtTool:getY() > 0 and ptHeadMin:getY() > 80) or ( vtTool:getY() < 0 and ptHeadMax:getY() < -EMC.SB - 80)) then dHeadFront = 130 end + -- per forature di coda abbastanza lontane dai bordi pezzo in Y + if BD.ENABLE_TOOL_BETWEEN_VICES and not bChain and vtTool:getX() < -0.999 and ptHeadMax:getY() + dTDiam / 2 < -15 and ptHeadMin:getY() - dTDiam / 2 > -EMC.SB + 15 then + dHeadFront = - ( dTLen - dThLen - 15) + end -- per interferenza con triangolo di rinforzo sulla pinza V if ( vtTool:getZ() < 0.25 and vtTool:getX() > -0.10 and vtTool:getY() > 0 and vtArm:getX() > 0.707 and not BD.RIGHT_LOAD) or ( vtTool:getZ() < 0.25 and vtTool:getX() > -0.10 and vtTool:getY() < 0 and vtArm:getX() > 0.707 and BD.RIGHT_LOAD) then diff --git a/UpdateLog.txt b/UpdateLog.txt index be79e14..6f6a921 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,7 +1,11 @@ ==== Common_FAST Update Log ==== +Versione 2.6c8 (28/03/2024) +- (MLSE) Possibilità di lavorazione da X- tra le pinze, se abilitata da flag (User.ENABLE_TOOL_BETWEEN_VICES == 1). +- (MLDE-GEN) Aggiunto parametro 'IS_TEST_MACHINE' FACOLTATIVO. Se non esiste o 'false' è macchina standard, se 'true' è una macchina utilizzata per i test Egalware interni + Versione 2.6c7 (12/03/2024) -- (SIM) A fine simulazione non si creano gli spigoli ma si setta solo flag per visualizzazione tramite "EgtVolZmapSetShowEdges" +- (SIM) Miglioramento visualizzazione spigoli VMILL alla fine della simulazione. Funzione: EgtVolZmapSetShowEdges. N.B.= serve CAM5 2.6c2 NON OBBLIGATORIO - (GEN) Corretto problema di movimento pinze assieme a discesa asse Z (Ticket #1710) Versione 2.6c6 (04/03/2024) diff --git a/Version.lua b/Version.lua index bdcaa65..6ae10ca 100644 --- a/Version.lua +++ b/Version.lua @@ -1,9 +1,9 @@ --- Version.lua by EgalWare s.r.l. 2024/02/23 +-- Version.lua by EgalWare s.r.l. 2024/03/28 -- Gestione della versione dei file comuni post-processori macchine FAST e FASTrl di Essetre local InfoCommon_STD_PP = { NAME = 'Common-FAST', -- nome script PP standard - VERSION = '2.6c7', -- versione script + VERSION = '2.6c8', -- versione script MIN_MACH_VER_PP_COMMON = '2.5k1' -- versione minima kernel }