3dPrinting :

- in RunSlicing aggiunto disegno dello start point.
2022-05-10 15:02:01 +02:00
parent 00b47493aa
commit ae103a814a
1 changed files with 9 additions and 0 deletions
@@ -151,6 +151,15 @@ function RunSlicing.Exec()
   local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
   local HMax = tonumber( EgtGetStringFromIni( '3dPrinting', 'HMax', 500, sMachIni))

+   -- disegno lo start point
+   local nPntId = EgtGetFirstNameInGroup( nPartId, KEY_START_POINT)
+   if nPntId then EgtErase( nPntId) end
+   local nParamsGrp = EgtGetFirstNameInGroup( GDB_ID.ROOT, PARAMS_GRP)
+   local pt = EgtGetInfo( nParamsGrp, KEY_START_POINT, 'p') 
+   nPntId = EgtPoint( nPartId, pt, GDB_RT.GLOB)
+   EgtSetColor( nPntId, EgtStdColor("RED"))
+   EgtSetName( nPntId, KEY_START_POINT)
+   
   -- Calcolo delle fette
   CSLICES.Exec( nPartId, nStmId, HMax)
   EgtDraw()