EgtCAM5 :

- Migliorie SetUp.
- Migliorie simulazione.

ToolsDbWindow/ToolsDbViewModel.vb

@@ -263,6 +263,25 @@ Namespace EgtCAM5
                                                                  Next
                                                               Next
                                                            End Sub)
+         ' carico Lua che contiene le funzioni di attrezzaggio
+         EgtLuaExecFile(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA)
+         ' creo lista TcPos
+         Dim nPosIndex As Integer = 1
+         Dim sTcPos As String = String.Empty
+         Dim nErr As Integer = 0
+         While nErr = 0
+            EgtLuaSetGlobIntVar("STU.INDEX", nPosIndex)
+            EgtLuaCallFunction("STU.GetTcPosFromPos")
+            ' Leggo variabili
+            EgtLuaGetGlobStringVar("STU.TCPOS", sTcPos)
+            EgtLuaGetGlobIntVar("STU.ERR", nErr)
+            If nErr = 0 Then
+               ToolTreeViewItem.m_TcPosList.Add(sTcPos)
+            End If
+            nPosIndex += 1
+         End While
+         ' Reset lua
+         EgtLuaResetGlobVar("STU")
 
       End Sub