-- 2019/02/07  09:30:00
-- Gestione di lunghezza e diametro utensile variabili 
-- (tramite spostameno delle parti identificate con Info 'mobile' = 1
-- Ver.2.1b1 2019/02/13

-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)

require("EgtDimension")

-- Dati utensile : dichiarazione e valori standard
local TOOL = {}
TOOL.LEN = nil
TOOL.DIAM = nil
TOOL.ERR = 999
_G.TOOL = TOOL

function AdjustCustomTool()

   TOOL.ERR = 999

   local dToolNewL = TOOL.LEN
   local dToolNewD = TOOL.DIAM
   if not dToolNewL or not dToolNewD then
      TOOL.ERR = 1
      return
   end

   -- Dati utensile dal disegno
   local PartId = EgtGetFirstPart()
   local SolidId = EgtGetFirstNameInGroup( PartId, 'SOLID')
   local dToolL = EgtGetInfo( SolidId, 'Le')   -- lunghezza da disegno utensile
   local dToolD = EgtGetInfo( SolidId, 'De')   -- diametro da disegno utensile

   -- raccolta delle parti da adattare in base alle nuove quote di input
   local MobilePart = {}
   local ObjId = EgtGetFirstInGroup( SolidId)
   while ObjId do
      if EgtExistsInfo( ObjId, 'Mobile') then
         table.insert( MobilePart, ObjId)
      end   
      ObjId = EgtGetNext( ObjId)
   end

   -- adattamento della lunghezza utensile in base al dato di input
   if dToolL and abs ( dToolNewL - dToolL) > 10 * GEO.EPS_SMALL then
      local dDeltaL = dToolNewL - dToolL
      EgtMove( MobilePart, Vector3d( 0, -dDeltaL, 0))
      EgtSetInfo( SolidId, 'Le', dToolNewL)
      -- riporto in posizione inizio di Outline
      local OutlineId = EgtGetFirstNameInGroup( SolidId, 'Outline')
      if OutlineId then
         EgtModifyCurveStartPoint( OutlineId, ORIG(), GDB_RT.GLOB)
      end
   end

   -- adattamento della larghezza utensile in base al dato di input
   if dToolD and abs ( dToolNewD - dToolD) > 10 * GEO.EPS_SMALL then
      local dRatioD = dToolNewD / dToolD
      EgtScale( MobilePart, Frame3d( 0,0,0), dRatioD, 1, dRatioD)
      EgtSetInfo( SolidId, 'De', dToolNewD)
   end

   -- posizioni per linee di quota
   local BBoxSolid = EgtGetBBoxGlob( SolidId, 0)
   local dSolidMinY = BBoxSolid:getMin():getY()
   local dSolidMaxX = BBoxSolid:getMax():getX()
   local ptP1 = Point3d( - 0.5 * dToolNewD, - dToolNewL, 0)
   local ptP2 = Point3d(   0.5 * dToolNewD, - dToolNewL, 0)

   -- quotatura
   local DimsId = EgtGetFirstNameInGroup( PartId, 'DIMS')
   if DimsId then
      EgtEmptyGroup( DimsId)
      EgtSetStatus( DimsId, GDB_ST.ON)
   else
      DimsId = EgtGroup( PartId)
      EgtSetName( DimsId, 'DIMS')
      EgtSetColor( DimsId, BLACK())
   end

   local dDistQuoteD = -( dSolidMinY - ptP1:getY()) + 10
   local dDistQuoteL = dSolidMaxX - ptP2:getX() + 10
   local dTextSize = min( 20, 0.1 * max( dToolNewL, dToolNewD))
   local dLenghtArrow = 0.03 * max( dToolNewL, dToolNewD)
   local dTextDist = 3

   local sDiamTxt = EgtNumToString( EgtToUiUnits( dToolNewD), 3)
   CreateLinearDimensionOnX( DimsId, ptP1, ptP2, sDiamTxt, dTextSize, dDistQuoteD, dLenghtArrow, dTextDist, false, 'DIAM', GDB_RT.GRID)

   local sLenTxt = EgtNumToString( EgtToUiUnits( dToolNewL),3)
   CreateLinearDimensionOnY( DimsId, ORIG(), ptP2, sLenTxt, dTextSize, dDistQuoteL, dLenghtArrow, dTextDist, true, 'LEN', GDB_RT.GRID)

   local Dims = EgtGetAllInGroup( DimsId)
   if Dims then
      EgtMove( Dims, Vector3d( 0, 0, BBoxSolid:getMax():getZ()+10))
   end

   TOOL.ERR = 0
end
_G.AdjustCustomTool = AdjustCustomTool