Emmanuele Sassi
185293847f
- impostazione struttura programma - esecuzione slicing - gestione lavorazione e materiali - importazione migliorata
52 lines
2.2 KiB
VB.net
52 lines
2.2 KiB
VB.net
Imports EgtBEAMWALL.Core
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Module LuaExec
|
|
|
|
Friend Function ExecSlice(bSlice As Boolean, bCalcTFS As Boolean) As Boolean
|
|
EgtOutLog("-- Start ExecSlice --")
|
|
' eseguo slice
|
|
If bSlice Then Map.refSceneHostVM.ExecScript(Map.refMainWindowVM.MainWindowM.s3dPrintingDir & "\Slicing.lua")
|
|
If Not bCalcTFS Then Return True
|
|
' eseguo calcolo T,F,S da parametri materiale
|
|
Dim sExecPath As String = Map.refMainWindowVM.MainWindowM.s3dPrintingDir & "\LuaLibs\CalcMachParamFromSW.lua"
|
|
If Not My.Computer.FileSystem.FileExists(sExecPath) Then
|
|
EgtOutLog("Not found 3DPrint script " & sExecPath)
|
|
Return False
|
|
End If
|
|
' Assegno i dati
|
|
Dim SelMaterialParam As Material = Map.refTopPanelVM.GetSelMaterialData()
|
|
EgtLuaCreateGlobTable("MATERIAL")
|
|
EgtLuaSetGlobNumVar("MATERIAL.K", SelMaterialParam.dK)
|
|
EgtLuaSetGlobNumVar("MATERIAL.C1", SelMaterialParam.dC1)
|
|
EgtLuaSetGlobNumVar("MATERIAL.C2", SelMaterialParam.dC2)
|
|
EgtLuaSetGlobNumVar("MATERIAL.Density", SelMaterialParam.dDensity)
|
|
EgtLuaSetGlobNumVar("MATERIAL.AMax", SelMaterialParam.dAMax)
|
|
EgtLuaSetGlobNumVar("MATERIAL.ATrg", SelMaterialParam.dATrg)
|
|
EgtLuaSetGlobNumVar("MATERIAL.AMin", SelMaterialParam.dAMin)
|
|
EgtLuaSetGlobNumVar("MATERIAL.BMax", SelMaterialParam.dBMax)
|
|
EgtLuaSetGlobNumVar("MATERIAL.BTrg", SelMaterialParam.dBTrg)
|
|
EgtLuaSetGlobNumVar("MATERIAL.BMin", SelMaterialParam.dBMin)
|
|
EgtLuaSetGlobNumVar("MATERIAL.KW", SelMaterialParam.dKW)
|
|
EgtLuaSetGlobNumVar("MATERIAL.KZ", SelMaterialParam.dKZ)
|
|
EgtLuaSetGlobNumVar("MATERIAL.KN", SelMaterialParam.dKN)
|
|
' Eseguo lo script
|
|
Dim bOk As Boolean = False
|
|
If EgtLuaExecFile(sExecPath) Then
|
|
' Recupero i risultati
|
|
Dim nErr As Integer = 999
|
|
EgtLuaGetGlobIntVar("MATERIAL.ERR", nErr)
|
|
bOk = (nErr <= 0)
|
|
If Not bOk Then EgtOutLog("ExecSlice Err=" & nErr.ToString())
|
|
Else
|
|
EgtOutLog("Error executing Slice Exec script " & sExecPath)
|
|
Return False
|
|
End If
|
|
' Cancello tavola globale
|
|
EgtLuaResetGlobVar("MATERIAL")
|
|
Return bOk
|
|
End Function
|
|
|
|
End Module
|