Essetre-FAST 2.6c7 :

- migliorie alla geometria macchina e suo caricamento.

Essetre-FAST.mlde

@@ -1,4 +1,4 @@
--- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2024/01/19
+-- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2024/03/09
 -- 2021/12/29 DS ver 2.3l4 Per NUM non va considerato MillOffs negli offset in Z.
 -- 2022/01/27 DS ver 2.4a2 Modifiche per tagli testa/coda su pezzi alti.
 -- 2022/02/10 DS ver 2.4a3 Ridotto di 10mm pinzaggio con pezzi alti ma sottili.
@@ -43,11 +43,12 @@
 -- 2024/02/29 AV ver 2.6c5 Allineamento con common ver. 2.6c5
 -- 2024/03/04 AV ver 2.6c6 Modificato log con nome macchina
 --                         Allineamento con common ver. 2.6c6
+-- 2024/03/09 DS ver 2.6c7 Migliorie alla geometria macchina e suo caricamento.
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6c6'
+PP_VER = '2.6c7'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-FAST'
 
@@ -219,9 +220,14 @@ local CId = EmtAxis {
       Geo = 'C_AXIS/GEO',
       Aux = {'C_AXIS/SOLID', 'C_AXIS/COLLISION'}}
 if NewTopC then
-   local SolidTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'SOLID'), 'TOP')
+   local vtMove = Vector3d( 65,0,0)
+   local SolidArmId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'SOLID'), 'ARM')
+   EgtSurfTmMoveVertex( SolidArmId, 23, EgtSurfTmGetVertex( SolidArmId, 23, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
+   EgtSurfTmMoveVertex( SolidArmId, 25, EgtSurfTmGetVertex( SolidArmId, 25, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
+   EgtSurfTmMoveVertex( SolidArmId, 35, EgtSurfTmGetVertex( SolidArmId, 35, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
+   EgtSurfTmMoveVertex( SolidArmId, 36, EgtSurfTmGetVertex( SolidArmId, 36, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
    local CollTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'COLLISION'), 'TOP')
-   EgtMove( { SolidTopId, CollTopId}, Vector3d( 65,0,0), GDB_RT.GLOB)
+   EgtMove( CollTopId, vtMove, GDB_RT.GLOB)
    EgtSetName( CollTopId, 'BOX')
 else
    local CollTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'COLLISION'), 'TOP')