- In LapJoint -> MakePocket abilitata Q per forzare massima elevazione

2024-06-05 09:33:52 +02:00
parent 0c802464e1
commit 812397a047
1 changed files with 5 additions and 1 deletions
@@ -3339,7 +3339,11 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
      EgtOutLog( sWarn)
   end
   -- imposto elevazione e dichiaro non si generano sfridi per VMill
-   local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+   -- eventuale massima elevazione imposta dall'utente
+   local dMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
+   if dMaxElev and dMaxElev < 1 then dMaxElev = nil end
+   dMaxElev = dMaxElev or dElev
+   local sNotes = 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';'
   sNotes = sNotes .. 'VMRS=0;'
   if bOpenOutRaw then
      sNotes = sNotes .. 'OpenOutRaw=1;'