From 7d13d2604bc9a53017e75224a87405a1672109fd Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Tue, 12 Nov 2024 08:35:18 +0100 Subject: [PATCH] Gestione completa aggregato a T --- Beam/BeamData.lua | 2 ++ Common_FAST.NUM.mlpe | 2 +- Essetre-FASTrl.ini | 6 ++++ Essetre-FASTrl.mlde | 66 ++++++++++++++++++++++++++++++++++++----- Scripts/SetUp.lua | 16 +++++++--- THolders/AngTransm.nge | Bin 0 -> 7517 bytes 6 files changed, 79 insertions(+), 13 deletions(-) create mode 100644 THolders/AngTransm.nge diff --git a/Beam/BeamData.lua b/Beam/BeamData.lua index 936506d..343c424 100644 --- a/Beam/BeamData.lua +++ b/Beam/BeamData.lua @@ -10,6 +10,7 @@ local BeamData = { SIMUL_VIEW_DIR = 1, -- direzione di vista predefinita per la simulazione (1=NW, 2=SW, 3=NE, 4=SE) GO_FAST = 0, -- flag abilitazione modalità veloce (0=no, 1=carrelli, 2=anche cambio utensili) ROT90 = false, -- flag abilitazione rotazione 90 gradi + ROT180 = true, -- flag abilitazione rotazione 180 gradi NEWCLAMPING = false, -- flag abilitazione nuovo metodo riposizionamento carrelli FASTCLAMPING= true, -- flag abilitazione riduzione numero riposizionamenti al carico e durante grande trascinamento MIN_WIDTH = 40, -- larghezza minima del grezzo @@ -112,6 +113,7 @@ if EgtExistsFile( sData) then if Machine.Offsets.NEWCLAMPING ~= nil then BeamData.NEWCLAMPING = ( Machine.Offsets.NEWCLAMPING == 1) end if Machine.Offsets.FASTCLAMPING ~= nil then BeamData.FASTCLAMPING = ( Machine.Offsets.FASTCLAMPING == 1) end if Machine.Offsets.ROT90 ~= nil then BeamData.ROT90 = ( Machine.Offsets.ROT90 == 1) end + if Machine.Offsets.ROT180 ~= nil then BeamData.ROT180 = ( Machine.Offsets.ROT180 == 1) end end if Machine.Trave then BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH diff --git a/Common_FAST.NUM.mlpe b/Common_FAST.NUM.mlpe index 360a8c3..b5621b3 100644 --- a/Common_FAST.NUM.mlpe +++ b/Common_FAST.NUM.mlpe @@ -1647,7 +1647,7 @@ end --------------------------------------------------------------------- function GetET( sHead, sTcPos, dAxR3) - if sHead == 'H1' then + if sHead == 'H1' or sHead == 'H5' or sHead == 'H6' then return ' E'..sTcPos elseif sHead == 'H2' then return ' ET42' diff --git a/Essetre-FASTrl.ini b/Essetre-FASTrl.ini index 6796466..9e5e8d3 100644 --- a/Essetre-FASTrl.ini +++ b/Essetre-FASTrl.ini @@ -21,6 +21,10 @@ H1.1:MILL_NOTIP=MillNoTip.nge H1.1:SAW_FLAT=TcSaw.nge H2.1=Saw.nge H3.1=ChainSaw.nge +H5.1=AngTransm.nge +H5.2=AngTransm.nge +H6.1=AngTransm.nge +H6.2=AngTransm.nge [Machinings] Drilling=1 @@ -46,6 +50,8 @@ H1=6608 H2=6615 ; Chainsaw H3=6616 +; Angular transmission +H5=6603 [SetUp] Default=Standard diff --git a/Essetre-FASTrl.mlde b/Essetre-FASTrl.mlde index ff087d7..d856c3b 100644 --- a/Essetre-FASTrl.mlde +++ b/Essetre-FASTrl.mlde @@ -94,14 +94,14 @@ if EgtExistsFile( sData) then if Machine then if Machine.Offsets then NumericalControl = EgtIf( Machine.Offsets.TIPO_CN == 0, 'NUM', 'TPA') - if Machine.Offsets.MIN_X then MaxX = -Machine.Offsets.MIN_X end - if Machine.Offsets.MAX_X then MinX = -Machine.Offsets.MAX_X end - MinZ = Machine.Offsets.MIN_Z or MinZ - MaxZ = Machine.Offsets.MAX_Z or MaxZ - MinB = Machine.Offsets.MIN_B or MinB - MaxB = Machine.Offsets.MAX_B or MaxB - MinC = Machine.Offsets.MIN_C or MinC - MaxC = Machine.Offsets.MAX_C or MaxC + if Machine.Offsets.MAX_X then MinX = - Machine.Offsets.MAX_X end + if Machine.Offsets.MIN_X then MaxX = - Machine.Offsets.MIN_X end + if Machine.Offsets.MIN_Z then MinZ = Machine.Offsets.MIN_Z end + if Machine.Offsets.MAX_Z then MaxZ = Machine.Offsets.MAX_Z end + if Machine.Offsets.MIN_B then MinB = Machine.Offsets.MIN_B end + if Machine.Offsets.MAX_B then MaxB = Machine.Offsets.MAX_B end + if Machine.Offsets.MIN_C then MinC = Machine.Offsets.MIN_C end + if Machine.Offsets.MAX_C then MaxC = Machine.Offsets.MAX_C end MinY = Machine.Offsets.MIN_Y or Machine.Offsets.MINY or MinY MaxY = Machine.Offsets.MAX_Y or Machine.Offsets.MAXY or MaxY ParkY = Machine.Offsets.PARKYY or ParkY @@ -132,6 +132,7 @@ if EgtExistsFile( sData) then if Machine.Offsets.MIN_JOIN_LS then MinJoinLS = Machine.Offsets.MIN_JOIN_LS end if Machine.Offsets.MIN_JOIN_SL then MinJoinSL = Machine.Offsets.MIN_JOIN_SL end if Machine.Offsets.MIN_JOIN_LL then MinJoinLL = Machine.Offsets.MIN_JOIN_LL end + if Machine.Offsets.NEWTOPC then NewTopC = ( Machine.Offsets.NEWTOPC == 1) end end end end @@ -269,6 +270,31 @@ EgtSetInfo( H3Id, 'ZMAXONROT', '1,5') if BeamHeightForFixRot < 1000 then EgtSetInfo( H3Id, 'ROTATZMAX', '1') end +-- Eventuale rinvio angolare +if SecondSupport >= 3 then + local H5Id = EmtHead { + Name = 'H5', + Parent = 'B', + HSet = 'H1', + Type = MCH_HT.MULTI, + ExitNbr = 2, + Pos1 = Point3d( 0, AngTr1Len, -AngTr1Offs), + TDir1 = -Y_AX(), + Pos2 = Point3d( 0, -AngTr1Len, -AngTr1Offs), + TDir2 = Y_AX(), + ADir = Z_AX(), + Rot1W = 0.2, + Rot2Stroke = { -120, 120}, + OthColl = { 'H2', 'B/SOLID', 'C/SOLID'}, + Geo = 'H5_HEAD/GEO', + Aux = {'H5_HEAD/SOLID', 'H5_HEAD/COLLISION'}} + EgtSetInfo( H5Id, 'AGB_TYPE', 2) + EgtSetInfo( H5Id, 'AGB_DMAX', 240) + EgtSetInfo( H5Id, 'AGB_ENCH', 44) + EgtSetInfo( H5Id, 'AGB_ENCV', 380) + EgtSetInfo( H5Id, 'AGB_MDIR', -X_AX()) + EgtSetInfo( H5Id, 'ZMAXONROT', '1,15') +end -- Morse local YId = EmtAxis { Name = 'Y', @@ -423,6 +449,7 @@ else Geo = 'BASE/T101S'} end if SecondSupport == 1 then + -- supporto per punta EmtTcPos { Name = 'T111', Parent = 'Base', @@ -430,6 +457,29 @@ if SecondSupport == 1 then TDir = Z_AX(), ADir = -X_AX(), Geo = 'BASE/T111'} +elseif SecondSupport == 2 then + -- supporto per mortasatrice + local TcpSsId = EmtTcPos { + Name = 'T111', + Parent = 'Base', + Pos = Point3d( 510.4, -113.2, -430.8), + TDir = X_AX(), + ADir = Z_AX(), + Geo = 'BASE/T111M'} + EgtSetInfo( TcpSsId, 'Mortiser', true) +elseif SecondSupport == 3 then + -- supporto per rinvio angolare + local TcpSsId = EmtTcPos { + Name = 'T91', + Parent = 'Base', + ExitNbr = 2, + Pos1 = Point3d( 710.4+150, -113.2, -329.8-170), + TDir1 = -X_AX(), + Pos2 = Point3d( 710.4-150, -113.2, -329.8-170), + TDir2 = X_AX(), + ADir = Z_AX(), + Geo = 'BASE/T91', + Aux = 'BASE/T91_HS'} end if SpecialBH then EmtTcPos { diff --git a/Scripts/SetUp.lua b/Scripts/SetUp.lua index 2806b6e..97f9aee 100644 --- a/Scripts/SetUp.lua +++ b/Scripts/SetUp.lua @@ -39,10 +39,18 @@ local PositionTable={{Pos = "Pos1", TcPos = "T1", Head = "H1", Group = "G1"}, {Pos = "Pos10", TcPos = "T10", Head = "H1", Group = "G1"}, {Pos = "Pos11", TcPos = "T11", Head = "H1", Group = "G1"}, {Pos = "Pos12", TcPos = "T42", Head = "H2", Group = "G1"}, - {Pos = "Pos13", TcPos = "T101", Head = "H3", Group = "G1"}} - -if EgtGetTcPosId( 'T111') then - table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H1", Group = "G1"}) + {Pos = "Pos13", TcPos = "T101", Head = "H3", Group = "G2"}} +local SecSuppId = EgtGetTcPosId( 'T111') +if SecSuppId then + local bMortiser = EgtGetInfo( SecSuppId, 'Mortiser', 'b') + if bMortiser then + table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H3", Group = "G2"}) + else + table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H1", Group = "G2"}) + end +end +if EgtGetHeadId( 'H5') then + table.insert( PositionTable, {Pos = "Pos14", TcPos = "T91", Head = "H5", Group = "G2"}) end local UsePositionHead = true diff --git a/THolders/AngTransm.nge b/THolders/AngTransm.nge new file mode 100644 index 0000000000000000000000000000000000000000..d2541c4592274e5df73dc181eba6c3fde69ccd15 GIT binary patch literal 7517 zcmV-j9irkNiwFP!000003XPoGjwCm7hVKWMH>u7|<~flVKw4|8T|m+r(g3~`7Ffeq zwg5x#4}bq3Opy#yNt){_WfMzkd7t>Fa<0`Qv~6@jpNO^^*Fu9iKn_ z+`1{zAWSC zPk;LY#t*;$_U-G>Uq*iX@$;v*1kFJ6pUvNOrQtiEo~)E&rGNbN_a9y$_}lN_e*O9L zr)iwN8?H#crDK^d@qZma=VW_*myTiP=fo!|tw-9&W8L|nKgPb>mT~IG%al6!*!SDz zZRtk-?gw$hXk+T8b(*%dg-YG9Y~y}H4Gq-X&6l^E@5g2>e_vM7wm6RPhqWKKrCDX{ z)_vL2d}x`^pXLTgL~g!bjv;kh8mDzd2t&6_+p;7CDcn_G?(@8lBVWF8@NHVRC4al= z+j-cR#otcdxX;5jAB%B!ZGM>H)Yfcn>(*u5#_8CCPiAL^((Z1*M+~V;{WA2@lch^( zocs9z&*;N3?AlNLSCBD4reo;4d79UC(Q#JT$g1PP7ycfG zZmhMfQ*)j)b~F4RrX$6%`Ky3wp?d%+Q@71STE#ZDpZ0wj4s6u;aCJqf`?}3nsxx=% z-1h?v$!Fgiz&KI`3H<<)rTW3NI8y4neM12eYp_Ms=58MlTzjUq+xDpkhGQ9wpH48J z=?(xcZC#IQZ}uHSH*Lc_!1Q1WbcU&$FqNTY-W$8y2bj#6yeja_Sxf_rgRvT<# zJv3(9wy|#)dK=J*b?dQ&F^)eZJo>4`|KuLyJ;e*8w8#e`@o8Sx1veAyLu7cq zN7RFN>|Cn-06#Ql8u|X=ndj_BCjcG^dJfkx&3yk*zvp~_1%O9JJ?9;+$J;|cHs>8~ z{{G$##>Fyi4{azUW0<#T!Q<~CF|@0|c|#3E$PDe8yB_mc_cl`^erF#e> z6nmPMr9ImlfFogcf;XfmCPgA}0>-8qkWfWV&|hz7+IO}HjbODj?vnR$`;}b6`x_y5 z5fPNGLf-BqCpWMFoqmr&`g$9-S4iR{6UxQwDq*IJTt zc7c*tkR~=3bxNcJrX}Z5RQy_XaXA5lD}H7uDQ6BCLPMvi0*WCd%th2N2!--&>Ngfl zDjPsB|9u-yq-=(iXF0Qg>+qg(0)TDFYv!!vCfP`YQqxhud*1^kqNYLN|FbkHslv57ivVXa;Nbhg* z_W7(;;QsrWWy2x)lNGd7*a?RdTSY$aHw01+ zu4<;Fi_H8oUNF{f-zo4{lHVx6)6mc4SFYdARs#w5h239P3a?i%C^ar9xz^Z)$Qq;y z$`;g!>3T{(GB8yVc?r^$3*q?~_>)CHgrAOu%?!t)J)r}X$OPE|cDRSI%;V5c6LpTt zxU}~>%6|4lXdiGKDhHikiwU>i$i@opu+XdtTo{9&I&sPIE*mGJvLSth_uWJmvP{FA znuYn6UGz&oQ6f@sO7IT0V2|200>JnJcU-7w%cfTfy%Tq*getfcNbpj6PETyTprOi{ zs6fX-4#)aJk^1h>WjS7who0b_#VYQuC6hjHPbr+7%AeEuO(dyz!2_UVtnkYHgq zwm-08bmgS6!2BZN1*T>a3$+m3E+p`7>iAsnr1G_FUn)k`*r&z3f?K$ro{+ADytHg7 zx4?s4r1zWy-izNK;{gt@3_g4B%1JvK(sU`IQck_@7!&ntzmP=82cPaqZ7nF^9dX3` zNpa#si-J0;jb5|8OkyR!sT620F;J-g&{GId}9uEovkjTUHBH zB2!=MV?6iA&`04>E#a1EXR+hN>4sq}hgR(IKL%QDX{VtKkI&Gf)|pLE{bV+*zW4zN;fem8P;ZlHv>X-RYu z`s#T_{)ExZE36`g^1 ziWs7?^*dId4Fy3(Mj#qQu$}{)G^m8cbNs)`oQp37+}$@LnS~Gf*j}O-dzEt#euk9#YD4WiEOk!EtG* zs?~8(;%E}m|^I$o*P{B(~j?9Olpl&t{l@9341d9h;SS=DI3y>nc zCKY_Jpu{UEq75)kP49LN8xj8sOrl>)vaUk+=6Ezi4a4E~%i_fN76Oj5>kSZ`(1q+8 zoI40*quk1Xd7NO>VJgeDPzQxEn7uaP?m25yDSlq5s7 z^zCwLhYAYw*X=LC;lXm88m{1sl+yvl-S~r@x|LjA3?>fB4p z6V&dZXo|uspeV4$3!#IK)g39S66-8Lw3#kkqN-(oyCC|=0j0JFbV%Q+Fz$e0yOkCo zdSn-}G4<|mN#SnMeKf8=phFl;{k>};cMHW;S09_-C`s>GN{bZr7ZiF5A!U?GA8wW; z4x)AhM*^IZMygFmh#p_ubA{@Nx>96}wDFa$W&aM8@F0)=;@qc;s{I%6hzrONQ$U8p zg-nIMDej-Vf&ZZ?B^c6p)<3vm<>r5)E##Zq+-Zdd=ER;ilmOjQo-P{X4uKYRUlhqE zG0YUIl>|Y<)`s${XTbKA|Iq~Ju3!gE@suV#^*vJrnw!W=6Gp%zEOBhE_Ay--^dI8k z;v7g74nbnq+A>+)wvmsQV6cbId>S9mN zAhe_k4W)w(4Qg&gjrWOe24|(TMq~Cw@~Y|thVe5s!^{_Mo9CV~c=Bsh&*O!=clF6W zMsuErw0z$yB_aK%(xoRv&WG)mW6zj?7^ySwG+KS#@0Fddpl7;J!a0e1I<{yqy22NQ zM(?hZXg~!2S!vMy!9J0kYXmq)O6^m2;g*Z!hi^h$JPPG1nl!Z}V1Q)(L9k(F_iQJY%2$gjqVw`mEn4YXA0XjmC^@M+L_ z>M%TL6}uptA_a47N8Li5aK|rVQy!7JvNR{lQYCK^vYjrbP&vBbI!~v|6%?W@n;=>{ zDtWJoXE4ceC`C37r1rJ|22OmhVz$LNN&4i93 zJLPusC1lb&>M^$?l=0(w&a};LK0>0!2$S6 z(`i-}LiBCb5;;!;?{e$M^{Wp|v53FuUFa;FIINNqB#T>N!Cg~7%qFtz0Akml=PKXgkD`VVC zCdA|>fvq8gk`hc2bHqgT7Kj!)&EuTdV}-#9bks?$%mjDH9@&F+^kZD)p}wz{B?&Mp zaY5Usj$zg)8s0A67y`8gOe2WlNwDew-Af&zreMMp_pO*ns0mwIhuK# zfTMs*?V>>#9Y8(b)>5UP?(nPU%QvWJaebgD<)ymP1fMP&HDPSe;l?jXZdqW$7IxaM^B1;6H}EAZf?ADD~?QyJ2g?I;JN})WWa%IUg#u* zESku`ef~*E9#L(b!d#~R$e&?uBpp7N_4Zli?Y3zm2rHUhZ!GD5(pP37sJ_>qSYNaM+%ibLfmxs0g(eVxFh1eDAfQU8)J35mgBFNWrsEL~Mt_@>KdwS!0A$wNqv99AF|XqyOznFHCm>~y zmPzqt4mATqEas9)tsD7tLy82#<+SY48Gz1a6@Gdvs*8fGGnxsOTeTVKNQ#{_N?$}* zTBa))aaOX%4Qo(Or{LCD*X2#o!5oVitKpx8oCpq{+fa)|#uMeEu4**!#a+uuX`37S z86>WA3W&EhEg>|83p(}Np)aqX4TTy1IvWqI_p+CdY~o?RX5HGBUhzv!t?0?k6y+ck(x+2CsH=C z1qRz=+LWHnEHv22*3COKF4`B0b}{b z_~e>6v9>;&k@4FQudcFM=(rIDU)5#uN8ClchOPlOwN~OSs$Dzi>U}&PO!B*vSY15^ zN6qjUWH=6;DotO)2ggk(`Q_-M%D^=0{&Wz`uUcYty`8c9i~xtihNWBXPv*!PbW}xM z1Ro%rlwyKLPqzbi_q72#cY8p^GW{A`JBSMuGyB=&4te@@upvbcukQqf;ok(^!pr z8&&F>tQ8-DkUpr#>z2OiSNiIDG3dsd>PJ#mWyiF6RmjnLahXp*P*VyJaR3nYha5@O zrIME?!t33fi%*x=)KTg*s91I3qaaVy!j%LdO7wg&t$a^ziCWDWljyj{A-E|wAQFVX zRv;qXkQI}0DN-u_DF*>W1r{K3Z@zj_Al8#8yF0}~bW;k5{VNXX4V}~>ifqCUwaRQ)dBBH!iEUBsPyBu%WWf^o1%#g}#98Zy z@hBmN{Q#QYEJ6&{ z77^uFc)9>T6+E_Cn3jJ*08X;uy@*tZ5FydwMmiNDzZv&$pa?S};2@hj2yyR9GKJ~+ zHxPIx^@OloDny8m$P`k6(fM5!oeD!h*g2_Oigr-wUfobD@<0Ci=rJy`WFo;LtQ##>xe-bwaQ`EjE9GuK|Mp%OAv zd$2BKi4;GVA10NuW1|+}MKBI*aiu~G<=@X4>CpxOY#bIowYgQlc@=cs@1j7< zt9*z;ryXF_SF331qaT?$A@e&2M!25grAQ89ItrNtPk2a3guz)}Kw*ZdJT3xB<3u!~ zxbING5NF|a1|wi(4)rmUieb_sGC-W6ry)MV@yw`@lrf&W8?J%Eg2vM$5U&^Y+$q>#OA&j0L*%Skk0yN3VCPGSn(FrGzsopR@J2jk zoF4+7(yR}V^s9XQ?7(kZ^rRwI{1A~u-LI@jmo*kvWszl_Uw56FP#+(8;J-YqaLt3F zwW4pWyFMP$n;{TMF5s$CjL^`J5n-k$?OmX7uc22gLOg9b^X9bl=Dm*#kQm+6gA)6Z zmk<>rjp$b-S}{MF48x8mlc&`;4}}yt{TRY;lumPM_2x02Mw>kR=*(w;$cYZp|5;;dBj88(+>hvrs@S!c7{zbc#P*lQg|@d zjwWv7TL<5`f#%%}_eY-f*N~nC7-sk}V)WuQ;GQ`e7w)a!Ze4wSu;b>thu&37>smMl z5E_U77*V&}Ms)REw%Yo93GsCK<%P}Tb_3