Nuova gestione sovra-tavola

EgtStoneLib/EstCalc.vb

@@ -292,16 +292,28 @@ Module EstCalc
       EgtErase(EgtGetFirstNameInGroup(nFixtId, MACH_ADD_TABLE))
       ' Altezza eventuale tavola aggiuntiva
       Dim dAddTable As Double = dAdditionalTable
-      ' Se non esiste sovratavola, esco subito
+      ' Se non richiesta sovratavola, non c'è altro da fare ed esco
       If dAddTable < 10 * EPS_SMALL Then Return True
       ' Recupero box tavola
       Dim ptMin, ptMax As Point3d
       EgtGetTableArea(1, ptMin, ptMax)
+      ' Nuova geometria
+      Dim nAddTabId As Integer = GDB_ID.NULL
+      ' Se esiste geometria di riferimento
+      Dim nRefAddTabId = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(EgtGetTableId(MAIN_TAB), "SOLID"), MACH_ADD_TABLE)
+      If nRefAddTabId <> GDB_ID.NULL Then
+         nAddTabId = EgtCopyGlob(nRefAddTabId, nFixtId)
+         EgtSetStatus(nAddTabId, GDB_ST.ON_)
+         EgtScale(nAddTabId, New Frame3d(ptMin), 1, 1, dAddTable / 10)
+         ' altrimenti la creo
+      Else
          ' Aggiungo sovratavola nel gruppo dei bloccaggi
          ptMax.z -= DELTAZ_ADDTAB
          ptMin.z = ptMax.z
          ptMax.z += dAddTable
-      Dim nAddTabId As Integer = EgtCreateSurfTmBBox(nFixtId, ptMin, ptMax, GDB_RT.GLOB)
+         nAddTabId = EgtCreateSurfTmBBox(nFixtId, ptMin, ptMax, GDB_RT.GLOB)
+      End If
+      ' Sistemazioni finali
       If nAddTabId = GDB_ID.NULL Then Return False
       EgtSetName(nAddTabId, MACH_ADD_TABLE)
       EgtSetColor(nAddTabId, New Color3d(150, 75, 0, 100), True)

README.md

@@ -9,6 +9,6 @@ Documentazione del progetto Omag Office
 
 
 | vers | data | note |
-|-----|-----|-----| 
-|1.0|aaa| bbb| 
+| ---- | ---- | ---- |
+| 2.3g1  | 6/07/2021  | Add: Nuova gestione sovra-tavola  |