3dPrinting :

- ottimizzazioni nella fase di slicing
- migliorata la funzione che chiude buchi nei setti.

.gitignore

@@ -13,9 +13,9 @@
 /Debug64
 /Release64
 /ipch
-/bin
 /obj
 /.vs
-/Machinings
-/Materials
-
+/bin/*.lua
+/bin/*.ini
+/bin/LuaLibs/*.lua
+/bin/Images/*.png

.gitlab-ci.yml

@@ -2,96 +2,58 @@ variables:
  VERS_MAIN: '1.0'
  APP_NAME: '3dPrinting'
  NEW_REL: ''
- NET_SHARE_R: '\\10.74.82.201\EgwTech'
+ NET_SHARE_X: '\\10.74.82.201\EgwTech'
  NET_SHARE_Z: '\\10.74.82.201\Artifacts'
  NET_USERQ: 'steamw\egalware'
 
 #Note compilazione LUA:
-# lua53 -o 32\$FileName -s $FileName: -o = output, -s = NON include i debug symbols
+# lua54 -o bin\$FileName -s $FileName: -o = output, -s = NON include i debug symbols
 
-# helper compilazione LUA a 32 bit
-.LuaCompile32: &LuaCompile32
+# helper compilazione LUA a 32 e 64 bit
+.LuaCompile: &LuaCompile
   - |
-    Set-Alias lua53  C:\Tools\Lua32\luac53
-    echo "Copia file *.ini"
-    $FileList = Get-ChildItem("*.ini")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      Copy-Item -Path $FileName -Destination 32\$FileName
-      echo "Copy-Item -Path $FileName -Destination 32\$FileName"
-    }
-    echo "Copia file *.lua"
+    Set-Alias lua54  C:\Tools\Lua32\luac54
     $FileList = Get-ChildItem("*.lua")
     ForEach ($File in $FileList) {
       $FileName = Split-Path $File -leaf
-      Copy-Item -Path $FileName -Destination 32\$FileName
-      echo "Copy-Item -Path $FileName -Destination 32\$FileName"
+      lua54 -o bin\$FileName -s $FileName
+      echo "lua54 -o bin\$FileName -s $FileName"
     }
     $FileList = Get-ChildItem("LuaLibs\*.lua")
     ForEach ($File in $FileList) {
       $FileName = Split-Path $File -leaf
-      lua53 -o 32\LuaLibs\$FileName LuaLibs\$FileName
-      echo "lua53 -o 32\LuaLibs\$FileName LuaLibs\$FileName"
+      lua54 -o bin\LuaLibs\$FileName -s LuaLibs\$FileName
+      echo "lua54 -o bin\LuaLibs\$FileName -s LuaLibs\$FileName"
     }
 
-# helper compilazione LUA a 64 bit
-.LuaCompile64: &LuaCompile64
-  - |
-    Set-Alias lua53  C:\Tools\Lua64\luac53
-    echo "Copia file *.ini"
-    $FileList = Get-ChildItem("*.ini")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      Copy-Item -Path $FileName -Destination 64\$FileName
-      echo "Copy-Item -Path $FileName -Destination 64\$FileName"
-    }
-    echo "Copia file *.lua"
-    $FileList = Get-ChildItem("*.lua")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      Copy-Item -Path $FileName -Destination 64\$FileName
-      echo "Copy-Item -Path $FileName -Destination 64\$FileName"
-    }
-    $FileList = Get-ChildItem("LuaLibs\*.lua")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      lua53 -o 64\LuaLibs\$FileName LuaLibs\$FileName
-      echo "lua53 -o 64\LuaLibs\$FileName LuaLibs\$FileName"
-    }
-
-#      Copy-Item -Path $FileName -Destination 64\$FileName
-#      echo "Copy-Item -Path $FileName -Destination 64\$FileName"
 # helper copia SORGENTI verso cartella di rete R:\ dei SORGENTI
 .CodeReplicaR: &CodeReplicaR
   - |
-    net use R: /delete
-    net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY . R:\EgtData\$env:APP_NAME /MIR /XF .git* /XD .git
+    net use X: /delete
     SLEEP 2
-    net use R: /delete
+    net use X: $env:NET_SHARE_X /u:$env:NET_USERQ $ZDRIVE_PASSWD 
+    ROBOCOPY . X:\EgtData\$env:APP_NAME\ /MIR /XF .git* /XD .git
+    SLEEP 2
+    net use X: /delete
 
 
-# helper copia script verso cartella di rete R:\ delle cartelle 32 e 64
+# helper copia script verso cartella di rete R:\ delle cartelle bin
 .ReplicaR: &ReplicaR
   - |
-    net use R: /delete
-    net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY /MIR 32 R:\EgtData\$env:APP_NAME\32
-    ROBOCOPY /MIR 64 R:\EgtData\$env:APP_NAME\64
-    ROBOCOPY /MIR Images R:\EgtData\$env:APP_NAME\32\Images
-    ROBOCOPY /MIR Images R:\EgtData\$env:APP_NAME\64\Images
+    net use X: /delete
     SLEEP 2
-    net use R: /delete
+    net use X: $env:NET_SHARE_X /u:$env:NET_USERQ $ZDRIVE_PASSWD 
+    ROBOCOPY /MIR bin X:\EgtData\$env:APP_NAME\bin
+    SLEEP 2
+    net use X: /delete
 
-# helper copia script verso cartella di rete R:\ delle cartelle 32 e 64
+# helper copia script verso cartella di rete Z:\ delle cartelle bin
 .ReplicaZ: &ReplicaZ
   - |
     net use Z: /delete
+    SLEEP 2
     net use Z: $env:NET_SHARE_Z /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY /MIR 32 Z:\EgtData\$env:APP_NAME\32
-    ROBOCOPY /MIR 64 Z:\EgtData\$env:APP_NAME\64
-    ROBOCOPY /MIR Images Z:\EgtData\$env:APP_NAME\32\Images
-    ROBOCOPY /MIR Images Z:\EgtData\$env:APP_NAME\64\Images
+    ROBOCOPY /MIR bin Z:\EgtData\$env:APP_NAME\bin
     SLEEP 2
     net use Z: /delete
 
@@ -103,12 +65,11 @@ LuaCompile:build:
  only:
    - main
    - master
+   - develop
  tags:
    - win
  script:    
-   - *LuaCompile32
-   - *LuaCompile64
+   - *LuaCompile
    - *CodeReplicaR
    - *ReplicaR
-   - *ReplicaZ
-   
+#   - *ReplicaZ

.vscode/settings.json

@@ -0,0 +1,34 @@
+{
+    "Lua.diagnostics.globals": [
+        "MATERIAL",
+        "EgtGetFirstNameInGroup",
+        "GDB_ID",
+        "EgtGroup",
+        "EgtSetLevel",
+        "EgtSetName",
+        "GDB_LV",
+        "EgtGetCurrMachineDir",
+        "EgtGetCurrMachineName",
+        "EgtGetStringFromIni",
+        "EgtGetFirstPart",
+        "EgtGetInfo",
+        "EgtGetNextPart",
+        "EgtGetLastNameInGroup",
+        "EgtRemoveInfo",
+        "EgtGetFirstInGroup",
+        "EgtGetName",
+        "EgtCurveLength",
+        "EgtGetNext",
+        "EgtCurveArea",
+        "EgtGetNextName",
+        "EgtSetInfo",
+        "floor",
+        "pi",
+        "pow",
+        "EgtProcessEvents",
+        "EgtEmptyGroup",
+        "EgtOutLog",
+        "EgtIf",
+        "EgtProtectGlobal"
+    ]
+}

3dPrinting.ini

@@ -1,16 +0,0 @@
-[3dPrinting]
-Enable=1
-BaseDir=C:\EgtData\3dPrinting
-Button1=PartPositioning.lua,Images\PartPositioning.png,Disponi pezzo sulla tavola macchina
-Button2=Slicing.lua,Images\Slicing.png,Calcola lo slicing, i solidi e i percorsi utensile
-Button3=MachiningParamCalc.lua,Images\MachiningParamCalc.png,Calcola parametri di lavorazione (Tempo layer, F, S)
-Button4=GcodeGenerate.lua,Images\GcodeGenerate.png,Genera codice CN
-Button5=ShowManager.lua,Images\ShowManager.png,Gestore visualizzazione
-Button6=ViewManager.lua,Images\ViewManager.png,Nascondi Visualizza strato
-Button7=SliceAdvancement.lua,Images\SliceAdvancement.png,Mostra avanzamento strato
-Button8=SlicePalette.lua,Images\SlicePalette.png,Gestore colori strato
-Button9=MachiningParamEdit.lua,Images\MachiningParamEdit.png,Edita i parametri di stampa
-Button10=MaterialParamEdit.lua,Images\MaterialParamEdit.png,Edita i parametri del materiale
-ParamFile=C:\EgtData\3dPrinting\Machinings\Params.ini
-ResultReadProg="C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE"
-MachiningEditProg="C:\Windows\System32\notepad.exe"

CalcMachParamFromSW.lua

@@ -1,4 +1,4 @@
--- CalcMachParamFromSW.lua by Egaltech s.r.l. 2022/09/15
+-- CalcMachParamFromSW.lua by Egaltech s.r.l. 2023/01/11
 -- Calcolo dei parametri di stampa
 
 -- Intestazioni
@@ -7,8 +7,7 @@ _ENV = EgtProtectGlobal()
 EgtEnableDebug( false)
 
 -- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
+EgtAddToPackagePath( PRINT.BASEDIR .. '\\LuaLibs\\?.lua')
 
 -- Librerie
 _G.package.loaded.RunMachParamFromSWCalc = nil

CalcSolids.lua

@@ -1,4 +1,4 @@
--- CalcSolids.lua by Egaltech s.r.l. 2022/09/26
+-- CalcSolids.lua by Egaltech s.r.l. 2023/01/11
 -- Calcola i solidi a partire dallo slicing
 
 -- Intestazioni
@@ -7,8 +7,7 @@ _ENV = EgtProtectGlobal()
 EgtEnableDebug( false)
 
 -- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
+EgtAddToPackagePath( PRINT.BASEDIR .. '\\LuaLibs\\?.lua')
 
 -- Librerie
 _G.package.loaded.RunCalcSolids = nil

Compile.bat

@@ -0,0 +1,21 @@
+
+REM Compilazione degli script 3dPrinting Egaltech                         2024.03.27
+REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
+
+REM Compilazione 32 e 64 bit
+
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\AddManData.lua                  -s LuaLibs\AddManData.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\CalcPaths.lua                   -s LuaLibs\CalcPaths.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\CalcSlices.lua                  -s LuaLibs\CalcSlices.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\CalcToolPath.lua                -s LuaLibs\CalcToolPath.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\RunCalcSolids.lua               -s LuaLibs\RunCalcSolids.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\RunGcodeGenerate.lua            -s LuaLibs\RunGcodeGenerate.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\RunMachParamFromSWCalc.lua      -s LuaLibs\RunMachParamFromSWCalc.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\RunPrepareExport.lua            -s LuaLibs\RunPrepareExport.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\RunSlicing.lua                  -s LuaLibs\RunSlicing.lua
+\EgtProg\Dll32\luac54 -o bin\CalcMachParamFromSW.lua                 -s CalcMachParamFromSW.lua
+\EgtProg\Dll32\luac54 -o bin\CalcSolids.lua                          -s CalcSolids.lua
+\EgtProg\Dll32\luac54 -o bin\GcodeGenerate.lua                       -s GcodeGenerate.lua
+\EgtProg\Dll32\luac54 -o bin\PrepareExport.lua                       -s PrepareExport.lua
+\EgtProg\Dll32\luac54 -o bin\Slicing.lua                             -s Slicing.lua
+\EgtProg\Dll32\luac54 -o bin\Version.lua                             -s Version.lua

GcodeGenerate.lua

@@ -1,4 +1,4 @@
--- GcodeGenerate.lua by Egaltech s.r.l. 2022/04/11
+-- GcodeGenerate.lua by Egaltech s.r.l. 2023/01/11
 -- Calcoli prima fase per Stampa 3d
 
 -- Intestazioni
@@ -7,8 +7,7 @@ _ENV = EgtProtectGlobal()
 EgtEnableDebug( false)
 
 -- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
+EgtAddToPackagePath( PRINT.BASEDIR .. '\\LuaLibs\\?.lua')
 
 -- Librerie
 _G.package.loaded.RunGcodeGenerate = nil

LuaLibs/AddManData.lua

@@ -10,125 +10,227 @@ require( 'EgtBase')
 EgtOutLog( ' AddManData started', 1)
 
 ---------------------------------------------------------------------
-SLICE_LAYER = "Slice"
-CONTOUR_GRP = "Crv"
-OUTER_CRV = "OuterCrv"
-PATH_GRP = "Path"
-SOLID_GRP = "Solid"
-TOOLPATH_GRP = "ToolPath"
-LAYER_SRF = "LayerSurf"
-SHELL_CRV = "Shell"
-EXTRA_SHELL_CRV = "ExtraShell"
-INFILL_CRV = "Infill"
-COASTING_CRV = "Coasting"
-WIPE_CRV = "Wipe"
-LEAD_IN_CRV = "LeadIn"
-LEAD_OUT_CRV = "LeadOut"
-FRAME_PART = "FramePart"
-START_GEOM = "Start"
-TOT_SHELL_TRIM_SURF = "TotalShellSurfForTrim"
+SLICE_LAYER = 'Slice'
+CONTOUR_GRP = 'Crv'
+OUTER_CRV = 'OuterCrv'
+PATH_GRP = 'Path'
+SOLID_GRP = 'Solid'
+TOOLPATH_GRP = 'ToolPath'
+LAYER_SRF = 'LayerSurf'
+SHELL_CRV = 'Shell'
+EXTRA_SHELL_CRV = 'ExtraShell'
+INFILL_CRV = 'Infill'
+COASTING_CRV = 'Coasting'
+WIPE_CRV = 'Wipe'
+LEAD_IN_CRV = 'LeadIn'
+LEAD_OUT_CRV = 'LeadOut'
+LINK_CRV = 'Link'
+FRAME_PART = 'FramePart'
+START_GEOM = 'Start'
+TOT_SHELL_TRIM_SURF = 'TotalShellSurfForTrim'
+SHELL_SURF = 'ShellSurf'
+COARSE_TRIM_SURF = 'CoarseTrimSurf'
+TRIM_SURF_LOOP = 'TrimSurfLoop'
+SURF_LOOP = 'SurfLoop'
+LOOP_GRP = 'LoopGrp'
+DIR_ARROW = 'Arrow'
 
 MIN_LEN = 0.1
 MIN_AREA = 0.01
 MIN_RIBS_LEN = 2
+MIN_INFILL_LEN = 2
 
 -- Parametri di lavorazione
-SEC_DEFAULT = "Default"
-KEY_PARAMS = "Params"
-KEY_CALC_SOLIDS = "CalcSolids"
-KEY_SLICING_45 = "Slicing45"
-KEY_SLICING_DIR="SlicingDir"
-KEY_SLICE_STEP = "StrandH"
-KEY_SHELLS_NBR = "StrandCount"
-KEY_STRAND = "StrandW"
-KEY_STRAND_OVERLAP = "StrandOverlap"
-KEY_OFFSET_SLICE ="Offset"
-KEY_SP_OFFSET_ON_SLICE = "StartPointOffsetOnSlice"
-KEY_PRINT_ORDER = "StrandOrder"
-KEY_PRINT_DIRECTION = "Direction"
-KEY_TYPE = "Type"
-KEY_LINK_TYPE = "LinkType"
-KEY_LINK_PARAM = "LinkParam"
-KEY_LINK_ZUP = "LinkZup"
-KEY_FLOOR_NBR = "FloorCount"
-KEY_FLOOR_TYPE = "FloorType"
-KEY_CEIL_NBR = "CeilCount"
-KEY_CEIL_TYPE = "CeilType"
-KEY_SPEED = "Speed"
-KEY_FEED = "Feed"
-KEY_EXT_FEED = "ExtFeed"
-KEY_INT_FEED = "IntFeed"
-KEY_INFILL_FEED = "InfillFeed"
-KEY_LEAD_IN_FEED = "LeadInFeed"
-KEY_LEAD_OUT_FEED = "LeadOutFeed"
-KEY_SUPPORT_FEED = "SupportFeed"
-KEY_G0_FEED = "G0Feed"
-KEY_MATERIAL = "Material"
-KEY_LEAD_IN_TYPE = "LeadIn"
-KEY_LEAD_IN_TANG_DIST = "LeadInTangDist"
-KEY_LEAD_IN_ORTHO_DIST = "LeadInOrthoDist"
-KEY_LEAD_OUT_TYPE = "LeadOut"
-KEY_LEAD_OUT_TANG_DIST= "LeadOutTangDist"
-KEY_LEAD_OUT_ORTHO_DIST= "LeadOutOrthoDist"
-KEY_OFFSET_LEAD_POINT = "OffsetLeadPoint"
-KEY_COASTING_LEN = "CoastingLen"
-KEY_COASTING_FEED = "CoastingFeed"
-KEY_WIPE_LEN = "WipeLen"
-KEY_WIPE_FEEDPU = "WipeFeedPu"
-KEY_TOOL_DIAM = "ToolDiam" 
+SEC_DEFAULT = 'Default'
+KEY_PARAMS = 'Params'
+KEY_CALC_SOLIDS = 'CalcSolids'
+KEY_SPIRAL_VASE = 'SpiralVase'
+KEY_SPIRAL_VASE_LEN = 'SpiralVaseLen'
+KEY_SPIRAL_VASE_INTERP_LEN = 'SpiralVaseInterpLen'
+KEY_SLICING_TYPE = 'SlicingType'
+KEY_SLICE_STEP = 'StrandH'
+KEY_SHELLS_NBR = 'StrandCount'
+KEY_STRAND = 'StrandW'
+KEY_INNER_STRAND = 'InnerStrandW'
+KEY_STRAND_OVERLAP = 'StrandOverlap'
+KEY_OFFSET_SLICE = 'Offset'
+KEY_SP_OFFSET_ON_SLICE = 'StartPointOffsetOnSlice'
+KEY_STRAND_ORDER = 'StrandOrder'
+KEY_PRINT_ORDER = 'PrintOrder'
+KEY_PRINT_DIRECTION = 'Direction'
+KEY_TYPE = 'Type'
+KEY_LINK_TYPE = 'LinkType'
+KEY_LINK_PARAM = 'LinkParam'
+KEY_LINK_ZUP = 'LinkZup'
+KEY_SPEED = 'Speed'
+KEY_FEED = 'Feed'
+KEY_EXT_FEED = 'ExtFeed'
+KEY_INT_FEED = 'IntFeed'
+KEY_INFILL_FEED = 'InfillFeed'
+KEY_LEAD_IN_FEED = 'LeadInFeed'
+KEY_LEAD_OUT_FEED = 'LeadOutFeed'
+KEY_SUPPORT_FEED = 'SupportFeed'
+KEY_G0_FEED = 'G0Feed'
+KEY_MATERIAL = 'Material'
+KEY_LEAD_IN_TYPE = 'LeadIn'
+KEY_LEAD_IN_TANG_DIST = 'LeadInTangDist'
+KEY_LEAD_IN_ORTHO_DIST = 'LeadInOrthoDist'
+KEY_SINGLE_LEAD_IN = 'SingleLeadIn'
+KEY_LEAD_OUT_TYPE = 'LeadOut'
+KEY_LEAD_OUT_TANG_DIST= 'LeadOutTangDist'
+KEY_LEAD_OUT_ORTHO_DIST= 'LeadOutOrthoDist'
+KEY_OFFSET_LEAD_POINT = 'OffsetLeadPoint'
+KEY_COASTING_LEN = 'CoastingLen'
+KEY_COASTING_FEED = 'CoastingFeed'
+KEY_WIPE_LEN = 'WipeLen'
+KEY_WIPE_DIR = 'WipeDir'
+KEY_WIPE_FEEDPU = 'WipeFeedPu'
+KEY_TOOL_DIAM = 'ToolDiam'
+KEY_MAX_STRANDH_FACTOR = 'MaxStrandHFactor'
+KEY_MIN_STRANDH_FACTOR = 'MinStrandHFactor'
+
+-- Solid Fill
+KEY_FLOOR_NBR = 'FloorCount'
+KEY_FLOOR_TYPE = 'FloorType'
+KEY_CEIL_NBR = 'CeilCount'
+KEY_CEIL_TYPE = 'CeilType'
+KEY_FILL_TYPE = 'FillType'
+
+-- Infill
+KEY_INFILL_STRAND = 'InfillStrandW'
+KEY_INFILL_TYPE = 'InfillType'
+KEY_INFILL_DENSITY = 'InfillDensity'
+KEY_INFILL_LINK = 'InfillLink'
+KEY_INFILL_OVERLAP = 'InfillOverlap'
+KEY_INFILL_GRID_OVERLAP = 'InfillGridOverlap'
+KEY_INFILL_DIR = 'InfillDirection'
+KEY_INFILL_OFFSET_X = 'InfillOffsetX'
+KEY_INFILL_OFFSET_Y = 'InfillOffsetY'
+KEY_INFILL_COASTING = 'InfillCoasting'
+KEY_INFILL_WIPE = 'InfillWipe'
+KEY_INFILL_WIPE_DIR = 'InfillWipeDir'
 
 -- Ribs
-KEY_RIBS_OVERLAP = "RibsOverlap"
-KEY_RIBS_SHELLS_NBR = "RibsStrandCount"
-KEY_RIBS_LINK = "RibsLink"
-KEY_RIBS_INVERT_DIR = "RibsInvertDirection"
-KEY_RIBS_INVERT_ORDER = "RibsInvertOrder"
-KEY_RIBS_LEAD_IN_INVERT = "RibsLeadInInvert"
-KEY_RIBS_LEAD_IN_LEN = "RibsLeadInLen"
-KEY_RIBS_LEAD_OUT_INVERT = "RibsLeadOutInvert"
-KEY_RIBS_LEAD_OUT_LEN = "RibsLeadOutLen"
-KEY_RIBS_LEAD_OUT_COASTING = "RibsLeadOutCoasting"
-KEY_RIBS_LEAD_OUT_WIPE = "RibsLeadOutWipe"
-KEY_RIBS_LEAD_OUT_WIPE_DIR = "RibsLeadOutWipeDir"
-KEY_RIBS_INTERS = "RibsHaveIntersections"
-KEY_SPLIT_RIB = "SplitRib"
-KEY_RIBS_TWO_STRANDS = "RibsHaveAll2Strands"
+KEY_RIBS_STRAND = 'RibsStrandW'
+KEY_RIBS_TYPE = 'RibsType'
+KEY_LIMIT_UNBDD_RIBS = 'LimitUnboundedRibsWithSolid'
+KEY_RIBS_OVERLAP = 'RibsOverlap'
+KEY_RIBS_STRAND_OVERLAP = 'RibsStrandOverlap'
+KEY_RIBS_SHELLS_NBR = 'RibsStrandCount'
+KEY_RIBS_LINK = 'RibsLink'
+KEY_RIBS_INVERT_DIR = 'RibsInvertDirection'
+KEY_RIBS_INVERT_ORDER = 'RibsInvertOrder'
+KEY_RIBS_LEAD_IN_INVERT = 'RibsLeadInInvert'
+KEY_RIBS_LEAD_IN_LEN = 'RibsLeadInLen'
+KEY_RIBS_LEAD_OUT_INVERT = 'RibsLeadOutInvert'
+KEY_RIBS_LEAD_OUT_LEN = 'RibsLeadOutLen'
+KEY_RIBS_LEAD_OUT_COASTING = 'RibsLeadOutCoasting'
+KEY_RIBS_LEAD_OUT_WIPE = 'RibsLeadOutWipe'
+KEY_RIBS_LEAD_OUT_WIPE_DIR = 'RibsLeadOutWipeDir'
+KEY_RIBS_INTERS = 'RibsHaveIntersections'
+KEY_RIBS_SPECIAL_CASE = 'RibsSpecialCase'
+KEY_SPLIT_ORDER = 'SplitOrder'
+KEY_SPLIT_AFTER_TRIM = 'RibsSplitAfterTrim'
+KEY_SPLIT_AFTER_TRIM_ORDER = 'RibsSplitAfterTrimOrder'
+KEY_SPLIT_AFTER_TRIM_TOT = 'RibsSplitAfterTrimTot'
+KEY_SPLIT_ID = 'SplitId'
+KEY_START_RIB = 'StartRib'
+KEY_ORIGINAL_RIB = 'OriginalRib'
+KEY_LOOP_RIB = 'LoopRib'
+KEY_RIBS_USER_LINK = 'RibWithUserLink'
+KEY_RIBS_USER_LINK_SAME_SIDE = 'RibUserLinkOnSameSide'
+KEY_RIBS_USER_LINK_CCW = 'RibUserLinkCCW'
+KEY_RIBS_USER_LINK_ORDER = 'RibUserLinkOrder'
+KEY_RIBS_USER_LINK_TOT = 'RibsUserLinkParts'
+KEY_RIBS_INVERT_STRAND_ORDER = 'RibsInvertStrandOrder'
+KEY_RIBS_MERGE_WITH_SHELLS = 'RibsMergeWithShell'
+KEY_INVERT_RIBS_MERGED_SHELL_LINK = 'InvertRibsMergedShellMainLink'
+KEY_RIBS_LEAD_FILLET = 'RibsLeadFillet'
+KEY_RIBS_LINK_FILLET = 'RibsLinkFillet'
 
 -- Regioni con diverso numero di passate
-KEY_SHELL_NBR_DIFF = "ShellNbrDifference"
-KEY_SHELL_NBR_COASTING = "ShellNbrCoasting"
-KEY_SHELL_NBR_WIPE = "ShellNbrWipe"
-KEY_SHELL_NBR_WIPE_DIR = "ShellNbrWipeDir"
+KEY_SHELL_NBR_DIFF = 'ShellNbrDifference'
+KEY_SHELL_NBR_COASTING = 'ShellNbrCoasting'
+KEY_SHELL_NBR_WIPE = 'ShellNbrWipe'
+KEY_SHELL_NBR_WIPE_DIR = 'ShellNbrWipeDir'
+KEY_EXTRA_SHELL_COASTING = 'ExtraShellCoasting'
+KEY_EXTRA_SHELL_WIPE = 'ExtraShellWipe'
+KEY_EXTRA_SHELL_WIPE_DIR = 'ExtraShellWipeDir'
 
 -- Solidi ausiliari
-KEY_AUX_SOLIDS_INFILL = "AuxSolidsInfill"
-KEY_AUX_SOLIDS_PRINT_ORDER = "AuxSolidsStrandOrder"
-KEY_AUX_SOLIDS_OVERLAP = "AuxSolidsOverlap"
-KEY_AUX_SOLIDS_LINK_TYPE = "AuxSolidsLinkType"
-KEY_AUX_SOLIDS_SP_OFFSET = "AuxSolidsStartPointOffsetOnSlice"
-KEY_AUX_SOLIDS_LINK_PARAM = "AuxSolidsLinkParam"
-KEY_AUX_SOLIDS_COASTING_LEN = "AuxSolidsCoastingLen"
-KEY_AUX_SOLIDS_WIPE_LEN = "AuxSolidsWipeLen"
-KEY_AUX_SOLIDS_WIPE_DIR = "AuxSolidsWipeDir"
+KEY_AUX_SOLIDS_STRAND = 'AuxSolidsStrandW'
+KEY_AUX_SOLIDS_SHELLS_NBR = 'AuxSolidsStrandCount'
+KEY_AUX_SOLIDS_OVERLAP = 'AuxSolidsOverlap'
+KEY_AUX_SOLIDS_INFILL = 'AuxSolidsInfill'
+KEY_AUX_SOLIDS_PRINT_ORDER = 'AuxSolidsStrandOrder'
+KEY_AUX_SOLIDS_LINK_TYPE = 'AuxSolidsLinkType'
+KEY_AUX_SOLIDS_LINK_PARAM = 'AuxSolidsLinkParam'
+KEY_AUX_SOLIDS_SP_OFFSET = 'AuxSolidsStartPointOffsetOnSlice'
+KEY_AUX_SOLIDS_LP_OFFSET = 'AuxSolidsOffsetLeadPoint'
+KEY_AUX_SOLIDS_INFILL_LINK = 'AuxSolidsInfillLink'
+KEY_AUX_SOLIDS_DENSITY = 'AuxSolidsDensity'
+KEY_AUX_SOLIDS_DIR = 'AuxSolidsDirection'
+KEY_AUX_SOLIDS_OFFSET_X = 'AuxSolidsOffsetX'
+KEY_AUX_SOLIDS_OFFSET_Y = 'AuxSolidsOffsetY'
+KEY_AUX_SOLIDS_GRID_OVERLAP = 'AuxSolidsGridOverlap'
+KEY_AUX_SOLIDS_COASTING_LEN = 'AuxSolidsCoastingLen'
+KEY_AUX_SOLIDS_WIPE_LEN = 'AuxSolidsWipeLen'
+KEY_AUX_SOLIDS_WIPE_DIR = 'AuxSolidsWipeDir'
 
 -- Parametri di macchina
-SEC_3DPRINTING = "3dPrinting"
-KEY_COEFF_X = "CoeffX"
-KEY_COEFF_Y = "CoeffY"
-KEY_SPEED_MIN = "SpeedMin"
-KEY_SPEED_MAX = "SpeedMax"
+SEC_3DPRINTING = '3dPrinting'
+KEY_HORIZ_EXTR = 'HorizExtrusion'
+KEY_COEFF_X = 'CoeffX'
+KEY_COEFF_Y = 'CoeffY'
+KEY_SPEED_MIN = 'SpeedMin'
+KEY_SPEED_MAX = 'SpeedMax'
+KEY_FEED_MAX = 'FeedMax'
+KEY_LINEAR_APPROX = 'LinearApprox'
+KEY_LINEAR_TOL = 'LinearTol'
 
 -- Altre chiavi
-KEY_SLICE_NBR = "SliceNbr"
-KEY_SLICE_Z = "SliceZ"
-KEY_SLICE_DELTAZ = "DeltaZ"
-KEY_SLICE_REAL_Z = "SliceRealZ"
-KEY_ZIG_ZAG_INFILL = "ZigZagInfill"
-KEY_ZIG_ZAG_DIR = "ZigZagDir"
-KEY_INVERTED_CRV = "InvertedCrv"
-KEY_CLOSED_CRV = "ClosedCrv"
-KEY_ASSOCIATED_SURF = "AssociatedSurf"
-KEY_HAS_SOLIDS = "Solids"
+KEY_MAX_H = 'SlicingHeight'
+KEY_MAX_SLICES_NBR = 'MaxSlicesNumber'
+KEY_SLICE_NBR = 'SliceNbr'
+KEY_SLICE_DIR = 'SliceDir'
+KEY_SLICE_POS = 'SlicePos'
+KEY_SLICE_DELTAZ = 'DeltaZ'
+KEY_ZIG_ZAG_INFILL = 'ZigZagInfill'
+KEY_ZIG_ZAG_DIR = 'ZigZagDir'
+KEY_INVERTED_CRV = 'InvertedCrv'
+KEY_CLOSED_CRV = 'ClosedCrv'
+KEY_ASSOCIATED_SURF = 'AssociatedSurf'
+KEY_ASSOCIATED_CRVS = 'AssociatedCrvs'
+KEY_ORIGINAL_SURF = 'OriginalSurf'
+KEY_HAS_SOLIDS = 'Solids'
+KEY_BOX_MIN_Z = 'PartBoxMinZ'
+KEY_ORIGINAL_START_POINT = 'OriginalStartPoint'
+KEY_FIRST_SOLID_LAY = 'FirstSolidLay'
+KEY_LAST_SOLID_LAY = 'LastSolidLay'
+KEY_ASSOCIATED_TP_CRV = 'AssociatedToolPathCrv'
+KEY_ASSOCIATED_P_CRV = 'AssociatedPathCrv'
+KEY_INTERNAL_SRF_LOOP = 'InternalSrfLoop'
+KEY_PREV_CRV = 'PrevCrv'
+KEY_NEXT_CRVS = 'NextCrvs'
+KEY_CRV_STRAND = 'CurveStrand'
+KEY_LAYER_CNT = 'LayerCnt'
+KEY_CRV_OFFSET = 'CurveOffset'
+KEY_ORIG_REF = 'Orig'
+KEY_WIPE_ON_CRV = 'WipeOnCrv'
+KEY_FEED_COEFF = 'FeedCoeff'
+KEY_ENTITY_NAME = 'EntityName'
+KEY_MULTIPLANAR_MAX_H = 'MultiplanarMaxH'
+KEY_MULTIPLANAR_MIN_H = 'MultiplanarMinH'
+
+SLICING_TYPE = {
+   VERTICAL = 1,
+   DEG45_X = 2,
+   DEG45_Y = 3,
+   HORIZONTAL = 4,
+   MULTIPLANAR = 5,
+   MULTIPLANAR_DEG45 = 6,
+   MULTIPLANAR_HOR = 7,
+}
 
 TYPE = {
    OUTER_SHELL = 1,
@@ -143,9 +245,20 @@ TYPE = {
    AUX_SOLID = 10,
 }
 
+PRINT_ELEMENT = {
+   SHELL = 1,
+   EXTRA_SHELL = 2,
+   INFILL = 3,
+   AUX_SOLID = 4,
+   RIB_UNBOUNDED = 5,
+   RIB_EXTERNAL = 6,
+   RIB_INTERNAL = 7,
+   RIB_SUPPORT = 8,
+}
+
 PRINT_ORDER = {
-   EXT_INT_INF = 1,
-   INF_INT_EXT = 2,
+   EXT_INT = 1,
+   INT_EXT = 2,
 }
 
 PRINT_DIRECTION = {
@@ -156,7 +269,7 @@ PRINT_DIRECTION = {
 LINK_TYPE = {
    NONE = 1,
    LINEAR = 2,
-   BIARC = 3,   
+   BIARC = 3,
 }
 
 LEAD_TYPE = {
@@ -165,26 +278,46 @@ LEAD_TYPE = {
    ARC = 3,
 }
 
-INFILL_TYPE = {
-   NONE = 1,
-   OFFSET = 2,
-   ZIGZAG = 3,
+FILL_CATEGORY = {
+   NONE = 0,
+   SOLID_FILL = 16,
+   INFILL = 32,
+}
+
+FILL_TYPE = {
+   NONE = 0,
+   OFFSET = 16,
+   ZIGZAG = 17,
+   LINES = 32,
+   GRID = 33,
+   ZIG_ZAG_GRID = 34,
+   HONEYCOMB = 35,
+   HONEYCOMB_GRID = 36,
+}
+
+RIB_TYPE = {
+   INTERNAL = 1,
+   EXTERNAL = 2,
+   UNBOUNDED = 3,
+   SUPPORT = 4,
 }
 
 ---------------------------------------------------------------------
-TABLE = "Table"
-PART = "Part"
-ORIGINAL_SOLID = "OriginalSolid"
-PRINT_SOLID = "PrintSolid"
-LAY_MACH_START = "MachStart"
-LAY_RIBS = "Ribs"
-LAY_AUX_SOLIDS = "AuxSolids"
-LAY_SHELL_NBR = "ShellNumber"
-LAY_AUX = "Aux"
-LAY_FRAME = "Frame"
+TABLE = 'Table'
+PART = 'Part'
+ORIGINAL_SOLID = 'OriginalSolid'
+PRINT_SOLID = 'PrintSolid'
+LAY_MACH_START = 'MachStart'
+LAY_RIBS = 'Ribs'
+LAY_AUX_SOLIDS = 'AuxSolids'
+LAY_SHELL_NBR = 'ShellNumber'
+LAY_AUX = 'Aux'
+SPINE_CURVE = 'Spine'
+LAY_FRAME = 'Frame'
 VIEWPARAMS = 'ViewParams'
 IMPORTED_SOLID = 'ImportedSolid'
 RESULT_READ_PROG = 'ResultReadProg'
+LAY_EXPORT = 'ExportLayer'
 
 KEY_PART_ON_TABLE = 'PartOnTable'
 KEY_RESULT = 'Result'
@@ -198,6 +331,7 @@ KEY_SLICE_ADV_MODE = 'SliceAdvMode'
 KEY_SLICE_ADV_PERC = 'SliceAdvPerc'
 
 KEY_MOVED_PART ='MovedPart'
+KEY_MOVED_PART2 ='MovedPart2'
 
 RESULT = {
    OK = 1,
@@ -230,31 +364,39 @@ SLICE_ADV_TYPE = {
 }
 
 ---------------------------------------------------------------------
-RIBS_GRP = "Ribs"
-RIBS_CRV = "Rib"
+RIBS_GRP = 'Ribs'
+RIBS_CRV = 'Rib'
+RIBS_LOOP_GRP = 'RibsLoops'
 
-SHELL_NBR_GRP = "ShellNbrRegions"
-SHELL_NBR_CRV = "ShellNbrRegion"
-SHELL_NBR_SURF = "ShellNbrSurf"
+SHELL_NBR_GRP = 'ShellNbrRegions'
+SHELL_NBR_CRV = 'ShellNbrRegion'
+SHELL_NBR_SURF = 'ShellNbrSurf'
 
-AUX_SOLIDS_GRP = "AuxSolids"
-AUX_SOLIDS_CRV = "AuxSolid"
-AUX_SOLIDS_SRF = "SrfAuxSolid"
+AUX_SOLIDS_GRP = 'AuxSolids'
+AUX_SOLIDS_INFILL_GRP = 'InfillAuxSolids'
+AUX_SOLIDS_CRV = 'AuxSolid'
+AUX_SOLIDS_INFILL_CRV = 'InfillAuxSolid'
+AUX_SOLIDS_SRF = 'SrfAuxSolid'
+
+INFILL_GRP = 'Infill'
+INFILL_CRV = 'InfillCrv'
 
 ---------------------------------------------------------------------
 -- parametri calcolo tempi, F ed S
-LAY_TFSCALC = "TFSCalc"
-KEY_TMIN = "TMin"
-KEY_TTRG = "TTrg"
-KEY_TMAX = "TMax"
-KEY_FMIN = "FMin"
-KEY_FTRG = "FTrg"
-KEY_FMAX = "FMax"
-KEY_TCUR = "TCur"
-KEY_FCUR = "FCur"
-KEY_LENGTH = "Length"
-KEY_SLICEID = "SliceId"
-KEY_MASS = "PrintMass"
+LAY_TFSCALC = 'TFSCalc'
+KEY_TMIN = 'TMin'
+KEY_TTRG = 'TTrg'
+KEY_TMAX = 'TMax'
+KEY_FMIN = 'FMin'
+KEY_FTRG = 'FTrg'
+KEY_FMAX = 'FMax'
+KEY_TCUR = 'TCur'
+KEY_FCUR = 'FCur'
+KEY_LENGTH = 'Length'
+KEY_SLICEID = 'SliceId'
+KEY_MASS = 'PrintMass'
+KEY_MF = 'MF'
+KEY_TOTAREA = 'TotArea'
 
 ---------------------------------------------------------------------
 return AddManData

LuaLibs/CSVManager.lua

@@ -1,75 +0,0 @@
--- CalcPaths.lua by Egaltech s.r.l. 2022/03/30
--- Calcolo percorsi di lavoro per Stampa 3d
-
--- Tabella per definizione modulo
-local CSVManager = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' CSVManager started', 1)
-
--- Dati
-local AMD = require( 'AddManData')
-
----------------------------------------------------------------------
-function toCSV (t)
-   local s = ""
-   for _,p in pairs(t) do
-      s = s .. "," .. escapeCSV(p)
-   end
-   return string.sub(s, 2)      -- remove first comma
-end
-
----------------------------------------------------------------------
-function escapeCSV (s)
-   if string.find(s, '[,"]') then
-      ns = '"' .. string.gsub(s, '"', '""') .. '"'
-   end
-   return s
-end
-
----------------------------------------------------------------------
-local function fromCSV(s)
-   s = s .. ';'        -- ending comma
-   local t = {}        -- table to collect fields
-   local fieldstart = 1
-   repeat
-      -- next field is quoted? (start with `"'?)
-      if string.find(s, '^"', fieldstart) then
-         local a, c
-         local i  = fieldstart
-         repeat
-         -- find closing quote
-         a, i, c = string.find(s, '"("?)', i+1)
-         until c ~= '"'    -- quote not followed by quote?
-         if not i then error('unmatched "') end
-         local f = string.sub(s, fieldstart+1, i-1)
-         table.insert(t, (string.gsub(f, '""', '"')))
-         fieldstart = string.find(s, ';', i) + 1
-      else                -- unquoted; find next comma
-         local nexti = string.find(s, ';', fieldstart)
-         table.insert(t, string.sub(s, fieldstart, nexti-1))
-         fieldstart = nexti + 1
-      end
-   until fieldstart > string.len(s)
-   return t
-end
-
----------------------------------------------------------------------
-function read_file( path)
-    local file = io.open( path, "r") -- r read mode and b binary mode
-    if not file then return nil end
-    local CSVTable = {}
-
-    for line in io.lines( path) do
-       CSVTable[#CSVTable + 1] = fromCSV( line)
-    end
-
-    file:close()
-
-    return CSVTable
-end
-
----------------------------------------------------------------------
-return CSVManager

LuaLibs/RunGcodeGenerate.lua

@@ -1,4 +1,4 @@
--- RunGcodeGenerate.lua by Egaltech s.r.l. 2022/06/14
+-- RunGcodeGenerate.lua by Egaltech s.r.l. 2023/04/11
 -- Calcoli prima fase per Stampa 3d
 
 -- Tabella per definizione modulo
@@ -24,7 +24,7 @@ end
 function RunGcodeGenerate.Exec()
    
    -- aggiorno interfaccia
-   EgtProcessEvents( 501, 0)
+   EgtProcessEvents( 601, 0)
 
    -- Recupero il pezzo (per ora primo e unico)
    local nPartIndex = 1
@@ -33,10 +33,11 @@ function RunGcodeGenerate.Exec()
       EgtOutBox( 'Error missing part', 'GcodeGenerate')
       return 
    end
+   local nSlicingType = EgtGetInfo( nPartId, KEY_SLICING_TYPE, 'i')
 
    -- Recupero i layer da processare
    local vLayIds = EgtGetNameInGroup( nPartId, SLICE_LAYER.."*") 
-   if not vLayIds then
+   if not vLayIds or #vLayIds == 0 then
    EgtOutBox( 'Error missing slices', 'GcodeGenerate')
       return 
    end
@@ -45,7 +46,7 @@ function RunGcodeGenerate.Exec()
    local LayerParams = GetLayerParamsForGcodeGenerate( nPartId)
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 505, 0)
+   EgtProcessEvents( 605, 0)
 
    -- Ciclo sui layer
    local vEntId = {}
@@ -75,7 +76,7 @@ function RunGcodeGenerate.Exec()
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 510, 0)
+   EgtProcessEvents( 610, 0)
 
    -- Imposto gruppo di lavoro
    EgtSetCurrMachGroup()
@@ -89,15 +90,22 @@ function RunGcodeGenerate.Exec()
    -- Rimuovo eventuali precedenti lavorazioni
    EgtRemoveAllOperations()
 
+   -- Determino lavorazione di libreria
+   local sExtrName = 'Extrusion'
+   if nSlicingType == SLICING_TYPE.HORIZONTAL or nSlicingType == SLICING_TYPE.MULTIPLANAR_HOR then
+      local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
+      sExtrName = EgtGetStringFromIni( SEC_3DPRINTING, KEY_HORIZ_EXTR, sExtrName, sMachIni)
+   end
+
    -- Aggiungo la lavorazione
-   local nMchId = EgtAddMachining( 'Extrusion 1', 'Extrusion')
+   local nMchId = EgtAddMachining( 'Extrusion 1', sExtrName)
    if not nMchId then
       EgtOutBox( 'Error adding Extrusion', 'GcodeGenerate')
       return
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 520, 0)
+   EgtProcessEvents( 620, 0)
 
    EgtSetMachiningGeometry( vEntId)
 
@@ -106,36 +114,51 @@ function RunGcodeGenerate.Exec()
 
    if not EgtApplyMachining() then
       local nErr, sErr = EgtGetLastMachMgrError()
-      local sMsg = 'Error applying Extrusion'
+      local sMsg = ''
       if nErr == 2803 and string.find( sErr, '(3)', 1, true) then
-         sMsg = sMsg .. ' (missing Feed & Speed)'
+         sMsg = ' Missing Feed & Speed.'
+      elseif nErr == 2804 then
+         sMsg = ' Axes Values not calculable.'
+      elseif nErr == 2805 then
+         sMsg = ' Outstroke Axes (see Log File).'
+      else
+         sMsg = ' See Log File.'
       end
       EgtResetCurrMachGroup()
-      EgtOutBox( sMsg, 'GcodeGenerate')
+      if PRINT and PRINT.PROGRAM == 1 then
+         PRINT.ERR = 1
+         PRINT.MSG = sMsg
+      else
+         EgtOutBox( 'Error in Machining :'..sMsg, 'GcodeGenerate')
+      end
       return
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 550, 0)
+   EgtProcessEvents( 650, 0)
 
    -- Salvo il progetto
    local sFilePath = EgtGetCurrFilePath()
-   sFilePath = EgtChangePathExtension( sFilePath, 'nge')
+   sFilePath = EgtChangePathExtension( sFilePath, 'icrs')
    EgtSetCurrFilePath( sFilePath)
    EgtSaveFile()
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 580, 0)
+   EgtProcessEvents( 680, 0)
 
    -- Genero il programma CN
-   local sInfo = 'EgtCAM5 ver.' .. EgtGetExeVersion() .. ' - ' .. sPath
-   local bGenOk = EgtGenerate( '', sInfo)
+   local sInfo = 'Icarus ver.' .. EgtGetExeVersion() .. ' - ' .. sPath
+   local sISOFilePath = ''
+   if PRINT and PRINT.PROGRAM == 1 and PRINT.ISOFILEPATH then
+      sISOFilePath = PRINT.ISOFILEPATH
+   end
+   local bGenOk = EgtGenerate( sISOFilePath, sInfo)
    if bGenOk then
       EgtEstimate('')
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 590, 0)
+   EgtProcessEvents( 690, 0)
 
    EgtResetCurrMachGroup()
 
@@ -143,7 +166,7 @@ function RunGcodeGenerate.Exec()
       if bGenOk then
          PRINT.ERR = 0
       else
-         PRINT.ERR = 999
+         PRINT.ERR = 2
       end
    else
       if bGenOk then
@@ -154,7 +177,7 @@ function RunGcodeGenerate.Exec()
    end
    
    -- aggiorno interfaccia
-   EgtProcessEvents( 600, 0)
+   EgtProcessEvents( 700, 0)
 
 end
 

LuaLibs/RunMachParamFromSWCalc.lua

@@ -1,4 +1,4 @@
--- RunMachParamFromSWCalc.lua by Egaltech s.r.l. 2022/09/15
+-- RunMachParamFromSWCalc.lua by Egaltech s.r.l. 2024/01/30
 -- Calcolo dei parametri di stampa
 
 -- Tabella per definizione modulo
@@ -12,9 +12,12 @@ EgtOutLog( ' RunMachParamFromSWCalc started', 1)
 -- Costanti generali
 local AMD = require( 'AddManData')
 
+--local MACHINING = {}
+--MACHINING.K = 103
 --local MATERIAL = {}
 --MATERIAL.Name = 'AKROMID® B3 ICF 40'
---MATERIAL.K = 0.1
+--MATERIAL.K_EXTRUSION = 110
+--MATERIAL.K_LAYERTIME = 105
 --MATERIAL.C1 = 0.8742
 --MATERIAL.C2 = 0.8964
 --MATERIAL.Density = 1.31
@@ -31,6 +34,14 @@ local AMD = require( 'AddManData')
 ---------------------------------------------------------------------
 function RunMachParamFromSWCalc.Exec()
 
+   -- valori default per nuovi parametri
+   MATERIAL.K_LAYERTIME = MATERIAL.K_LAYERTIME or 100
+   MATERIAL.K_EXTRUSION = MATERIAL.K_EXTRUSION or 100
+   if not MACHINING then
+      MACHINING = {}
+      MACHINING.K = 100
+   end
+
    -- layer dei risultati
    local nResultLayerId = EgtGetFirstNameInGroup( GDB_ID.ROOT, LAY_TFSCALC)
    if not nResultLayerId then
@@ -42,6 +53,8 @@ function RunMachParamFromSWCalc.Exec()
    local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
    local dSMin = tonumber( EgtGetStringFromIni( SEC_3DPRINTING, KEY_SPEED_MIN, 0, sMachIni))
    local dSMax = tonumber( EgtGetStringFromIni( SEC_3DPRINTING, KEY_SPEED_MAX, 50000, sMachIni))
+   -- recupero Feed massima dalla macchina
+   local dFLimit = tonumber( EgtGetStringFromIni( SEC_3DPRINTING, KEY_FEED_MAX, 10000, sMachIni))
    -- massa materiale utilizzato
    local dPrintMass = 0
    -- massimo indice di layer calcolato
@@ -51,50 +64,77 @@ function RunMachParamFromSWCalc.Exec()
    while nPartId do
       if not EgtGetInfo( nPartId, KEY_PART_ON_TABLE, 'b') then
          nPartId = EgtGetNextPart( nPartId)
-         goto continue 
+         goto continue
       end
       -- recupero i parametri di lavorazione del pezzo
       local dSliceStep = EgtGetInfo( nPartId, KEY_SLICE_STEP, 'd')
       local dStrand = EgtGetInfo( nPartId, KEY_STRAND, 'd')
       local dStrandCount = EgtGetInfo( nPartId, KEY_SHELLS_NBR, 'd')
       -- recupero numero di strati per progress
-      local nLastLayerId = EgtGetLastNameInGroup( nPartId, SLICE_LAYER .. '*')
-      local nLayerQty = EgtGetInfo( nLastLayerId, KEY_SLICE_NBR, 'i')
+      local nLastLayerId = EgtGetLastNameInGroup( nPartId, SLICE_LAYER .. '*') or GDB_ID.NULL
+      local nLayerQty = EgtGetInfo( nLastLayerId, KEY_SLICE_NBR, 'i') or 0
       -- ciclo sui layer
       local nLayerIndex = 1
-      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
+      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
       while nLayerId do
          -- rimuovo eventuale info precedente del tempo di attesa
          EgtRemoveInfo( nLayerId, KEY_WAITING_TIME)
+         -- divido curve in base alla larghezza strand
+         local LengthCrvList = {}
          -- calcolo lunghezza totale del layer
          local dTotLayerLength = 0
+         local dTotLayerLengthForMass = 0
          local dTotLayerArea = 0
          local nCrvId = EgtGetFirstNameInGroup( nLayerId, CONTOUR_GRP .. '*')
          while nCrvId do
             local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
-            -- sommo lunghezze percorsi
+            -- recupero lunghezze percorsi
             local dTotCrvLength = 0
-            nShellId = EgtGetFirstInGroup( nToolPathId)
+            local dTotCrvLengthForMass = 0
+            local nShellId = EgtGetFirstInGroup( nToolPathId)
             while nShellId do
-               dTotCrvLength = dTotCrvLength + EgtCurveLength( nShellId)
+               local dShellWidth = EgtGetInfo( nShellId, KEY_CRV_STRAND, "d")
+               local dShellLength = EgtCurveLength( nShellId)
+               local bFound = false
+               for LengthIndex = 1, #LengthCrvList do
+                  if LengthCrvList[LengthIndex].Width == dShellWidth then
+                     table.insert( LengthCrvList[LengthIndex].IdList, nShellId) 
+                     LengthCrvList[LengthIndex].Length = LengthCrvList[LengthIndex].Length + dShellLength
+                     bFound = true
+                     break
+                  end
+               end
+               if not bFound then
+                  table.insert( LengthCrvList, { Width = dShellWidth, IdList = { nShellId}, Length = dShellLength})
+               end
+               -- sommo per lunghezza totale
+               dTotCrvLength = dTotCrvLength + dShellLength
+               if EgtGetName( nShellId) ~= WIPE_CRV then
+                  dTotCrvLengthForMass = dTotCrvLengthForMass + dShellLength
+               end
                nShellId = EgtGetNext( nShellId)
             end
             dTotLayerLength = dTotLayerLength + dTotCrvLength
+            dTotLayerLengthForMass = dTotLayerLengthForMass + dTotCrvLengthForMass
             -- recupero area
             local nOuterCrvId = EgtGetFirstNameInGroup( nCrvId, OUTER_CRV)
-            local _, _, dTotCrvArea = EgtCurveArea( nOuterCrvId)
-            local dOuterLength = EgtCurveLength( nOuterCrvId)
-            -- recupero offset del part per aggiungerlo all'area interna
-            local dOffset = EgtGetInfo( nPartId, KEY_OFFSET_SLICE, 'd')
-            dTotCrvArea = dTotCrvArea + ( dOffset * dOuterLength)
-            dTotLayerArea = dTotLayerArea + dTotCrvArea
+            if nOuterCrvId and dStrandCount > 0.5 then
+               local _, _, dTotCrvArea = EgtCurveArea( nOuterCrvId)
+               local dOuterLength = EgtCurveLength( nOuterCrvId)
+               -- recupero offset del part per aggiungerlo all'area interna
+               local dOffset = EgtGetInfo( nPartId, KEY_OFFSET_SLICE, 'd')
+               dTotCrvArea = dTotCrvArea + ( dOffset * dOuterLength)
+               dTotLayerArea = dTotLayerArea + dTotCrvArea
+            end
             nCrvId = EgtGetNextName( nCrvId, CONTOUR_GRP .. '*')
          end
          -- recupero feed del layer
          local dLayerFeed = 0
+         local dLayerWait = 0
          local nLayerResultId = EgtGetFirstNameInGroup( nResultLayerId, nLayerIndex)
          if nLayerResultId then
             dLayerFeed = EgtGetInfo( nLayerResultId, KEY_FCUR, 'd') or 0
+            dLayerWait = EgtGetInfo( nLayerResultId, KEY_WAITING_TIME, 'd') or 0
          else
             nLayerResultId = EgtGroup( nResultLayerId)
             EgtSetName( nLayerResultId, nLayerIndex)
@@ -111,25 +151,50 @@ function RunMachParamFromSWCalc.Exec()
             table.insert( nOrigLayers, nLayerId)
          end
          EgtSetInfo( nLayerResultId, KEY_SLICEID, nOrigLayers)
+         -- calcolo strand medio (media ponderata sulla lunghezza)
+         local dStrandMean = 0
+         for nMeanIndex = 1, #LengthCrvList do
+            dStrandMean = dStrandMean + LengthCrvList[nMeanIndex].Width * LengthCrvList[nMeanIndex].Length
+         end
+         dStrandMean = dStrandMean / EgtIf( dTotLayerLength > 0.1, dTotLayerLength, 1)
          -- calcolo costante MF
-         local dMF = dTotLayerLength * dStrand / dTotLayerArea * 100
+         local dMF = 1
+         local dSC = 1
+         if dTotLayerArea > 1 then
+            dMF = dTotLayerLength * dStrandMean / dTotLayerArea * 100
+            dSC = dStrandCount
+         else
+            dMF = 100
+            local nRibsLayId = EgtGetFirstNameInGroup( nLayerId, RIBS_GRP) or GDB_ID.NULL
+            local nCrvId = EgtGetFirstInGroup( nRibsLayId)
+            while nCrvId do
+               if EgtGetInfo( nCrvId, KEY_RIBS_TYPE, 'i') == RIB_TYPE.UNBOUNDED then
+                  dSC = ( EgtGetInfo( nCrvId, KEY_RIBS_SHELLS_NBR, 'd') or dSC) / 2
+                  break
+               end
+               nCrvId = EgtGetNext( nCrvId)
+            end
+         end
          -- calcolo tempi stimati del layer
-         local dTMin = ( dMF + MATERIAL.AMin) / MATERIAL.BMin * pow( 0.25 * dStrand, MATERIAL.KW) * pow( dSliceStep, MATERIAL.KZ) * pow( dStrandCount, MATERIAL.KN)
-         local dTTrg = ( dMF + MATERIAL.ATrg) / MATERIAL.BTrg * pow( 0.25 * dStrand, MATERIAL.KW) * pow( dSliceStep, MATERIAL.KZ) * pow( dStrandCount, MATERIAL.KN)
-         local dTMax = ( dMF + MATERIAL.AMax) / MATERIAL.BMax * pow( 0.25 * dStrand, MATERIAL.KW) * pow( dSliceStep, MATERIAL.KZ) * pow( dStrandCount, MATERIAL.KN)
-         local dFMin = dTotLayerLength / dTMax * 60
-         local dFTrg = dTotLayerLength / dTTrg * 60
-         local dFMax = dTotLayerLength / dTMin * 60
+         local dTMin = ( MATERIAL.K_LAYERTIME / 100.0) * ( dMF + MATERIAL.AMin) / MATERIAL.BMin * pow( 0.25 * dStrandMean, MATERIAL.KW) * pow( dSliceStep, MATERIAL.KZ) * pow( dSC, MATERIAL.KN)
+         local dTTrg = ( MATERIAL.K_LAYERTIME / 100.0) * ( dMF + MATERIAL.ATrg) / MATERIAL.BTrg * pow( 0.25 * dStrandMean, MATERIAL.KW) * pow( dSliceStep, MATERIAL.KZ) * pow( dSC, MATERIAL.KN)
+         local dTMax = ( MATERIAL.K_LAYERTIME / 100.0) * ( dMF + MATERIAL.AMax) / MATERIAL.BMax * pow( 0.25 * dStrandMean, MATERIAL.KW) * pow( dSliceStep, MATERIAL.KZ) * pow( dSC, MATERIAL.KN)
+         local dFMin = dTotLayerLength / EgtIf( dTMax > 0.1, dTMax, 1) * 60
+         local dFTrg = dTotLayerLength / EgtIf( dTTrg > 0.1, dTTrg, 1) * 60
+         local dFMax = dTotLayerLength / EgtIf( dTMin > 0.1, dTMin, 1) * 60
          local dLayerTime = dTTrg
          if dLayerFeed == 0 then
             dLayerFeed = dFTrg
          else
             dLayerTime = dTotLayerLength / dLayerFeed * 60
          end
+         dLayerWait = floor( dTMin + 0.5) - floor( dLayerTime + 0.5)
+         -- sezione dello strand
+         local dSect = max( ( dStrandMean - dSliceStep) * dSliceStep, 0) + pi * dSliceStep * dSliceStep / 4
          -- calcolo la portata
-         local Vf = dLayerFeed * ( ( dStrand - dSliceStep) * dSliceStep + pi * pow( dSliceStep / 2, 2)) / 1000
+         local Vf = dLayerFeed * dSect / 1000
          -- calcolo speed
-         local dSpeed = ( 1 + MATERIAL.K) * pow( Vf / MATERIAL.C1, 1 / MATERIAL.C2)
+         local dSpeed = ( MATERIAL.K_EXTRUSION / 100.0) * ( MACHINING.K / 100.0) * pow( Vf / MATERIAL.C1, 1 / MATERIAL.C2)
          -- verifico se speed esce da minimo e massimo della macchina
          local bSpeedOk = true
          if dSpeed < dSMin then
@@ -141,15 +206,42 @@ function RunMachParamFromSWCalc.Exec()
             dSpeed = dSMax
          end
          if not bSpeedOk then
-            dLayerFeed = ( MATERIAL.C1 * pow( ( dSpeed / ( 1 + MATERIAL.K)), MATERIAL.C2)) * 1000 / ( ( dStrand - dSliceStep) * dSliceStep + pi * pow( dSliceStep / 2, 2))
-            dLayerTime = dTotLayerLength / dLayerFeed * 60
+            if dTotLayerLength > 0.1 then
+               dLayerFeed = ( MATERIAL.C1 * pow( ( dSpeed / (( MATERIAL.K_EXTRUSION / 100.0) * ( MACHINING.K / 100.0))), MATERIAL.C2)) * 1000 / dSect
+               dLayerTime = dTotLayerLength / dLayerFeed * 60
+            end
+            dLayerWait = floor( dTMin + 0.5) - floor( dLayerTime + 0.5)
          end
          -- calcolo massa dello strato
-         local dLayerMass = dTotLayerLength * dSliceStep * dStrand * MATERIAL.Density * 1e-6
+         local dLayerMass = dTotLayerLengthForMass * dSliceStep * dStrandMean * MATERIAL.Density * 1e-6
          if dLayerMass and dLayerMass > 0 then
             dPrintMass = dPrintMass + dLayerMass
          end
-         -- scrivo info feed e speed in group toolpath
+         -- scrivo info feed su tutti i tratti
+         local dFeedMax = 0
+         for nWidthIndex = 1, #LengthCrvList do
+            local CurrWidth = LengthCrvList[nWidthIndex]
+            local CurrFeed = EgtIf( CurrWidth.Width > 0, dLayerFeed * dStrandMean / CurrWidth.Width, dLayerFeed) 
+            for nCurveIdIndex = 1, #CurrWidth.IdList do
+               local dNewFeed = CurrFeed
+               -- verifico se coefficiente moltiplicativo per feed
+               local dCoeff = EgtGetInfo( CurrWidth.IdList[nCurveIdIndex], KEY_FEED_COEFF, 'd')
+               if dCoeff then
+                  dNewFeed = dCoeff * CurrFeed
+                  if dNewFeed > dFLimit then
+                     local dNewSpeed = dSpeed * dFLimit / dNewFeed
+                     dNewSpeed = EgtClamp( dNewSpeed, dSMin, dSMax)
+                     dNewFeed = dFLimit
+                     EgtSetInfo( CurrWidth.IdList[nCurveIdIndex], KEY_SPEED, dNewSpeed)
+                  end
+               end
+               EgtSetInfo( CurrWidth.IdList[nCurveIdIndex], KEY_FEED, dNewFeed)
+               if dNewFeed > dFeedMax then
+                  dFeedMax = dNewFeed
+               end
+            end
+         end
+         -- scrivo info speed in group toolpath
          nCrvId = EgtGetFirstNameInGroup( nLayerId, CONTOUR_GRP .. '*')
          while nCrvId do
             local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP) or GDB_ID.NULL
@@ -157,24 +249,34 @@ function RunMachParamFromSWCalc.Exec()
             EgtSetInfo( nToolPathId, KEY_SPEED, dSpeed)
             nCrvId = EgtGetNextName( nCrvId, CONTOUR_GRP .. '*')
          end
+         -- scrivo info attesa
+         if dLayerWait > 0 then
+            EgtSetInfo( nLayerId, KEY_WAITING_TIME, dLayerWait)
+            EgtSetInfo( nLayerResultId, KEY_WAITING_TIME, dLayerWait)
+         end
          -- scrivo valori in struttura dati
-         --local nLayerResultId = EgtGetFirstNameInGroup( nResultLayerId, nLayerIndex)
          EgtSetInfo( nLayerResultId, KEY_TMIN, dTMin)
          EgtSetInfo( nLayerResultId, KEY_TTRG, dTTrg)
          EgtSetInfo( nLayerResultId, KEY_TMAX, dTMax)
-         EgtSetInfo( nLayerResultId, KEY_FMIN, dFMin)
          EgtSetInfo( nLayerResultId, KEY_FTRG, dFTrg)
-         EgtSetInfo( nLayerResultId, KEY_FMAX, dFMax)
+         EgtSetInfo( nLayerResultId, KEY_FMAX, dFeedMax)
          EgtSetInfo( nLayerResultId, KEY_TCUR, dLayerTime)
          EgtSetInfo( nLayerResultId, KEY_FCUR, dLayerFeed)
          EgtSetInfo( nLayerResultId, KEY_LENGTH, dTotLayerLength)
          EgtSetInfo( nLayerResultId, KEY_SPEED, dSpeed)
+         EgtSetInfo( nLayerResultId, KEY_MF, dMF)
+         EgtSetInfo( nLayerResultId, KEY_TOTAREA, dTotLayerArea)
          -- aggiorno interfaccia
-         EgtProcessEvents( 400 + ( nLayerIndex / nLayerQty * 100), 0)
+         if EgtProcessEvents( 500 + ( nLayerIndex / nLayerQty * 100), 0) == 1 then
+            EgtEmptyGroup( nResultLayerId)
+            return
+         end
+         -- passo al layer successivo
          nLayerIndex = nLayerIndex + 1
-         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
+         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
       end
       if nMaxIndex < nLayerIndex then nMaxIndex = nLayerIndex end
+      -- passo al pezzo successivo
       nPartId = EgtGetNextPart( nPartId)
       ::continue::
    end

LuaLibs/RunMachiningParamCalc.lua

@@ -1,198 +0,0 @@
--- RunMachiningParamCalc.lua by Egaltech s.r.l. 2022/04/13
--- Gestione visualizzazione per Stampa 3d
-
--- Tabella per definizione modulo
-local RunMachiningParamCalc = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunMachiningParamCalc started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-local CSV = require( 'CSVManager')
-
----------------------------------------------------------------------
-function RunMachiningParamCalc.Exec()
-
-   -- Dati recuperati dalla macchina
-   local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
-   local dCoeffX = tonumber( EgtGetStringFromIni( SEC_3DPRINTING, KEY_COEFF_X, 0, sMachIni))
-   local dCoeffY = tonumber( EgtGetStringFromIni( SEC_3DPRINTING, KEY_COEFF_Y, 0, sMachIni))
-
-   -- File dei risultati
-   local sCalcBaseDir = EgtGetStringFromIni( '3dPrinting', 'BaseDir', 'C:\\ProgramData\\Egaltech\\EgtCam5\\3dPrinting', EgtGetIniFile())
-   local sCurrProjectPath = EgtGetCurrFilePath()
-   local sResultFile = EgtChangePathExtension( sCurrProjectPath, '.csv')
-   local bResultFile = EgtExistsFile( sResultFile)
-
-   -- carico eventuale file dei risultati
-   local CSVOldResult
-   if bResultFile then
-      CSVOldResult = read_file( sResultFile)
-   end
-
-   -- tabella del csv del risultato
-   local CSVNewResult = {}
-
-   -- ciclo sui pezzi
-   local nPartId = EgtGetFirstPart()
-   while nPartId do
-      if not EgtGetInfo( nPartId, KEY_PART_ON_TABLE, 'b') then
-         nPartId = EgtGetNextPart( nPartId)
-         goto continue 
-      end
-      -- recupero i parametri di lavorazione del pezzo
-      local dMachiningFeed = EgtGetInfo( nPartId, KEY_FEED, 'd')
-      local dSliceStep = EgtGetInfo( nPartId, KEY_SLICE_STEP, 'd')
-      local dStrand = EgtGetInfo( nPartId, KEY_STRAND, 'd')
-      local sMaterial = EgtGetInfo( nPartId, KEY_MATERIAL)
-      -- verifico la definizione dei parametri
-      if not dMachiningFeed then
-         EgtOutBox( 'Impossible calculating before applying a machining.', 'Error', 'ERROR')
-         return
-      end
-      -- calcolo intervallo tempi consentito
-      local sMaterialPath = sCalcBaseDir .. '\\Materials\\' .. sMaterial .. '.csv'
-      local MaterialCSV = read_file( sMaterialPath)
-      local dMinTime = 0
-      local dMaxTime = 0
-      if not MaterialCSV then
-         EgtOutBox( 'Material csv file not found.', 'Error', 'ERROR')
-         return
-      end
-      local bSectionFound = false
-      for nSectionIndex = 1, #MaterialCSV do
-         local Section = MaterialCSV[nSectionIndex]
-         if tonumber( Section[1]) == dStrand and tonumber( Section[2]) == dSliceStep then
-            dMinTime = tonumber(Section[3])
-            dMaxTime = tonumber(Section[4])
-            bSectionFound = true
-            break
-         end
-      end
-      if not bSectionFound then
-         EgtOutBox( 'Section not found in Material csv file.', 'Error', 'ERROR')
-         return
-      end
-      -- ciclo sui layer
-      local nLayerIndex = 1
-      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
-      while nLayerId do
-         local sLayerName = EgtGetName( nLayerId)
-         local nLayerIndex = tonumber( sLayerName:sub( #SLICE_LAYER + 1))
-         -- rimuovo eventuale info precedente del tempo di attesa
-         EgtRemoveInfo( nLayerId, KEY_WAITING_TIME)
-         -- calcolo lunghezza totale del layer
-         local dTotLayerLength = 0
-         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
-         while nCrvId do
-            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
-            -- sommo lunghezze percorsi
-            local dTotCrvLength = 0
-            nShellId = EgtGetFirstInGroup( nToolPathId)
-            while nShellId do
-               --local nType = EgtGetInfo( nShellId, KEY_TYPE, 'i')
-               dTotCrvLength = dTotCrvLength + EgtCurveLength( nShellId)
-               nShellId = EgtGetNext( nShellId)
-            end
-            dTotLayerLength = dTotLayerLength + dTotCrvLength
-            nCrvId = EgtGetNext( nCrvId)
-         end
-         -- recupero feed del layer
-         local dLayerFeed = 0
-         if bResultFile then
-            -- leggo il valore dal file
-            local bResultFound = false
-            for nResultIndex = 1, #CSVOldResult do
-               local OldResult = CSVOldResult[nResultIndex]
-               if tonumber( OldResult[1]) == nLayerIndex then
-                  dLayerFeed = tonumber( OldResult[5])
-                  bResultFound = true
-                  break
-               end
-            end
-            if not bResultFound then
-               -- uso valore di default
-               dLayerFeed = dMachiningFeed
-            end
-         else
-            -- uso valore di default
-            dLayerFeed = dMachiningFeed
-         end
-         -- calcolo tempo stimato del layer
-         local dEsteemedTime = dTotLayerLength / dLayerFeed * 60
-         -- calcolo speed
-         local dSpeed = ((( dLayerFeed * dSliceStep * dStrand ) / 60) - dCoeffX) / dCoeffY
-         -- scrivo info feed e speed in group toolpath
-         nCrvId = EgtGetFirstNameInGroup( nLayerId, CONTOUR_GRP .. '*')
-         while nCrvId do
-            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
-            EgtSetInfo( nToolPathId, KEY_FEED, dLayerFeed)
-            EgtSetInfo( nToolPathId, KEY_SPEED, dSpeed)
-            nCrvId = EgtGetNextName( nCrvId, CONTOUR_GRP .. '*')
-         end
-         -- salvo e riporto valori calcolati in tabella per csv
-         local sStatus = ''
-         if dEsteemedTime < dMinTime then
-            EgtSetInfo( nLayerId, KEY_RESULT, RESULT.KO_MINUS)
-            EgtSetInfo( nLayerId, KEY_WAITING_TIME, dMinTime - dEsteemedTime)
-            sStatus = 'KO(-)'
-         elseif dEsteemedTime > dMinTime and dEsteemedTime < dMaxTime then
-            EgtSetInfo( nLayerId, KEY_RESULT, RESULT.OK)
-            sStatus = 'OK'
-         elseif dEsteemedTime > dMaxTime then
-            EgtSetInfo( nLayerId, KEY_RESULT, RESULT.KO_PLUS)
-            sStatus = 'KO(+)'
-         end
-         --table.insert( CSVOutTable, { Index = nLayerIndex, EsteemedTime = dEsteemedTime, Feed = dLayerFeed, Speed = dSpeed})
-         table.insert( CSVNewResult, { nLayerIndex, dTotLayerLength, dEsteemedTime, sStatus, dLayerFeed, dSpeed})
-         nLayerIndex = nLayerIndex + 1
-         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
-      end
-      nPartId = EgtGetNextPart( nPartId)
-      ::continue::
-   end
-
-   -- aggiorno palette
-   local nViewId = EgtGetFirstNameInGroup( GDB_ID.ROOT, VIEWPARAMS)
-   local nPaletteType = EgtGetInfo( nViewId, KEY_PALETTE, 'i')
-   if nPaletteType == PALETTE_TYPE.RESULTS then
-      local RSP = require( 'RunSlicePalette')
-      RSP.UpdateColors( nPaletteType)
-   end
-   -- scrivo nuovo file csv di risultato
-   local file = io.open( sResultFile, "w")
-   if file then
-      file:write('LayerIndex; Len; Time; Status; Feed; Speed')
-      file:write('\n')
-      for NewResultIndex = 1, #CSVNewResult do
-         local CSVOutLine = CSVNewResult[NewResultIndex]
-         local sParams = ''
-         for ParamIndex = 1, #CSVOutLine do
-            if ParamIndex > 1 then
-               sParams = sParams .. ";"
-            end
-            if ParamIndex == 4 then
-               sParams = sParams .. CSVOutLine[ParamIndex]
-            else
-               sParams = sParams .. EgtNumToString( CSVOutLine[ParamIndex], 1)
-            end
-         end
-         file:write(sParams)
-         file:write('\n')
-      end
-      file:close()
-      local sReadProgPath = EgtGetStringFromIni( '3dPrinting', RESULT_READ_PROG, "", EgtGetIniFile())
-      if not sReadProgPath or not EgtWinExec( '"'..sReadProgPath..'" "'..sResultFile..'"') then
-         EgtOutBox( 'Impossible opening software to show results. You can find them in ' .. sResultFile, 'Error', 'ERROR')
-      end
-   else
-      EgtOutBox( 'Impossible writing results file in ' .. sResultFile, 'Error', 'ERROR')
-   end
-
-end
-
----------------------------------------------------------------------
-return RunMachiningParamCalc

LuaLibs/RunMachiningParamEdit.lua

@@ -1,57 +0,0 @@
--- RunMachiningParamEdit.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Tabella per definizione modulo
-local RunMachiningParamEdit = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunMachiningParamEdit started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
----------------------------------------------------------------------
-function RunMachiningParamEdit.Exec()
-   -- recupero cartella delle lavorazioni
-   local sCalcBaseDir = EgtGetStringFromIni( '3dPrinting', 'BaseDir', 'C:\\ProgramData\\Egaltech\\EgtCam5\\3dPrinting', EgtGetIniFile())
-   local sMachiningDirPath = sCalcBaseDir .. '\\Machinings\\'
-
-   -- recupero file delle lavorazioni
-   --local Machinings = {}
-   local sMachinings = ''
-
-   local f = io.popen("dir " .. sMachiningDirPath .. " /B", "r")
-   for entry in f:lines() do
-      --Machinings[#Machinings + 1] = entry
-      local sDir, sFile, sExt = EgtSplitPath(entry)
-      if sExt == '.ini' then
-         if sMachinings ~= "" then
-            sMachinings = sMachinings .. ','
-         end
-         sMachinings = sMachinings .. sFile
-      end
-   end
-
-   -- chiedo quale file aprire
-   MachiningValues = EgtDialogBox( 'Machinings edit', { 'Machining', 'CB:' .. sMachinings})
-   if not MachiningValues or #MachiningValues < 1 then return end
-
-   -- verifico esistenza file
-   local sSelMachiningPath = sMachiningDirPath .. MachiningValues[1] .. '.ini'
-   if not EgtExistsFile( sSelMachiningPath) then
-      EgtOutBox( 'Machining file not found', 'Error', 'ERROR')
-      return
-   end
-
-   -- apro programma di edit
-   local sEditProgPath = EgtGetStringFromIni( '3dPrinting', 'MachiningEditProg', "", EgtGetIniFile())
-   if not sEditProgPath or not EgtWinExec( '"'..sEditProgPath..'" "'.. sSelMachiningPath..'"') then
-      EgtOutBox( 'Impossible opening software to show Machining. You can find it in ' .. sSelMachiningPath, 'Error', 'ERROR')
-   end
-
-end
-
----------------------------------------------------------------------
-return RunMachiningParamEdit

LuaLibs/RunMaterialParamEdit.lua

@@ -1,56 +0,0 @@
--- RunMaterialParamEdit.lua by Egaltech s.r.l. 2022/04/09
--- Gestione edit parametri materiali per Stampa 3d
-
--- Tabella per definizione modulo
-local RunMaterialParamEdit = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunMaterialParamEdit started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
----------------------------------------------------------------------
-function RunMaterialParamEdit.Exec()
-   -- recupero cartella dei materiali
-   local sCalcBaseDir = EgtGetStringFromIni( '3dPrinting', 'BaseDir', 'C:\\ProgramData\\Egaltech\\EgtCam5\\3dPrinting', EgtGetIniFile())
-   local sMaterialDirPath = sCalcBaseDir .. '\\Materials\\'
-
-   -- recupero elenco file dei materiali
-   local Files = EgtFindAllFiles( sMaterialDirPath..'*.csv')
-   if not Files then
-      EgtOutBox( 'Material files not found', 'Error', 'ERROR')
-      return
-   end
-   local sMaterials = ''
-   for i = 1, #Files do
-      local sDir, sFile, sExt = EgtSplitPath( Files[i])
-      if sMaterials ~= "" then
-         sMaterials = sMaterials .. ','
-      end
-      sMaterials = sMaterials .. sFile
-   end
-
-   -- chiedo quale file aprire
-   MaterialValues = EgtDialogBox( 'Materials edit', { 'Material', 'CB:' .. sMaterials})
-   if not MaterialValues or #MaterialValues < 1 then return end
-
-   -- verifico esistenza file
-   local sSelMaterialPath = sMaterialDirPath .. MaterialValues[1] .. '.csv'
-   if not EgtExistsFile( sSelMaterialPath) then
-      EgtOutBox( 'Material file not found', 'Error', 'ERROR')
-      return
-   end
-
-   -- apro programma di edit
-   local sEditProgPath = EgtGetStringFromIni( '3dPrinting', RESULT_READ_PROG, "", EgtGetIniFile())
-   if not sEditProgPath or not EgtWinExec( '"'..sEditProgPath..'" "'..sSelMaterialPath..'"') then
-      EgtOutBox( 'Impossible opening software to show Material. You can find them it in ' .. sSelMaterialPath, 'Error', 'ERROR')
-   end
-
-end
-
----------------------------------------------------------------------
-return RunMaterialParamEdit

LuaLibs/RunPartPositioning.lua

@@ -1,209 +0,0 @@
--- RunPartPositioning.lua by Egaltech s.r.l. 2022/08/29
--- Gestione calcolo disposizione e lavorazioni per stampa 3d
--- 2022/03/21 Creazione file
-
--- Tabella per definizione modulo
-local RunPartPositioning = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunPartPositioning started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
----------------------------------------------------------------------
-function RunPartPositioning.Exec()
-   -- Verifico che la macchina corrente sia adatta alla stampa 3d
-   local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
-   local sMachMaterial = EgtGetStringFromIni( 'General', 'Material', '', sMachIni)
-   if sMachMaterial ~= 'Additive' then
-      EgtOutBox( 'Current machine unsuitable for additive manufacturing', 'Warning', 'WARNING')
-      return
-   end
-   -- Recupero ultimo oggetto selezionato
-   local nSolidId = EgtGetLastSelectedObj()
-   local nLayerId = EgtGetParent( nSolidId)
-   local nPartId = EgtGetParent( nLayerId)
-   -- Verifico sia in un pezzo valido
-   if nPartId then
-      if EgtIsPart( nPartId) then
-         local sName = EgtGetName( nPartId)
-         if sName == TABLE then 
-            EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
-            return
-         end
-         local sLayer = EgtGetName( nLayerId)
-         if sLayer == LAY_RIBS or sLayer == LAY_AUX_SOLIDS or sLayer == LAY_SHELL_NBR then
-            EgtOutBox( 'No selected solid. Please select a solid before moving it on the table.', 'Warning', 'WARNING')
-            return
-         end
-      else
-         EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
-         return
-      end
-   else
-      EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
-      return
-   end
-
-   -- Assegno nome pezzo e layer
-   if not EgtGetName( nPartId) then
-      local nPartIndex = 1
-      while EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) do
-         nPartIndex = nPartIndex + 1
-      end
-      EgtSetName( nPartId, PART .. nPartIndex)
-      EgtSetName( nLayerId, PRINT_SOLID)
-   end
-   -- Recupero o creo layer ausiliario
-   local nAuxId = EgtGetFirstNameInGroup( nPartId, LAY_AUX)
-   if not nAuxId then
-      nAuxId = EgtGroup( nPartId)
-      EgtSetName( nAuxId, LAY_AUX)
-   else
-      EgtEmptyGroup( nAuxId)
-   end
-   
-   -- Rimuovo eventuale gruppo di lavoro
-   local nMchGrpId = EgtGetMachGroupId( '3dPrint')
-   EgtRemoveMachGroup( nMchGrpId or GDB_ID.NULL)  
-
-   -- Recupero dati tavola (creando gruppo di lavoro temporaneo)
-   local nQqqId = EgtAddMachGroup( 'qqq')
-   EgtSetTable( 'Tab')
-   local b3Tab = EgtGetTableArea()
-   dTabX = b3Tab:getDimX()
-   dTabY = b3Tab:getDimY()
-   EgtRemoveMachGroup( nQqqId or GDB_ID.NULL)
-   
-   -- Richiedo posizione origine e offset pezzo
-   local b3Solid = EgtGetBBoxGlob( nSolidId, GDB_BB.EXACT)
-   local b3Part = EgtGetBBoxGlob( nPartId, GDB_BB.EXACT)
-   local nRefX = 1
-   local nRefY = 1
-   local dPosX = b3Tab:getDimX() / 2 - b3Solid:getDimX() / 2
-   local dPosY = b3Tab:getDimY() / 2 - b3Solid:getDimY() / 2
-   local Positions = EgtDialogBox( 'Part position on table:', { 'Reference', 'CB:Left,Center,Right'},
-                                                              { '', 'CB:Bottom,Middle,Top'},
-                                                              { 'X', EgtNumToString( EgtToUiUnits( dPosX), 1)},
-                                                              { 'Y', EgtNumToString( EgtToUiUnits( dPosY), 1)})
-   if not Positions then return end
-   dPosX = EgtFromUiUnits( tonumber( Positions[3]))
-   dPosY = EgtFromUiUnits( tonumber( Positions[4]))
-   if Positions[1] == 'Center' then
-      nRefX = 2
-      dPosX = dPosX - b3Solid:getDimX() / 2
-   elseif Positions[1] == 'Right' then
-      nRefX = 3
-      dPosX = dPosX - b3Solid:getDimX()
-   end
-   if Positions[2] == 'Middle' then
-      nRefY = 2
-      dPosY = dPosY - b3Solid:getDimY() / 2
-   elseif Positions[2] == 'Top' then
-      nRefY = 3
-      dPosY = dPosY - b3Solid:getDimY()
-   end
-
-   -- Creo disegno tavola
-   local nTabPart = EgtGetFirstNameInGroup( GDB_ID.ROOT, TABLE)
-   EgtErase( nTabPart)
-   -- Disegno tavola
-   nTabPart = EgtGroup( GDB_ID.ROOT)
-   EgtSetMode( nTabPart, GDB_MD.LOCKED)
-   EgtSetLevel( nTabPart, GDB_LV.SYSTEM)
-   EgtSetName( nTabPart, TABLE)
-   local nTabLayer = EgtGroup( nTabPart)
-   EgtSetName( nTabLayer, TABLE)
-   local nTabOutlineId = EgtRectangle2P( nTabLayer, Point3d( 0, 0, 0), Point3d( dTabX, dTabY, 0))
-   local nTabSurfId = EgtSurfFlatRegion( nTabLayer, nTabOutlineId)
-   EgtSetColor( nTabSurfId, 'GRAY')
-   EgtSetAlpha( nTabSurfId, 70)
-
-   -- Aggiungo il box del solido
-   local nBoxId = EgtSurfTmBBox( nAuxId, b3Solid, false, GDB_RT.GLOB) 
-
-   -- Posiziono il pezzo e aggiorno il suo box
-   local vtMove = Point3d( dPosX, dPosY, 0) - b3Solid:getMin()
-   EgtMove( nPartId, vtMove)
-   b3Solid:move( vtMove)
-   b3Part:move( vtMove)
-
-   -- Creo il frame del pezzo
-   local ptOrig = b3Solid:getMin()
-   if nRefX == 2 then
-      ptOrig = ptOrig + b3Solid:getDimX() / 2 * X_AX()
-   elseif nRefX == 3 then
-      ptOrig = ptOrig + b3Solid:getDimX() * X_AX()
-   end
-   if nRefY == 2 then
-      ptOrig = ptOrig + b3Solid:getDimY() / 2 * Y_AX()
-   elseif nRefY == 3 then
-      ptOrig = ptOrig + b3Solid:getDimY() * Y_AX()
-   end
-   
-    -- Svuoto o creo layer per il frame
-   local nFrameLay = EgtGetFirstNameInGroup( nPartId, LAY_FRAME)
-   if not nFrameLay then
-      nFrameLay = EgtGroup( nPartId)
-      EgtSetName( nFrameLay, LAY_FRAME)
-   else
-      EgtEmptyGroup( nFrameLay)
-   end
-   
-   local frPart = Frame3d( ptOrig, Z_AX())
-   nFrameId = EgtFrame( nFrameLay, frPart, GDB_RT.GLOB)
-   if nFrameId then
-      EgtSetName( nFrameId, FRAME_PART)
-      EgtSetMode( nFrameId, GDB_MD.LOCKED)
-   end
-
-   -- Definisco e posiziono il grezzo sulla tavola
-   EgtAddMachGroup( '3dPrint')
-   EgtSetTable( 'Tab')
-
-   local nRawId = EgtAddRawPartWithPart( nPartId, nBoxId, 0,  Color3d( 128, 128, 128, 30)) 
-   EgtMoveToCornerRawPart( nRawId, Point3d( dPosX, dPosY, 0), MCH_CR.BL)
-
-   EgtResetCurrMachGroup()
-
-   -- Recupero/creo gruppo per punti e curve di partenza
-   local nMachStartId = EgtGetFirstNameInGroup( nPartId, LAY_MACH_START)
-   if not nMachStartId then
-      nMachStartId = EgtGroup( nPartId)
-      EgtSetName( nMachStartId, LAY_MACH_START)
-   end
-
-   local vStartId = EgtGetNameInGroup( nLayerId, START_GEOM)
-   if vStartId then
-      for j = 1, #vStartId do
-         EgtRelocateGlob( vStartId[j], nMachStartId)
-         EgtSetColor( vStartId[j], EgtStdColor( "RED"))
-      end      
-   else
-      -- se non ci sono punti/curve di inizio definiti e non ve ne sono nemmeno nel gruppo, creo un punto
-      local vOldStart = EgtGetNameInGroup( nMachStartId, START_GEOM)
-      if not vOldStart then
-         local ptStart = b3Solid:getCenter() - 0.6 * b3Solid:getDimY() * Y_AX() - 0.5 * b3Solid:getDimZ() * Z_AX()
-         nPtStartId = EgtPoint( nMachStartId, ptStart, GDB_RT.GLOB)
-         EgtSetName( nPtStartId, START_GEOM)
-         EgtSetColor( nPtStartId, EgtStdColor( "RED"))
-      end
-   end 
-
-   -- Dichiaro pezzo posizionato
-   EgtSetInfo( nPartId, KEY_PART_ON_TABLE, 1)
-
-   -- Deseleziono tutto
-   EgtDeselectAll()
-
-   EgtSetView( SCE_VD.ISO_SW, false)
-   EgtZoom( SCE_ZM.ALL)
-
-   EgtOutLog( ' +++ RunPartPositioning completed')
-end
-
----------------------------------------------------------------------
-return RunPartPositioning

LuaLibs/RunPrepareExport.lua

@@ -0,0 +1,220 @@
+-- RunPrepareExport.lua by Egaltech s.r.l. 2023/10/19
+-- Creo le geometrie da esportare con 3dm
+
+-- Tabella per definizione modulo
+local RunPrepareExport = {}
+
+-- Intestazioni
+require( 'EgtBase')
+
+EgtOutLog( ' RunPreprareExport started', 1)
+
+-- Dati
+local AMD = require( 'AddManData')
+
+------------------------------------------------------------------
+local function CalcCurves( nSliceId, nDestGrp, dStrandBase)
+  
+   -- scorro tutti i gruppi di curve
+   local vCrvs = EgtGetNameInGroup( nSliceId, CONTOUR_GRP .. '*')
+   for j = 1, #vCrvs do
+      -- cerco il gruppo del toolpath
+      local nTPath = EgtGetFirstNameInGroup( vCrvs[j], TOOLPATH_GRP)
+      if nTPath then
+         local nId = EgtGetFirstInGroup( nTPath)
+         while nId do
+            -- se non è wipe creo la fat curve da estrudere per creare il solido
+            local nType = EgtGetInfo( nId, KEY_TYPE, 'i')
+            if nType ~= TYPE.WIPE then
+               local dStrand = EgtGetInfo( nId, KEY_CRV_STRAND, 'd') or dStrandBase
+               
+               -- calcolo fat region a partire da una copia della curva ( in questo modo nel DB geometrico non restano
+               -- salvati i diagrammi di Voronoi che non servono per conti futuri)
+               local nCopy = EgtCopyGlob( nId, nDestGrp)
+               local nSurf = EgtSurfFrFatCurve( nDestGrp, nCopy, 0.5 * dStrand + 0.01, false)
+               -- se fallisce ritento con valore leggermente diverso
+               if not nSurf or nSurf == GDB_ID.NULL then
+                  nSurf = EgtSurfFrFatCurve( nDestGrp, nCopy, 0.5 * dStrand - 0.05, false)
+               end
+               EgtErase( nCopy)
+
+               if nSurf then
+                  local nChunks = EgtSurfFrChunkCount( nSurf)
+                  for k = 0, nChunks - 1 do
+                     -- estraggo i loop associati
+                     local nCrv, nCnt = EgtExtractSurfFrChunkLoops( nSurf, k, nDestGrp)
+
+                     -- eventuali aggiustamenti per creare un percorso unico
+                     if nCnt > 1 then
+                        for nLoopId = nCrv + 1, nCrv + nCnt - 1 do
+                           
+                           -- recupero la prima curva del loop interno che non sia di raccordo
+                           local vTempProps = EgtCurveCompoGetTempProp( nLoopId)
+                           local dU
+                           for i = 1, #vTempProps do
+                              if vTempProps[i] > 0 then
+                                 dU = i - 1
+                                 break
+                              end
+                           end
+                           -- taglio il loop interno
+                           EgtChangeClosedCurveStart( nLoopId, dU + 0.5)
+                           EgtTrimCurveStartAtLen( nLoopId, 5 * GEO.EPS_SMALL)
+                           -- taglio il loop esterno in corrispondenza del loop interno
+                           local _, _, dPar = EgtPointCurveDist( EgtSP( nLoopId), nCrv)
+                           EgtChangeClosedCurveStart( nCrv, dPar)
+                           EgtTrimCurveStartAtLen( nCrv, 5 * GEO.EPS_SMALL)
+                           -- unisco le curve
+                           EgtAddCurveCompoLine( nCrv, EgtSP( nLoopId))
+                           EgtAddCurveCompoCurve( nCrv, nLoopId)
+                           EgtCloseCurveCompo( nCrv)
+                        end
+                     end
+                     
+                     if nType == TYPE.OUTER_SHELL or nType == TYPE.EXTRA_OUTER_SHELL then 
+                        EgtSetColor( nCrv, EgtStdColor( 'TEAL'))
+                     elseif nType == TYPE.INNER_SHELL or nType == TYPE.EXTRA_SHELL then
+                        EgtSetColor( nCrv, EgtStdColor( 'ORANGE'))
+                     elseif nType == TYPE.LINK then
+                        EgtSetColor( nCrv, EgtStdColor( 'GRAY'))
+                     elseif nType == TYPE.INFILL then
+                        EgtSetColor( nCrv, EgtStdColor( 'YELLOW'))
+                     elseif nType == TYPE.COASTING then
+                        EgtSetColor( nCrv, EgtStdColor( 'BLUE'))
+                     elseif nType == TYPE.RIB then
+                        EgtSetColor( nCrv, EgtStdColor( 'OLIVE'))
+                     elseif nType == TYPE.AUX_SOLID then
+                        EgtSetColor( nCrv, EgtStdColor( 'AQUA'))
+                     end
+                  end
+                  EgtErase( nSurf)
+               end
+            end
+            
+            nId = EgtGetNext( nId)
+         end
+      end
+
+      -- copio le frecce direzione dal gruppo dei solidi
+      local nSolidGrp = EgtGetFirstNameInGroup( vCrvs[j], SOLID_GRP)
+      if nSolidGrp then
+         local nId = EgtGetFirstNameInGroup( nSolidGrp, DIR_ARROW)
+         while nId do
+            local nCopy = EgtCopyGlob( nId, nDestGrp)
+            EgtSetMode( nCopy, GDB_MD.STD)
+            EgtSetStatus( nCopy, GDB_ST.ON)
+            nId = EgtGetNextName( nId, DIR_ARROW)
+         end
+      end
+   end
+end
+
+------------------------------------------------------------------
+local function GetSolids( nSliceId, nDestGrp)
+   
+   -- scorro tutti i gruppi di curve
+   local vCrvs = EgtGetNameInGroup( nSliceId, CONTOUR_GRP .. '*')
+   for j = 1, #vCrvs do
+      -- recupero il solido dal gruppo
+      local nSolidGrp = EgtGetFirstNameInGroup( vCrvs[j], SOLID_GRP)
+      if nSolidGrp then
+         -- copio solo la prima freccia direzionale
+         local nArrow = EgtGetFirstNameInGroup( nSolidGrp, DIR_ARROW) or GDB_ID.NULL
+         EgtCopyGlob( nArrow, nDestGrp)
+         local vSolids = EgtGetAllInGroup( nSolidGrp)
+         for i = 1, #vSolids do
+            if EgtGetName( vSolids[i]) ~= DIR_ARROW then
+               EgtCopyGlob( vSolids[i], nDestGrp)
+            end
+         end
+      end
+   end
+end
+
+------------------------------------------------------------------
+function RunPrepareExport.Exec()
+
+   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. '*')
+   if not nPartId then 
+      EgtOutBox( 'Error : no part', 'Export')
+      return GDB_ID.NULL
+   end
+   
+   -- creo o recupero il gruppo per l'esportazione
+   local nGrp = EgtGetFirstNameInGroup( GDB_ID.ROOT, LAY_EXPORT)
+   if not nGrp then
+      -- se non esiste creo il gruppo
+      nGrp = EgtGroup( GDB_ID.ROOT)
+      EgtSetName( nGrp, LAY_EXPORT)
+      EgtSetStatus( nGrp, GDB_ST.OFF)
+      EgtSetLevel( nGrp, GDB_LV.TEMP)
+   else
+      -- se il gruppo esiste già non devo fare nulla
+      return nGrp
+   end
+   
+   -- creo il punto di origine del riferimento
+   local ptRef = EgtGetInfo( nPartId, KEY_ORIG_REF, 'p')
+   if not ptRef then
+      local nFrameId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( nPartId, LAY_FRAME), FRAME_PART)
+      ptRef = EgtSP( nFrameId or GDB_ID.NULL, GDB_ID.ROOT)
+   end
+   local nPnt = EgtPoint( nGrp, ptRef, GDB_RT.GLOB)
+   EgtSetName( nPnt, KEY_ORIG_REF)
+   EgtSetStatus( nPnt, GDB_ST.OFF)
+   
+   -- recupero alcune info utili e le assegno al punto per poterle leggere da ThreeJS
+   local dH = EgtGetInfo( nPartId, KEY_SLICE_STEP, 'd')
+   EgtSetInfo( nPnt, KEY_SLICE_STEP, dH)
+   local vtSlicing = EgtGetInfo( nPartId, KEY_SLICE_DIR, 'v') or EgtGetInfo( nPartId, "SlicingDir", 'v')
+   EgtSetInfo( nPnt, "SlicingDir", vtSlicing)
+   local bSpiralVase = EgtGetInfo( nPartId, KEY_SPIRAL_VASE, 'b') or false
+   EgtSetInfo( nPnt, KEY_SPIRAL_VASE, bSpiralVase)
+   local nSlicingType = EgtGetInfo( nPartId, KEY_SLICING_TYPE, 'i')
+   
+   -- recupero lo strand dai parametri generale nel caso non fosse definito sulle singole curve
+   local dStrandBase = EgtGetInfo( nPartId, KEY_STRAND, 'd') or 0
+   
+   -- recupero gli slices
+   local vSlices = EgtGetNameInGroup( nPartId, SLICE_LAYER .. '*') or {}
+   if #vSlices == 0 then
+      EgtOutBox( 'Error : no slices', 'Export')
+      return GDB_ID.NULL
+   end
+   
+   -- verifico che nel primo slice siano presenti sia i toolpath sia i solidi
+   local nCrvGrp = EgtGetFirstNameInGroup( vSlices[1], CONTOUR_GRP .. '*')
+   if not nCrvGrp then
+      EgtOutBox( 'Error : no toolpaths', 'Export')
+      return GDB_ID.NULL
+   end
+   local nTPath = EgtGetFirstNameInGroup( nCrvGrp, TOOLPATH_GRP)
+   if not nTPath then
+      EgtOutBox( 'Error : no toolpaths', 'Export')
+      return GDB_ID.NULL
+   end
+   local nSolid = EgtGetFirstNameInGroup( nCrvGrp, SOLID_GRP)
+   if not nSolid then
+       EgtOutBox( 'Error : no solids', 'Export')
+      return GDB_ID.NULL
+   end
+
+   for i = 1, #vSlices do
+      -- creo il gruppo corrispondente
+      local nDestGrp = EgtGroup( nGrp)
+      EgtSetName( nDestGrp, EgtGetName( vSlices[i]))
+      EgtSetStatus( nDestGrp, GDB_ST.OFF)
+      
+      -- se multiplanare o spiral vase esporto direttamente i solidi altrimenti esporto le curve che verranno estruse nel visualizzatore
+      if nSlicingType == SLICING_TYPE.MULTIPLANAR or nSlicingType == SLICING_TYPE.MULTIPLANAR_DEG45 or nSlicingType == SLICING_TYPE.MULTIPLANAR_HOR or bSpiralVase then
+         GetSolids( vSlices[i], nDestGrp)
+      else
+         CalcCurves( vSlices[i], nDestGrp, dStrandBase)
+      end
+   end
+
+   return nGrp
+end
+
+---------------------------------------------------------------------
+return RunPrepareExport

LuaLibs/RunShowManager.lua

@@ -1,138 +0,0 @@
--- RunShowManager.lua by Egaltech s.r.l. 2022/09/15
--- Gestione visualizzazione per Stampa 3d
-
--- Tabella per definizione modulo
-local RunShowManager = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunShowManager started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
--- Librerie
-_G.package.loaded.RunCalcSolids = nil
-local CSOLIDS = require( 'RunCalcSolids')
-
----------------------------------------------------------------------
-local function ShowImportedSolid( nPartId, bShow)
-   local nSolidLayId = EgtGetFirstNameInGroup( nPartId, PRINT_SOLID)
-   EgtSetStatus( nSolidLayId or GDB_ID.NULL, EgtIf( bShow, GDB_ST.ON, GDB_ST.OFF))
-   local nRibsLayId = EgtGetFirstNameInGroup( nPartId, LAY_RIBS)
-   EgtSetStatus( nRibsLayId or GDB_ID.NULL, EgtIf( bShow, GDB_ST.ON, GDB_ST.OFF))
-   local nShellNbrLay = EgtGetFirstNameInGroup( nPartId, LAY_SHELL_NBR)
-   EgtSetStatus( nShellNbrLay or GDB_ID.NULL, EgtIf( bShow, GDB_ST.ON, GDB_ST.OFF))
-   local nAuxSolidsLay = EgtGetFirstNameInGroup( nPartId, LAY_AUX_SOLIDS)
-   EgtSetStatus( nAuxSolidsLay or GDB_ID.NULL, EgtIf( bShow, GDB_ST.ON, GDB_ST.OFF))
-end
-
----------------------------------------------------------------------
-function RunShowManager.Exec()
-   -- Verifico esistenza gruppo stato visualizzazione progetto
-   local nViewId = EgtGetFirstNameInGroup( GDB_ID.ROOT, VIEWPARAMS)
-   local bImportedSolid = false
-   local bOuterCrv = false
-   local bPath = false
-   local bSolid = false
-   local bToolPath = false
-
-   if not nViewId then
-      nViewId = EgtGroup( GDB_ID.ROOT)
-      EgtSetName( nViewId, VIEWPARAMS)
-      EgtSetLevel( nViewId, GDB_LV.SYSTEM)
-   else
-      bImportedSolid = EgtGetInfo( nViewId, IMPORTED_SOLID, 'b')
-      bOuterCrv = EgtGetInfo( nViewId, OUTER_CRV, 'b')
-      bPath = EgtGetInfo( nViewId, PATH_GRP, 'b')
-      bSolid = EgtGetInfo( nViewId, SOLID_GRP, 'b')
-      bToolPath = EgtGetInfo( nViewId, TOOLPATH_GRP, 'b')
-   end
-
-   local bCurrImportedSolid = bImportedSolid
-   local bCurrOuterCrv = bOuterCrv
-   local bCurrPath = bPath
-   local bCurrSolid = bSolid
-   local bCurrToolPath = bToolPath
-
-   if EgtGetUserLevel() == 1 then
-      local ViewValues = EgtDialogBox( 'Show Manager', { 'Imported Solid', 'CK:' .. EgtIf( bImportedSolid, '1', '0')},
-                                                       { 'Solid', 'CK:' .. EgtIf( bSolid, '1', '0')},
-                                                       { 'ToolPath', 'CK:' .. EgtIf( bToolPath, '1', '0')})
-      if not ViewValues or #ViewValues < 3 then return end
-      bCurrImportedSolid = ( ViewValues[1] == '1')
-      bCurrSolid = ( ViewValues[2] == '1')
-      bCurrToolPath = ( ViewValues[3] == '1')
-   else
-      local ViewValues = EgtDialogBox( 'Show Manager', { 'Imported Solid', 'CK:' .. EgtIf( bImportedSolid, '1', '0')},
-                                                       { 'OuterCrv', 'CK:' .. EgtIf( bOuterCrv, '1', '0')},
-                                                       { 'Path', 'CK:' .. EgtIf( bPath, '1', '0')},
-                                                       { 'Solid', 'CK:' .. EgtIf( bSolid, '1', '0')},
-                                                       { 'ToolPath', 'CK:' .. EgtIf( bToolPath, '1', '0')})
-      if not ViewValues or #ViewValues < 5 then return end
-      bCurrImportedSolid = ( ViewValues[1] == '1')
-      bCurrOuterCrv = ( ViewValues[2] == '1')
-      bCurrPath = ( ViewValues[3] == '1')
-      bCurrSolid = ( ViewValues[4] == '1')
-      bCurrToolPath = ( ViewValues[5] == '1')
-   end
-
-   -- ciclo sui pezzi
-   local nPartIndex = 1
-   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   while nPartId do
-      -- eventuale calcolo dei solidi
-      local bHasSolids = EgtGetInfo( nPartId, KEY_HAS_SOLIDS, 'b') or false
-      if not bHasSolids and bCurrSolid then
-         EgtSetInfo( nPartId, KEY_CALC_SOLIDS, true)
-         CSOLIDS.Exec()
-      end
-      
-      if bImportedSolid ~= bCurrImportedSolid then
-         ShowImportedSolid( nPartId, bCurrImportedSolid)
-      end
-      -- ciclo sui layer per dis/attivare il resto
-      local nLayerIndex = 1
-      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
-      while nLayerId do
-         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
-         while nCrvId do
-            if bOuterCrv ~= bCurrOuterCrv then
-               local nOuterCrvId = EgtGetFirstNameInGroup( nCrvId, OUTER_CRV)
-               EgtSetStatus( nOuterCrvId or GDB_ID.NULL, EgtIf( bCurrOuterCrv, GDB_ST.ON, GDB_ST.OFF))
-            end
-            if bPath ~= bCurrPath then
-               local nPathId = EgtGetFirstNameInGroup( nCrvId, PATH_GRP)
-               EgtSetStatus( nPathId or GDB_ID.NULL, EgtIf( bCurrPath, GDB_ST.ON, GDB_ST.OFF))
-            end
-            if bSolid ~= bCurrSolid then
-               local nSolidId = EgtGetFirstNameInGroup( nCrvId, SOLID_GRP)
-               EgtSetStatus( nSolidId or GDB_ID.NULL, EgtIf( bCurrSolid, GDB_ST.ON, GDB_ST.OFF))
-            end
-            if bToolPath ~= bCurrToolPath then
-               local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
-               EgtSetStatus( nToolPathId or GDB_ID.NULL, EgtIf( bCurrToolPath, GDB_ST.ON, GDB_ST.OFF))
-            end
-            nCrvId = EgtGetNext( nCrvId)
-         end
-         nLayerIndex = nLayerIndex + 1
-         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
-      end
-      nPartIndex = nPartIndex + 1
-      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   end
-
-   -- riporto impostazioni in gruppo apposito
-   EgtSetInfo( nViewId, IMPORTED_SOLID, bCurrImportedSolid)
-   EgtSetInfo( nViewId, OUTER_CRV, bCurrOuterCrv)
-   EgtSetInfo( nViewId, PATH_GRP, bCurrPath)
-   EgtSetInfo( nViewId, SOLID_GRP, bCurrSolid)
-   EgtSetInfo( nViewId, TOOLPATH_GRP, bCurrToolPath)
-
-   EgtDraw()
-
-end
-
----------------------------------------------------------------------
-return RunShowManager

LuaLibs/RunSliceAdvancement.lua

@@ -1,186 +0,0 @@
--- RunSliceAdvancement.lua by Egaltech s.r.l. 2022/06/28
--- Gestione visualizzazione per Stampa 3d
-
--- Tabella per definizione modulo
-local RunSliceAdvancement = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunSliceAdvancement started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
--- Librerie
-_G.package.loaded.RunCalcSolids = nil
-local CSOLIDS = require( 'RunCalcSolids')
-
----------------------------------------------------------------------
-local function ManageSegmentVisibility( SegmentList, nLastActiveIndex, ToHideList)
-   for Index = 1, #SegmentList do
-      EgtSetStatus( SegmentList[Index], EgtIf( Index <= nLastActiveIndex, GDB_ST.ON, GDB_ST.OFF))
-   end
-   if ToHideList and #ToHideList > 0 then
-      for Index = 1, #ToHideList do
-         EgtSetStatus( ToHideList[Index], GDB_ST.OFF)
-      end
-   end
-end
-
----------------------------------------------------------------------
-local function CalcType( nEntId, nOldType)
-   local nType = EgtGetInfo( nEntId, KEY_TYPE, 'i')
-   if not nType or nType == TYPE.LINK or nType == TYPE.COASTING  or nType == TYPE.WIPE then
-      nType = nOldType
-   end
-   if nType == TYPE.RIB or nType == TYPE.AUX_SOLID then
-      nType = TYPE.INFILL
-   end
-   if nType == TYPE.EXTRA_SHELL then
-      nType = TYPE.INNER_SHELL
-   end
-   return nType
-end
-
----------------------------------------------------------------------
-function RunSliceAdvancement.Exec()
-   -- verifico ci sia almeno uno slice
-   local nFirstPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. 1)
-   if not nFirstPartId then 
-      EgtOutBox( 'No sliced part in this project!', 'Error', 'ERROR')
-      return
-   else
-      local nLayerId = EgtGetFirstNameInGroup( nFirstPartId, SLICE_LAYER .. 1) or EgtGetFirstNameInGroup( nFirstPartId, "__" .. SLICE_LAYER .. 1)
-      if not nLayerId then
-         EgtOutBox( 'No sliced part in this project!', 'Error', 'ERROR')
-         return
-      end
-   end
-   local nAdvancementType = 1     -- 1 = All, 2 = Only Outer, 3 = Only Inner, 4 = Only Infill
-   local nPercentage = 30
-   -- leggo ultimi valori
-   local nViewId = EgtGetFirstNameInGroup( GDB_ID.ROOT, VIEWPARAMS)
-   if nViewId then
-      nAdvancementType = EgtGetInfo( nViewId, KEY_SLICE_ADV_MODE, 'i') or SLICE_ADV_TYPE.ALL
-      nPercentage = EgtGetInfo( nViewId, KEY_SLICE_ADV_PERC, 'i') or 30
-   end
-   local sAdvTypeCombo = ''
-   if nAdvancementType == SLICE_ADV_TYPE.ALL then
-      sAdvTypeCombo = 'CB:*All,Only Outer,Only Inner,Only Infill'
-   elseif nAdvancementType == SLICE_ADV_TYPE.OUTER then
-      sAdvTypeCombo = 'CB:All,*Only Outer,Only Inner,Only Infill'
-   elseif nAdvancementType == SLICE_ADV_TYPE.INNER then
-      sAdvTypeCombo = 'CB:All,Only Outer,*Only Inner,Only Infill'
-   elseif nAdvancementType == SLICE_ADV_TYPE.INFILL then
-      sAdvTypeCombo = 'CB:All,Only Outer,Only Inner,*Only Infill'
-   end
-   ViewValues = EgtDialogBox( 'Slice advancement', { 'Type', sAdvTypeCombo},
-                                                   { 'Percentage (0-100)', tostring( nPercentage)})
-   if not ViewValues or #ViewValues < 1 then return end
-
-   if ViewValues[1] == 'All' then
-      nAdvancementType = SLICE_ADV_TYPE.ALL
-   elseif ViewValues[1] == 'Only Outer' then
-      nAdvancementType = SLICE_ADV_TYPE.OUTER
-   elseif ViewValues[1] == 'Only Inner' then
-      nAdvancementType = SLICE_ADV_TYPE.INNER
-   elseif ViewValues[1] == 'Only Infill' then
-      nAdvancementType = SLICE_ADV_TYPE.INFILL
-   end
-   nPercentage = tonumber( ViewValues[2])
-
-   -- ciclo sui pezzi
-   local nPartIndex = 1
-   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   while nPartId do
-      
-      -- eventuale calcolo dei solidi
-      local bHasSolids = EgtGetInfo( nPartId, KEY_HAS_SOLIDS, 'b') or false
-      if not bHasSolids then
-         EgtSetInfo( nPartId, KEY_CALC_SOLIDS, true)
-         CSOLIDS.Exec()
-      end
-      
-      local nPrintOrder = EgtGetInfo( nPartId, KEY_PRINT_ORDER, 'i')
-      -- ciclo sui layer per dis/attivare il resto
-      local nLayerIndex = 1
-      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
-      while nLayerId do
-         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
-         while nCrvId do
-            local nSolidId = EgtGetFirstNameInGroup( nCrvId, SOLID_GRP)
-            local ShellList = { {}, {}, {}}
-            local nSurfId = EgtGetFirstInGroup( nSolidId)
-            local nOldType = TYPE.OUTER_SHELL
-            while nSurfId do
-               local nType = CalcType( nSurfId, nOldType)
-               nOldType = nType
-               table.insert( ShellList[nType], nSurfId)
-               nSurfId = EgtGetNext( nSurfId)
-            end
-            local nSegmentQty = 1
-            local SegmentList
-            local ToHideList
-            if nAdvancementType == SLICE_ADV_TYPE.ALL then
-               nSegmentQty = #ShellList[1] + #ShellList[2] + #ShellList[3]
-               if nPrintOrder == PRINT_ORDER.EXT_INT_INF then
-                  SegmentList = ShellList[1]
-                  for i = 1, #ShellList[2] do
-                     SegmentList[#SegmentList + 1] = ShellList[2][i]
-                  end
-                  for i = 1, #ShellList[3] do
-                     SegmentList[#SegmentList + 1] = ShellList[3][i]
-                  end
-               else
-                  SegmentList = ShellList[3]
-                  for i = 1, #ShellList[2] do
-                     SegmentList[#SegmentList + 1] = ShellList[2][i]
-                  end
-                  for i = 1, #ShellList[1] do
-                     SegmentList[#SegmentList + 1] = ShellList[1][i]
-                  end
-               end
-            elseif nAdvancementType == SLICE_ADV_TYPE.OUTER then
-               nSegmentQty = #ShellList[1]
-               SegmentList = ShellList[1]
-               ToHideList = ShellList[2]
-               for i = 1, #ShellList[3] do
-                  ToHideList[#ToHideList + 1] = ShellList[3][i]
-               end
-            elseif nAdvancementType == SLICE_ADV_TYPE.INNER then
-               nSegmentQty = #ShellList[2]
-               SegmentList = ShellList[2]
-               ToHideList = ShellList[1]
-               for i = 1, #ShellList[3] do
-                  ToHideList[#ToHideList + 1] = ShellList[3][i]
-               end
-            elseif nAdvancementType == SLICE_ADV_TYPE.INFILL then
-               nSegmentQty = #ShellList[3]
-               SegmentList = ShellList[3]
-               ToHideList = ShellList[1]
-               for i = 1, #ShellList[2] do
-                  ToHideList[#ToHideList + 1] = ShellList[2][i]
-               end
-            end
-            local nLastActiveIndex = ceil( nSegmentQty * nPercentage / 100)
-            ManageSegmentVisibility( SegmentList, nLastActiveIndex, ToHideList)
-            nCrvId = EgtGetNext( nCrvId)
-         end
-         nLayerIndex = nLayerIndex + 1
-         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
-      end
-      nPartIndex = nPartIndex + 1
-      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   end
-
-   -- riporto impostazioni in gruppo apposito
-   EgtSetInfo( nViewId, KEY_SLICE_ADV_MODE, nAdvancementType)
-   EgtSetInfo( nViewId, KEY_SLICE_ADV_PERC, nPercentage)
-
-   EgtDraw()
-
-end
-
----------------------------------------------------------------------
-return RunSliceAdvancement

LuaLibs/RunSlicePalette.lua

@@ -1,113 +0,0 @@
--- RunSlicePalette.lua by Egaltech s.r.l. 2022/08/23
--- Gestione visualizzazione per Stampa 3d
-
--- Tabella per definizione modulo
-local RunSlicePalette = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunSlicePalette started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
--- Librerie
-_G.package.loaded.RunCalcSolids = nil
-local CSOLIDS = require( 'RunCalcSolids')
-
----------------------------------------------------------------------
-function RunSlicePalette.UpdateColors( nPaletteType)
-   -- ciclo sui pezzi
-   local nPartIndex = 1
-   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   while nPartId do
-      -- eventuale calcolo dei solidi
-      local bHasSolids = EgtGetInfo( nPartId, KEY_HAS_SOLIDS, 'b') or false
-      if not bHasSolids then
-         EgtSetInfo( nPartId, KEY_CALC_SOLIDS, true)
-         CSOLIDS.Exec()
-      end
-      
-      -- ciclo sui layer per dis/attivare il resto
-      local nLayerIndex = 1
-      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
-      while nLayerId do
-         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
-         while nCrvId do
-            local nSolidId = EgtGetFirstNameInGroup( nCrvId, SOLID_GRP)
-            local nSurfId = EgtGetFirstInGroup( nSolidId)
-            local nOldType = 0
-            while nSurfId do
-               local Color = EgtStdColor( 'GRAY') 
-               if nPaletteType == PALETTE_TYPE.IN_OUT then
-                  local nType = EgtGetInfo( nSurfId, KEY_TYPE, 'i')
-                  if not nType or nType < TYPE.OUTER_SHELL or nType > TYPE.AUX_SOLID then nType = nOldType end
-                  nOldType = nType
-                  -- scelta del colore
-                  if nType == TYPE.OUTER_SHELL or nType == TYPE.EXTRA_OUTER_SHELL then
-                     Color = EgtStdColor( 'TEAL')
-                  elseif nType == TYPE.INNER_SHELL or nType == TYPE.EXTRA_SHELL then
-                     Color = EgtStdColor( 'ORANGE')
-                  elseif nType == TYPE.INFILL then
-                     Color = EgtStdColor( 'YELLOW')
-                  elseif nType == TYPE.LINK then
-                     Color = EgtStdColor( 'GRAY')
-                  elseif nType == TYPE.COASTING then
-                     Color = EgtStdColor( 'BLUE')
-                  elseif nType == TYPE.WIPE then
-                     Color = EgtStdColor( 'LIME')
-                  elseif nType == TYPE.RIB then
-                     Color = EgtStdColor( 'OLIVE')
-                  elseif nType == TYPE.AUX_SOLID then
-                     Color = EgtStdColor( 'AQUA')
-                  end
-               else
-                  local nResult = EgtGetInfo( nLayerId, KEY_RESULT, 'i')
-                  if nResult == RESULT.OK then 
-                     Color = EgtStdColor( 'GREEN')
-                  elseif nResult == RESULT.KO_MINUS then
-                     Color = EgtStdColor( 'ORANGE')
-                  elseif nResult == RESULT.KO_PLUS then
-                     Color = EgtStdColor( 'RED')
-                  end
-               end
-               EgtSetColor( nSurfId, Color)
-               nSurfId = EgtGetNext( nSurfId)
-            end
-            nCrvId = EgtGetNext( nCrvId)
-         end
-         nLayerIndex = nLayerIndex + 1
-         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
-      end
-      nPartIndex = nPartIndex + 1
-      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   end
-
-   EgtDraw()
-
-end
-
----------------------------------------------------------------------
-function RunSlicePalette.Exec()
-
-   local nViewId = EgtGetFirstNameInGroup( GDB_ID.ROOT, VIEWPARAMS) or GDB_ID.NULL
-
-   local nOldPaletteType = EgtGetInfo( nViewId, KEY_PALETTE, 'i')
-   local sCombo = EgtIf( not nOldPaletteType or nOldPaletteType == 1, 'CB:*In/Out,Results', 'CB:In/Out,*Results')
-   ViewValues = EgtDialogBox( 'Slice Palette', { 'Type', sCombo})
-   if not ViewValues or #ViewValues < 1 then return end
-
-   local nPaletteType = PALETTE_TYPE.IN_OUT     -- 1 = In/Out, 2 = Results
-   if ViewValues[1] == 'In/Out' then
-      nPaletteType = PALETTE_TYPE.IN_OUT
-   elseif ViewValues[1] == 'Results' then
-      nPaletteType = PALETTE_TYPE.RESULTS
-   end
-   EgtSetInfo( nViewId, KEY_PALETTE, nPaletteType)
-
-   RunSlicePalette.UpdateColors( nPaletteType)
-end
-
----------------------------------------------------------------------
-return RunSlicePalette

LuaLibs/RunSlicing.lua

@@ -26,177 +26,33 @@ _G.package.loaded.CalcToolPath = nil
 local CTP = require( 'CalcToolPath')
 
 ---------------------------------------------------------------------
-local function SetParamInfo( sFile, nParamsGrp, sSection, sKey, sDefaultVal)
-   local sVal = EgtGetStringFromIni( sSection, sKey, sDefaultVal, sFile)
-   EgtSetInfo( nParamsGrp, sKey, sVal)
-end
-
----------------------------------------------------------------------
-local function LoadParams( sFile, nPartId)
-
-   EgtSetInfo( nPartId, KEY_PARAMS, sFile)
-
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_CALC_SOLIDS, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SLICING_45, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SLICE_STEP, '1.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_STRAND, '6.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELLS_NBR, '3')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_STRAND_OVERLAP, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_OFFSET_SLICE, '0.0')
-   
-   local sStrandOrder = EgtGetStringFromIni( SEC_DEFAULT, KEY_PRINT_ORDER, 'InToOut', sFile)
-   if sStrandOrder == 'OutToIn' then
-      EgtSetInfo( nPartId, KEY_PRINT_ORDER, PRINT_ORDER.EXT_INT_INF)
-   else            -- 'InToOut' 
-      EgtSetInfo( nPartId, KEY_PRINT_ORDER, PRINT_ORDER.INF_INT_EXT)
-   end
-
-   local sStrandDirection = EgtGetStringFromIni( SEC_DEFAULT, KEY_PRINT_DIRECTION, 'CCW', sFile)
-   if sStrandDirection == 'CW' then
-      EgtSetInfo( nPartId, KEY_PRINT_DIRECTION, PRINT_DIRECTION.CW)
-   else                 -- 'CCW'
-      EgtSetInfo( nPartId, KEY_PRINT_DIRECTION, PRINT_DIRECTION.CCW)
-   end
-
-   local sLinkType = EgtGetStringFromIni( SEC_DEFAULT, KEY_LINK_TYPE, 'None', sFile)
-   if sLinkType == 'None' then
-      EgtSetInfo( nPartId, KEY_LINK_TYPE, LINK_TYPE.NONE)
-   elseif sLinkType == 'BiArc' then
-      EgtSetInfo( nPartId, KEY_LINK_TYPE, LINK_TYPE.BIARC)
-   else         -- 'Linear' 
-      EgtSetInfo( nPartId, KEY_LINK_TYPE, LINK_TYPE.LINEAR)
-   end
-
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SP_OFFSET_ON_SLICE, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LINK_PARAM, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LINK_ZUP, '0')
-   
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_FLOOR_NBR, '0')
-   local sFloorInfill = EgtGetStringFromIni( SEC_DEFAULT, KEY_FLOOR_TYPE, 'Offset', sFile)
-   if sFloorInfill == 'ZigZag' then
-      EgtSetInfo( nPartId, KEY_FLOOR_TYPE, INFILL_TYPE.ZIGZAG)
-   else
-      EgtSetInfo( nPartId, KEY_FLOOR_TYPE, INFILL_TYPE.OFFSET)
-   end
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_CEIL_NBR, '0')
-   local sCeilInfill = EgtGetStringFromIni( SEC_DEFAULT, KEY_CEIL_TYPE, 'Offset', sFile)
-   if sCeilInfill == 'ZigZag' then
-      EgtSetInfo( nPartId, KEY_CEIL_TYPE, INFILL_TYPE.ZIGZAG)
-   else
-      EgtSetInfo( nPartId, KEY_CEIL_TYPE, INFILL_TYPE.OFFSET)
-   end
-   
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SPEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_EXT_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_INT_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_INFILL_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_IN_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_OUT_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SUPPORT_FEED, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_G0_FEED, '0.0')  
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_MATERIAL, '')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_TOOL_DIAM, '0.0')
-   
-   local sLeadInType = EgtGetStringFromIni( SEC_DEFAULT, KEY_LEAD_IN_TYPE, 'None', sFile)
-   if sLeadInType == 'Linear' then
-      EgtSetInfo( nPartId, KEY_LEAD_IN_TYPE, LEAD_TYPE.LINEAR)
-   elseif sLeadInType == 'Arc' then
-      EgtSetInfo( nPartId, KEY_LEAD_IN_TYPE, LEAD_TYPE.ARC)
-   else  -- 'None'
-      EgtSetInfo( nPartId, KEY_LEAD_IN_TYPE, LEAD_TYPE.NONE)
-   end
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_IN_TANG_DIST, '0.0')  
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_IN_ORTHO_DIST, '0.0')
-   local sLeadOutType = EgtGetStringFromIni( SEC_DEFAULT, KEY_LEAD_OUT_TYPE, 'None', sFile)
-   if sLeadOutType == 'Linear' then
-      EgtSetInfo( nPartId, KEY_LEAD_OUT_TYPE, LEAD_TYPE.LINEAR)
-   elseif sLeadOutType == 'Arc' then
-      EgtSetInfo( nPartId, KEY_LEAD_OUT_TYPE, LEAD_TYPE.ARC)
-   else  -- 'None'
-      EgtSetInfo( nPartId, KEY_LEAD_OUT_TYPE, LEAD_TYPE.NONE)
-   end
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_OUT_TANG_DIST, '0.0')  
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_OUT_ORTHO_DIST, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_OFFSET_LEAD_POINT, '0.0') 
-
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_COASTING_LEN, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_COASTING_FEED, '20000.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_WIPE_LEN, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_WIPE_FEEDPU, '0.9')
-  
-   -- parametri per costolature
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_OVERLAP, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_SHELLS_NBR, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_INVERT_DIR, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_INVERT_ORDER, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LINK, '0')   
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_IN_INVERT, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_IN_LEN, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_INVERT, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_LEN, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_COASTING, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_WIPE, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_WIPE_DIR, '0.0')   
-   
-   -- parametri per regioni con diverso numero di passate
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_DIFF, '0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_COASTING, EgtGetInfo( nPartId, KEY_COASTING_LEN, 'd'))
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_WIPE, EgtGetInfo( nPartId, KEY_WIPE_LEN, 'd'))
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_WIPE_DIR, '0.0')   
-   
-   -- parametri per solidi ausiliari
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_OVERLAP, '0')
-   
-   local sAuxSolidsInfill = EgtGetStringFromIni( SEC_DEFAULT, KEY_AUX_SOLIDS_INFILL, 'None', sFile)
-   if sAuxSolidsInfill == 'ZigZag' then
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_INFILL, INFILL_TYPE.ZIGZAG)
-   elseif sAuxSolidsInfill == 'Offset' then
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_INFILL, INFILL_TYPE.OFFSET)
-   else
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_INFILL, INFILL_TYPE.NONE)
-   end
-   
-   local sAuxSolidsStrandOrder = EgtGetStringFromIni( SEC_DEFAULT, KEY_AUX_SOLIDS_PRINT_ORDER, 'InToOut', sFile)
-   if sAuxSolidsStrandOrder == 'OutToIn' then
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_PRINT_ORDER, PRINT_ORDER.EXT_INT_INF)
-   else            -- 'InToOut'
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_PRINT_ORDER, PRINT_ORDER.INF_INT_EXT)
-   end
-   
-   local sAuxSolidsLinkType = EgtGetStringFromIni( SEC_DEFAULT, KEY_AUX_SOLIDS_LINK_TYPE, 'None', sFile)
-   if sAuxSolidsLinkType == 'None' then
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_LINK_TYPE, LINK_TYPE.NONE)
-   elseif sAuxSolidsLinkType == 'BiArc' then
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_LINK_TYPE, LINK_TYPE.BIARC)
-   else         -- 'Linear' 
-      EgtSetInfo( nPartId, KEY_AUX_SOLIDS_LINK_TYPE, LINK_TYPE.LINEAR)
-   end
-   
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_LINK_PARAM, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_SP_OFFSET, '0.0')
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_COASTING_LEN, EgtGetInfo( nPartId, KEY_COASTING_LEN, 'd'))
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_WIPE_LEN, EgtGetInfo( nPartId, KEY_WIPE_LEN, 'd'))
-   SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_WIPE_DIR, '0.0')
-end
-
----------------------------------------------------------------------
-local function RestoreSolidPosition( nPartId)
+local function RestoreOriginalPosition( nPartId)
    if not nPartId then return end
-   -- recupero vecchio movimento
-   local vtMove = EgtGetInfo( nPartId, KEY_MOVED_PART, 'v')
-   if vtMove then
-      vtMove = -vtMove
+   
+   -- correzione solo del solido ( progetti vecchi)
+   local vtMove1 = EgtGetInfo( nPartId, KEY_MOVED_PART, 'v')
+   if vtMove1 then
+      vtMove1 = - vtMove1
       EgtRemoveInfo( nPartId, KEY_MOVED_PART)
       local SolidLayId = EgtGetFirstNameInGroup( nPartId, PRINT_SOLID)
       if SolidLayId then
          local EntId = EgtGetFirstInGroup( SolidLayId)
          while EntId do
-            EgtMove( EntId, vtMove)
+            EgtMove( EntId, vtMove1, GDB_RT.GLOB)
             EntId = EgtGetNext( EntId) 
          end
       end
    end
+   
+   -- correzione dell'intero pezzo
+   local vtMove = EgtGetInfo( nPartId, KEY_MOVED_PART2, 'v')
+   if vtMove then
+      EgtRemoveInfo( nPartId, KEY_MOVED_PART2)
+      EgtMove( nPartId, - vtMove, GDB_RT.GLOB)
+      -- sistemo il riferimento
+      local nFrameId = EgtGetFirstNameInGroup( nPartId, LAY_FRAME)
+      EgtMove( nFrameId, vtMove, GDB_RT.GLOB)
+   end
 end
 
 ---------------------------------------------------------------------
@@ -210,6 +66,26 @@ local function RemoveOldSlices( nPartId)
          EgtErase( vOldSliceId[i])
       end
    end
+   
+   -- rimuovo gruppo con i loop dei setti
+   local nRibsLoopsGrp = EgtGetFirstNameInGroup( nPartId, RIBS_LOOP_GRP)
+   if nRibsLoopsGrp then
+      EgtErase( nRibsLoopsGrp)
+   end
+   
+   -- rimuovo eventuali gruppi di infill (anche per aux solids)
+   local nInfillId = EgtGetFirstNameInGroup( nPartId, INFILL_GRP .. '*')
+   while nInfillId do
+      EgtErase( nInfillId)
+      nInfillId = EgtGetFirstNameInGroup( nPartId, INFILL_GRP .. '*')
+   end
+   
+   -- rimuovo gruppo per export
+   local nExportGrpId = EgtGetFirstNameInGroup( GDB_ID.ROOT, LAY_EXPORT)
+   if nExportGrpId then
+      EgtErase( nExportGrpId)
+   end
+   
 end
 
 ---------------------------------------------------------------------
@@ -274,78 +150,56 @@ function RunSlicing.Exec()
    end
    local nSolidLayId = EgtGetFirstNameInGroup( nPartId, PRINT_SOLID)
    local nStmId = EgtGetFirstInGroup( nSolidLayId or GDB_ID.NULL)
-   if not nStmId or EgtGetType( nStmId) ~= GDB_TY.SRF_MESH then
-      EgtOutBox( "Part without surface!", 'Warning', 'WARNING')
-      return
+   if nStmId and EgtGetType( nStmId) ~= GDB_TY.SRF_MESH then
+       EgtOutBox( "Part without surface!", 'Warning', 'WARNING')
+       return
    end
    local nRibsLayId = EgtGetFirstNameInGroup( nPartId, LAY_RIBS)
    local nShellNbrLay = EgtGetFirstNameInGroup( nPartId, LAY_SHELL_NBR)
    local nAuxSolidsLay = EgtGetFirstNameInGroup( nPartId, LAY_AUX_SOLIDS)
    local nStartLayId = EgtGetFirstNameInGroup( nPartId, LAY_MACH_START)
-
-   local sParamFile
-   if not PRINT or PRINT.PROGRAM ~= 1 then
-      --Scelta del file dei parametri
-      local sPrevParamFile = EgtGetInfo( nPartId, KEY_PARAMS)
-      if not sPrevParamFile or not EgtExistsFile( sPrevParamFile) then
-         local sLastParamFile = EgtGetStringFromIni( '3dPrinting', 'ParamFile', '', EgtGetIniFile())
-         local sDir = EgtSplitPath( sLastParamFile)
-         sPrevParamFile = sDir..'*.ini'
-      end
-      sParamFile = EgtFileDialog( true, sPrevParamFile, 'Param Files (*.ini)|*.ini||') 
-      if not sParamFile then
-         EgtOutBox( 'No param file selected', 'Warning', 'WARNING')
-         return 
-      end
-      EgtWriteStringToIni( '3dPrinting', 'ParamFile', sParamFile, EgtGetIniFile())
-   end
-   
-   -- Elimino eventuale precedente file dei risultati
-   if not PRINT or PRINT.PROGRAM ~= 1 then
-      local sResultFile = EgtChangePathExtension( sCurrProjectPath, '.csv')
-      EgtEraseFile( sResultFile)
-   end
-
+  
    -- Elimino eventuale precedente lavorazione
    EgtSetCurrMachGroup()
    EgtRemoveAllOperations()
    EgtResetCurrMachGroup()
 
-   -- Lettura dei parametri 
-   if not PRINT or PRINT.PROGRAM ~= 1 then
-      LoadParams( sParamFile, nPartId)
-   end
-   -- Lettura dati macchina
-   local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
-   local HMax = tonumber( EgtGetStringFromIni( '3dPrinting', 'HMax', 500, sMachIni))
-
-   -- Eventuale ripristino posizione solido
-   RestoreSolidPosition( nPartId)
+   -- Eventuale ripristino posizione originaria
+   RestoreOriginalPosition( nPartId)
    
    -- Rimozione vecchi conti
    RemoveOldSlices( nPartId)
 
    -- Rimozione vecchi TFS
    RemoveOldTFS()
-
+  
    -- Calcolo delle fette
-   CSLICES.Exec( nPartId, nStmId, HMax)
+   local bOk = CSLICES.Exec( nPartId, nStmId)
    EgtDraw()
 
    -- Calcolo dei percorsi sul centro strand in basso
-   CPATHS.Exec( nPartId, nStmId)
+   bOk = bOk and CPATHS.Exec( nPartId)
    EgtDraw()
 
    -- Calcolo dei percorsi di lavoro
-   CTP.Exec( nPartId)
+   bOk = bOk and CTP.Exec( nPartId)
    EgtDraw()
 
    -- Calcolo dei solidi degli strand a partire dai percorsi di lavoro
    local bCalcSolids = EgtGetInfo( nPartId, KEY_CALC_SOLIDS, 'b')
    EgtRemoveInfo( nPartId, KEY_HAS_SOLIDS)
-   if bCalcSolids then
+   if bCalcSolids and bOk then
       CSOLIDS.Exec( nPartId)
    end
+ 
+   if not bOk then
+      -- eventuale ripristino posizione originaria
+      RestoreOriginalPosition( nPartId)
+      -- rimozione vecchi conti
+      RemoveOldSlices( nPartId)
+      EgtDraw()
+      return false
+   end
    
    EgtSetStatus( nSolidLayId, GDB_ST.OFF)
    EgtSetStatus( nRibsLayId or GDB_ID.NULL, GDB_ST.OFF)
@@ -356,7 +210,8 @@ function RunSlicing.Exec()
    
    -- Aggiorno impostazioni di visibilita' per ShowManager
    SetViewInfo( bCalcSolids)
-
+   
+   return true
 end
 
 ---------------------------------------------------------------------

LuaLibs/RunViewManager.lua

@@ -1,195 +0,0 @@
--- RunViewManager.lua by Egaltech s.r.l. 2022/07/03
--- Gestione visualizzazione per Stampa 3d
-
--- Tabella per definizione modulo
-local RunViewManager = {}
-
--- Intestazioni
-require( 'EgtBase')
-
-EgtOutLog( ' RunViewManager started', 1)
-
--- Costanti generali
-local AMD = require( 'AddManData')
-
----------------------------------------------------------------------
-local function CalcShow( nShellView, nType)
-   if nShellView == SHELL_VIEW_TYPE.OUTER then
-      return ( nType == TYPE.OUTER_SHELL or nType == TYPE.EXTRA_OUTER_SHELL)
-   elseif nShellView == SHELL_VIEW_TYPE.INNER then
-      return ( nType == TYPE.INNER_SHELL)
-   elseif nShellView == SHELL_VIEW_TYPE.INFILL then
-      return ( nType == TYPE.INFILL)
-   else --nShellView == SHELL_VIEW_TYPE.ALL
-      return true
-   end
-end
-
----------------------------------------------------------------------
-local function CalcType( nEntId, nOldType)
-   local nType = EgtGetInfo( nEntId, KEY_TYPE, 'i')
-   if not nType or nType == TYPE.LINK or nType == TYPE.COASTING  or nType == TYPE.WIPE then
-      nType = nOldType
-   end
-   if nType == TYPE.RIB or nType == TYPE.AUX_SOLID then
-      nType = TYPE.INFILL
-   end
-   if nType == TYPE.EXTRA_SHELL then
-      nType = TYPE.INNER_SHELL
-   end
-   return nType
-end
-
----------------------------------------------------------------------
-function RunViewManager.Exec()
-   local nVisibilityMode = LAYER_VIEW_TYPE.ALL     -- 1 = All, 2 = Till Selected, 3 = Only Selected, 4 = From Selected
-   local nShellType = SHELL_VIEW_TYPE.ALL          -- 1 = All, 2 = Outer, 3 = Inner, 4 = infill
-   local nOldSelLayerId = GDB_ID.NULL
-   
-   -- leggo ultimi valori
-   local nViewId = EgtGetFirstNameInGroup( GDB_ID.ROOT, VIEWPARAMS)
-   if nViewId then
-      nVisibilityMode = EgtGetInfo( nViewId, KEY_LAYER_VIEW, 'i')
-      nShellType = EgtGetInfo( nViewId, KEY_SHELL_VIEW, 'i')
-      nOldSelLayerId = EgtGetInfo( nViewId, KEY_SEL_LAYER, 'i') or GDB_ID.NULL
-   end
-   local sLayerViewCombo = ''
-   if nVisibilityMode == LAYER_VIEW_TYPE.TILL_SEL then
-      sLayerViewCombo = 'CB:All,*Till Selected,Only Selected,From Selected'
-   elseif nVisibilityMode == LAYER_VIEW_TYPE.ONLY_SEL then
-      sLayerViewCombo = 'CB:All,Till Selected,*Only Selected,From Selected'
-   elseif nVisibilityMode == LAYER_VIEW_TYPE.FROM_SEL then
-      sLayerViewCombo = 'CB:All,Till Selected,Only Selected,*From Selected'
-   else
-      sLayerViewCombo = 'CB:*All,Till Selected,Only Selected,From Selected'
-   end
-   local sShellViewCombo = ''
-   if nShellType == SHELL_VIEW_TYPE.OUTER then
-      sShellViewCombo = 'CB:All,*Outer,Inner,Infill'
-   elseif nShellType == SHELL_VIEW_TYPE.INNER then
-      sShellViewCombo = 'CB:All,Outer,*Inner,Infill'
-   elseif nShellType == SHELL_VIEW_TYPE.INFILL then
-      sShellViewCombo = 'CB:All,Outer,Inner,*Infill'
-   else
-      sShellViewCombo = 'CB:*All,Outer,Inner,Infill'
-   end
-   
-   ViewValues = EgtDialogBox( 'Slicing visibility manager', { 'Visibility Mode', sLayerViewCombo},
-                                                            { 'Shell type', sShellViewCombo})
-   if not ViewValues or #ViewValues < 2 then return end
-
-   if ViewValues[1] == 'All' then
-      nVisibilityMode = LAYER_VIEW_TYPE.ALL
-   elseif ViewValues[1] == 'Till Selected' then
-      nVisibilityMode = LAYER_VIEW_TYPE.TILL_SEL
-   elseif ViewValues[1] == 'Only Selected' then
-      nVisibilityMode = LAYER_VIEW_TYPE.ONLY_SEL
-   elseif ViewValues[1] == 'From Selected' then
-      nVisibilityMode = LAYER_VIEW_TYPE.FROM_SEL
-   end
-   if ViewValues[2] == 'All' then
-      nShellType = SHELL_VIEW_TYPE.ALL
-   elseif ViewValues[2] == 'Outer' then
-      nShellType = SHELL_VIEW_TYPE.OUTER
-   elseif ViewValues[2] == 'Inner' then
-      nShellType = SHELL_VIEW_TYPE.INNER
-   elseif ViewValues[2] == 'Infill' then
-      nShellType = SHELL_VIEW_TYPE.INFILL
-   end
-
-   -- Recupero ultimo layer selezionato
-   -- verifico sia un pezzo valido
-   local sSelLayerName = ''
-   local bFound = false
-   local nSelLayerId = EgtGetLastSelectedObj() 
-   while nSelLayerId do
-      local sSelLayerName = EgtGetName( nSelLayerId)
-      if sSelLayerName and ( sSelLayerName:sub(1, 5) == SLICE_LAYER or sSelLayerName:sub(3, 7) == SLICE_LAYER) then
-         bFound = true
-         break
-      end
-      nSelLayerId = EgtGetParent( nSelLayerId)
-   end
-   if not bFound then
-      if nOldSelLayerId and nOldSelLayerId ~= GDB_ID.NULL then
-         nSelLayerId = nOldSelLayerId
-      else
-         if nVisibilityMode ~= LAYER_VIEW_TYPE.ALL then
-            EgtOutBox( 'No selected element!', 'Warning', 'WARNING')
-            return
-         else
-            nSelLayerId = GDB_ID.NULL
-            sSelLayerName = ''
-         end
-      end
-   end
-
-   -- ciclo sui pezzi
-   local nPartIndex = 1
-   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) 
-   while nPartId do
-      -- ciclo sui layer per dis/attivare il resto
-      local nLayerIndex = 1
-      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
-      while nLayerId do
-         if nVisibilityMode == LAYER_VIEW_TYPE.ALL then
-            EgtSetStatus( nLayerId, GDB_ST.ON)
-         elseif nVisibilityMode == LAYER_VIEW_TYPE.TILL_SEL then
-            EgtSetStatus( nLayerId, EgtIf( nLayerId <= nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
-         elseif nVisibilityMode == LAYER_VIEW_TYPE.ONLY_SEL then
-            EgtSetStatus( nLayerId, EgtIf( nLayerId == nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
-         elseif nVisibilityMode == LAYER_VIEW_TYPE.FROM_SEL then
-            EgtSetStatus( nLayerId, EgtIf( nLayerId >= nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
-         end
-         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
-         while nCrvId do
-            ----
-            local nOldType = TYPE.OUTER_SHELL
-            local nPathId = EgtGetFirstNameInGroup( nCrvId, PATH_GRP)
-            local nShellId = EgtGetFirstInGroup( nPathId)
-            while nShellId do
-               local nType = CalcType( nShellId, nOldType)
-               nOldType = nType
-               EgtSetStatus( nShellId, EgtIf( CalcShow( nShellType, nType), GDB_ST.ON, GDB_ST.OFF))
-               nShellId = EgtGetNext( nShellId)
-            end
-            ----
-            nOldType = TYPE.OUTER_SHELL
-            local nSolidId = EgtGetFirstNameInGroup( nCrvId, SOLID_GRP)
-            local nSurfId = EgtGetFirstInGroup( nSolidId)
-            while nSurfId do
-               local nType = CalcType( nSurfId, nOldType)
-               nOldType = nType
-               EgtSetStatus( nSurfId, EgtIf( CalcShow( nShellType, nType), GDB_ST.ON, GDB_ST.OFF))
-               nSurfId = EgtGetNext( nSurfId)
-            end
-            ----
-            nOldType = TYPE.OUTER_SHELL
-            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
-            nShellId = EgtGetFirstInGroup( nToolPathId)
-            while nShellId do
-               local nType = CalcType( nShellId, nOldType)
-               nOldType = nType
-               EgtSetStatus( nShellId, EgtIf( CalcShow( nShellType, nType), GDB_ST.ON, GDB_ST.OFF))
-               nShellId = EgtGetNext( nShellId)
-            end
-            nCrvId = EgtGetNext( nCrvId)
-         end
-         nLayerIndex = nLayerIndex + 1
-         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
-      end
-      nPartIndex = nPartIndex + 1
-      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
-   end
-
-   -- riporto impostazioni in gruppo apposito
-   EgtSetInfo( nViewId, KEY_LAYER_VIEW, nVisibilityMode)
-   EgtSetInfo( nViewId, KEY_SHELL_VIEW, nShellType)
-   EgtSetInfo( nViewId, KEY_SEL_LAYER, nSelLayerId)
-
-   EgtDraw()
-
-end
-
----------------------------------------------------------------------
-return RunViewManager

MachiningParamCalc.lua

@@ -1,18 +0,0 @@
--- MachiningParamCalc.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunMachiningParamCalc = nil
-local RMPC = require( 'RunMachiningParamCalc')
-
--- Calcolo
-RMPC.Exec()

MachiningParamEdit.lua

@@ -1,18 +0,0 @@
--- MachiningParamCalc.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunMachiningParamEdit = nil
-local RMPE = require( 'RunMachiningParamEdit')
-
--- Calcolo
-RMPE.Exec()

MaterialParamEdit.lua

@@ -1,18 +0,0 @@
--- MachiningParamCalc.lua by Egaltech s.r.l. 2022/04/09
--- Gestione edit parametri materiali per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunMaterialParamEdit = nil
-local RMPE = require( 'RunMaterialParamEdit')
-
--- Calcolo
-RMPE.Exec()

PartPositioning.lua

@@ -1,20 +0,0 @@
--- PlacePart.lua by Egaltech s.r.l. 2022/04/11
--- Gestione calcolo disposizione e lavorazioni per stampa 3d
--- 2022/03/21 Creazione file
-
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunPartPositioning = nil
-local RPP = require( 'RunPartPositioning')
-
--- Calcolo
-RPP.Exec()

PrepareExport.lua

@@ -0,0 +1,17 @@
+-- PrepareExport.lua by Egaltech s.r.l. 2023/10/19
+-- Creo le geometrie da esportare con 3dm
+
+-- Intestazioni
+require( 'EgtBase')
+_ENV = EgtProtectGlobal()
+EgtEnableDebug( false)
+
+-- Imposto direttorio libreria specializzata per Stampa 3d
+EgtAddToPackagePath( PRINT.BASEDIR .. '\\LuaLibs\\?.lua')
+
+-- Librerie
+_G.package.loaded.RunPrepareExport = nil
+local RPE = require( 'RunPrepareExport')
+
+-- Calcolo
+PRINT.EXPORTLAYER = RPE.Exec()

ShowManager.lua

@@ -1,18 +0,0 @@
--- ShowManager.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunShowManager = nil
-local RSM = require( 'RunShowManager')
-
--- Calcolo
-RSM.Exec()

SliceAdvancement.lua

@@ -1,18 +0,0 @@
--- SliceAdvancement.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunSliceAdvancement = nil
-local RSA = require( 'RunSliceAdvancement')
-
--- Calcolo
-RSA.Exec()

SlicePalette.lua

@@ -1,18 +0,0 @@
--- SlicePalette.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunSlicePalette = nil
-local RSP = require( 'RunSlicePalette')
-
--- Calcolo
-RSP.Exec()

Slicing.lua

@@ -1,4 +1,4 @@
--- Slicing.lua by Egaltech s.r.l. 2022/03/30
+-- Slicing.lua by Egaltech s.r.l. 2023/01/11
 -- Calcoli prima fase per Stampa 3d
 
 -- Intestazioni
@@ -7,8 +7,7 @@ _ENV = EgtProtectGlobal()
 EgtEnableDebug( false)
 
 -- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
+EgtAddToPackagePath( PRINT.BASEDIR .. '\\LuaLibs\\?.lua')
 
 -- Librerie
 _G.package.loaded.RunSlicing = nil

Version.lua

@@ -0,0 +1,4 @@
+-- Version.lua by Egaltech s.r.l. 2026/05/04
+-- Gestione della versione di 3dPrinting
+
+VERSION = '3.1e1'

ViewManager.lua

@@ -1,18 +0,0 @@
--- ViewManager.lua by Egaltech s.r.l. 2022/04/05
--- Gestione visualizzazione per Stampa 3d
-
--- Intestazioni
-require( 'EgtBase')
-_ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
-
--- Imposto direttorio libreria specializzata per Stampa 3d
-local sBaseDir = EgtGetSourceDir()
-EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
-
--- Librerie
-_G.package.loaded.RunViewManager = nil
-local RVM = require( 'RunViewManager')
-
--- Calcolo
-RVM.Exec()