DataWindow :

- nel caso di vetro non rettangolare restituite le dimensioni del suo box.
2025-07-30 15:08:44 +02:00
parent 157107f805
commit 12d533288e
1 changed files with 5 additions and 0 deletions
@@ -1603,6 +1603,11 @@ local function CalcFillGeo( nPartId, nOutlineLayerId)
   if bRect then
      EgtSetInfo( nGeoLayerId, WIN_GEOWIDTH, vtEdge1:len())
      EgtSetInfo( nGeoLayerId, WIN_GEOHEIGHT, vtEdge2:len())
+   else
+      -- se non è rettangolare salvo le dimensioni del suo box orientato in modo ottimale
+      local _, dDim1, dDim2 = EgtCurveMinAreaRectangleXY( nCompo)
+      EgtSetInfo( nGeoLayerId, WIN_GEOWIDTH, dDim1)
+      EgtSetInfo( nGeoLayerId, WIN_GEOHEIGHT, dDim2)
   end
   EgtErase( nCompo)