icarus/Icarus/Utility/CurrentMachine.vb

Imports System.Collections.ObjectModel
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5

Public Module CurrentMachine

   Private m_Salt As String = "3,1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679"

   ' Nome macchina corrente
   Private m_sMachineName As String = String.Empty
   Friend ReadOnly Property sMachineName As String
      Get
         Return m_sMachineName
      End Get
   End Property
   ' Direttorio macchina corrente
   Private m_sMachDir As String = String.Empty
   Friend ReadOnly Property sMachDir As String
      Get
         Return m_sMachDir
      End Get
   End Property
   ' File ini della macchina
   Private m_sMachIniFile As String = String.Empty
   Friend ReadOnly Property sMachIniFile As String
      Get
         Return m_sMachIniFile
      End Get
   End Property
   ' File ini dei dati della macchina
   Private m_sMachDataIniFile As String = String.Empty
   Friend ReadOnly Property sMachDataIniFile As String
      Get
         Return m_sMachDataIniFile
      End Get
   End Property
   ' File script della macchina
   Private m_sMachScriptDir As String = String.Empty
   Friend ReadOnly Property sMachScriptDir As String
      Get
         Return m_sMachScriptDir
      End Get
   End Property
   ' Cartella delle lavorazioni
   Private m_sMachiningFilePath As String = String.Empty
   Friend ReadOnly Property sMachiningFilePath As String
      Get
         Return m_sMachiningFilePath
      End Get
   End Property
   Friend Sub SetMachiningFilePath(sValue As String)
      m_sMachiningFilePath = sValue
   End Sub
   ' Cartella dei materiali
   Private m_sMaterialFilePath As String = String.Empty
   Friend ReadOnly Property sMaterialFilePath As String
      Get
         Return m_sMaterialFilePath
      End Get
   End Property
   Friend Sub SetMaterialFilePath(sValue As String)
      m_sMaterialFilePath = sValue
   End Sub

   ' box della tavola macchina
   Private m_b3Tab As New BBox3d
   Friend ReadOnly Property b3Tab As BBox3d
      Get
         Return m_b3Tab
      End Get
   End Property

   ' box dell'area di estrusione
   Private m_b3ExtrusionArea As New BBox3d
   Friend ReadOnly Property b3ExtrusionArea As BBox3d
      Get
         Return m_b3ExtrusionArea
      End Get
   End Property

   ' altezza massima di estrusione impostata in file ini macchina
   Private m_dSlicingMaxHeight As Double
   Public ReadOnly Property dSlicingMaxHeight As Double
      Get
         Return m_dSlicingMaxHeight
      End Get
   End Property

#Region "Init"

   Sub InitCurrentMachine(sMachinesRootDir As String, sMachineName As String)
      ' Nome macchina corrente
      m_sMachineName = sMachineName
      ' Impostazione direttorio macchina
      m_sMachDir = sMachinesRootDir & "\" & sMachineName
      ' Impostazione path MachIni file
      m_sMachIniFile = sMachinesRootDir & "\" & sMachineName & "\" & sMachineName & ".ini"
      ' Impostazione path MachData Ini file
      m_sMachDataIniFile = sMachinesRootDir & "\" & sMachineName & "\" & "CustomData" & "\" & MACHDATA_INI_FILE_NAME
      If Not File.Exists(m_sMachDataIniFile) Then m_sMachDataIniFile = ""
      ' impostazione cartella script
      m_sMachScriptDir = sMachinesRootDir & "\" & sMachineName & "\Scripts"
      ' impostazione cartella lavorazioni
      m_sMachiningFilePath = sMachinesRootDir & "\" & sMachineName & "\Machinings\Machinings.ini"
      ' impostazione cartella materiali
      m_sMaterialFilePath = sMachinesRootDir & "\" & sMachineName & "\Materials\Materials.ini"
      ' leggo altezza massima estrusione impostata su macchina
      m_dSlicingMaxHeight = GetPrivateProfileDouble(S_MACH_PRINTING3D, K_MAX_HEIGHT, 900, m_sMachIniFile)
      ' Disabilito segnalazione modificato
      Dim DisableMgr As New DisableModifiedMgr
      ' recupero box macchina
      Dim nQqqId = EgtAddMachGroup("qqq")
      EgtSetTable("Tab")
      EgtGetTableArea(1, m_b3Tab)
      EgtResetCurrMachGroup()
      EgtRemoveMachGroup(nQqqId)
      ' carico materiali e lavorazioni
      Map.refTopPanelVM.InitMaterialList()
      Map.refMaterialDbVM.Init()
      Map.refTopPanelVM.InitMachiningsList()
      Map.refMachiningDbVM.Init()
      ' Ripristino stato segnalazione modifica
      DisableMgr.ReEnable()
   End Sub

#End Region 'Init

#Region "Methods"

   Public Sub CreateMachineTable()
      ' Disabilito segnalazione modificato
      Dim DisableMgr As New DisableModifiedMgr
      Dim dTabX = b3Tab.DimX
      Dim dTabY = b3Tab.DimY()
      ' Disegno tavola
      Dim nTabPartId As Integer = EgtCreateGroup(GDB_ID.ROOT)
      EgtSetLevel(nTabPartId, GDB_LV.SYSTEM)
      EgtSetMode(nTabPartId, GDB_MD.LOCKED)
      EgtSetStatus(nTabPartId, GDB_ST.ON_)
      EgtSetName(nTabPartId, TABLE)
      Dim nTabLayerId As Integer = EgtCreateGroup(nTabPartId)
      EgtSetName(nTabLayerId, TABLE)
      Dim nTabOutlineId As Integer = EgtCreateRectangle2P(nTabLayerId, New Point3d(0, 0, 0), New Point3d(dTabX, dTabY, 0))
      EgtSetName(nTabOutlineId, TABLE_OUTLINE)
      ' scrivo il  nome macchina sulla tavola
      EgtSetInfo(nTabPartId, KEY_MACHINE_NAME, CurrentMachine.sMachineName)
      ' scrivo materiale sulla tavola
      If Not IsNothing(Map.refTopPanelVM.SelMaterial) Then
         EgtSetInfo(nTabPartId, KEY_MATERIAL_GUID, Map.refTopPanelVM.SelMaterial.sGUID)
         EgtSetInfo(nTabPartId, KEY_MATERIAL_NAME, Map.refTopPanelVM.SelMaterial.sName)
      End If
      '' creo area di estrusione
      UpdateExtrusionArea()
      ' Ripristino stato segnalazione modifica
      DisableMgr.ReEnable()
   End Sub

   Public Sub UpdateExtrusionArea()
      Dim DisableMgr As New DisableModifiedMgr
      ' recupero eventuale vecchia area di estrusione
      Dim nTabPartId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, TABLE)
      Dim nTabLayerId As Integer = EgtGetFirstNameInGroup(nTabPartId, TABLE)
      Dim nExtrusionAreaId As Integer = EgtGetFirstNameInGroup(nTabLayerId, EXTRUSION_AREA)
      If nExtrusionAreaId <> GDB_ID.NULL Then EgtErase(nExtrusionAreaId)
      Dim nExtrusionRectId As Integer = EgtGetFirstNameInGroup(nTabLayerId, EXTRUSION_RECT)
      If nExtrusionRectId <> GDB_ID.NULL Then EgtErase(nExtrusionRectId)
      ' se lavorazione corrente nulla, esco
      If IsNothing(Map.refTopPanelVM.CurrMachining) Then
         DisableMgr.ReEnable() 
         Return
      End If
      ' se non esiste file dati macchina, esco
      If String.IsNullOrWhiteSpace(m_sMachDataIniFile) Then
         DisableMgr.ReEnable()
         Return
      End If
      ' recupero tipo di slice
      Dim sExtrusionType As String = S_VERTICAL
      Dim GeneralCathegory As MachiningCathegory = Map.refTopPanelVM.CurrMachining.CathegoryList.FirstOrDefault(Function(x) x.Type = MachiningCathegory.Cathegories.GENERAL)
      Dim SlicingTypeParam As ComboMachiningParam = GeneralCathegory.MachiningParamList.FirstOrDefault(Function(x) x.Type = MachiningParam.Params.SLICINGTYPE)
      Dim SlicingTypeValue As Machining.MPAR_SLICINGTYPE = SlicingTypeParam.SelValue.Id
      Select Case SlicingTypeValue
         Case Machining.MPAR_SLICINGTYPE.VERTICAL
            sExtrusionType = S_VERTICAL
         Case Machining.MPAR_SLICINGTYPE.DEG45
            sExtrusionType = S_45DEGX
         Case Machining.MPAR_SLICINGTYPE.DEG45_Y
            sExtrusionType = S_45DEGY
         Case Machining.MPAR_SLICINGTYPE.HORIZONTAL
            sExtrusionType = S_HORIZONTAL
      End Select
      Dim dExtrXMax = GetPrivateProfileDouble(sExtrusionType, K_MAXX, 0, m_sMachDataIniFile)
      Dim dExtrXMin = GetPrivateProfileDouble(sExtrusionType, K_MINX, 0, m_sMachDataIniFile)
      Dim dExtrYMax = GetPrivateProfileDouble(sExtrusionType, K_MAXY, 0, m_sMachDataIniFile)
      Dim dExtrYMin = GetPrivateProfileDouble(sExtrusionType, K_MINY, 0, m_sMachDataIniFile)
      Const AREA_WIDTH As Double = 10
      Dim nAuxRectId As Integer = EgtCreateRectangle2P(nTabLayerId, New Point3d(dExtrXMin - AREA_WIDTH, dExtrYMin - AREA_WIDTH, 0), New Point3d(dExtrXMax + AREA_WIDTH, dExtrYMax + AREA_WIDTH, 0))
      nExtrusionRectId = EgtCreateRectangle2P(nTabLayerId, New Point3d(dExtrXMin, dExtrYMin, 0), New Point3d(dExtrXMax, dExtrYMax, 0))
      nExtrusionAreaId = EgtCreateSurfTmByRegion( nTabLayerId, { nAuxRectId, nExtrusionRectId}, EPS_STM)
      EgtErase( nAuxRectId)
      Dim c3Temp As New Color3d
      c3Temp.FromColor(System.Drawing.Color.Lime)
      EgtSetColor(nExtrusionAreaId, c3Temp)
      EgtSetName(nExtrusionAreaId, EXTRUSION_AREA)
      EgtSetColor(nExtrusionRectId, c3Temp)
      EgtSetName(nExtrusionRectId, EXTRUSION_RECT)
      m_b3ExtrusionArea = New BBox3d(New Point3d(dExtrXMin, dExtrYMin, 0), New Point3d(dExtrXMax, dExtrYMax, 0))
      DisableMgr.ReEnable()
      EgtDraw()
   End Sub

   Friend Function ReadMachiningParamString(lpAppName As String, lpKeyName As String, lpDefault As String, ByRef lpString As String, Optional sFilePath As String = "") As Integer
      Dim nResult As Integer = GetPrivateProfileString(lpAppName, lpKeyName, "", lpString, If(Not String.IsNullOrWhiteSpace(sFilePath), sFilePath, m_sMachiningFilePath))
      If Not String.IsNullOrWhiteSpace(lpString) Then
         lpString = EgwCrypto.PowerDecryptString(lpString, m_Salt)
      Else
         lpString = lpDefault
      End If
      Return nResult
   End Function

   Friend Function ReadMachiningParamSplit(lpAppName As String, lpKeyName As String, lpDefault As String, ByRef lpString As String, Optional sFilePath As String = "") As Integer
      Dim nResult As Integer = GetPrivateProfileString(lpAppName, lpKeyName, "", lpString, If(Not String.IsNullOrWhiteSpace(sFilePath), sFilePath, m_sMachiningFilePath))
      If Not String.IsNullOrWhiteSpace(lpString) Then
         Dim Values() As String = lpString.Split(";"c)
         Dim sCryptoValues As String = ""
         For ValueIndex = 0 To Values.Count - 1
            sCryptoValues += EgwCrypto.PowerDecryptString(Values(ValueIndex), m_Salt) & If(ValueIndex < Values.Count - 1, ";", "")
         Next
         lpString = sCryptoValues
      Else
         lpString = lpDefault
      End If
      Return nResult
   End Function

   Friend Function ReadMachiningParamDouble(lpAppName As String, lpKeyName As String, dDefault As Double, Optional sFilePath As String = "") As Double
      Dim sParam As String = ""
      Dim dParam As Double = dDefault
      ReadMachiningParamString(lpAppName, lpKeyName, dDefault, sParam, sFilePath)
      StringToDouble(sParam, dParam)
      Return dParam
   End Function

   Friend Function WriteMachiningParam(lpAppName As String, lpKeyName As String, lpString As String, Optional sFilePath As String = "") As Boolean
      Return WritePrivateProfileString(lpAppName, lpKeyName, EgwCrypto.PowerEncryptString(lpString, m_Salt), If(Not String.IsNullOrWhiteSpace(sFilePath), sFilePath, m_sMachiningFilePath))
   End Function

   Friend Function WriteMachiningParamSplit(lpAppName As String, lpKeyName As String, lpString As String, Optional sFilePath As String = "") As Boolean
      If Not String.IsNullOrWhiteSpace(lpString) Then
         Dim Values() As String = lpString.Split(";"c)
         Dim sCryptoValues As String = ""
         For ValueIndex = 0 To Values.Count - 1
            sCryptoValues += EgwCrypto.PowerEncryptString(Values(ValueIndex), m_Salt) & If(ValueIndex < Values.Count - 1, ";", "")
         Next
         Return WritePrivateProfileString(lpAppName, lpKeyName, sCryptoValues, If(Not String.IsNullOrWhiteSpace(sFilePath), sFilePath, m_sMachiningFilePath))
      Else
         Return False
      End If
   End Function

   Friend Function ReadMaterialParamString(lpAppName As String, lpKeyName As String, lpDefault As String, ByRef lpString As String, Optional sFilePath As String = "") As Integer
      Dim nResult As Integer = GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, lpString, If(Not String.IsNullOrWhiteSpace(sFilePath), sFilePath, m_sMaterialFilePath))
      If Not String.IsNullOrWhiteSpace(lpString) Then
         lpString = EgwCrypto.PowerDecryptString(lpString, m_Salt)
      Else
         lpString = ""
      End If
      Return nResult
   End Function

   Friend Function ReadMaterialParamDouble(lpAppName As String, lpKeyName As String, dDefault As Double, Optional sFilePath As String = "") As Double
      Dim sParam As String = ""
      Dim dParam As Double = dDefault
      ReadMaterialParamString(lpAppName, lpKeyName, dDefault, sParam, sFilePath)
      StringToDouble(sParam, dParam)
      Return dParam
   End Function

   Friend Function WriteMaterialParam(lpAppName As String, lpKeyName As String, lpString As String, Optional sFilePath As String = "") As Boolean
      Return WritePrivateProfileString(lpAppName, lpKeyName, EgwCrypto.PowerEncryptString(lpString, m_Salt), If(Not String.IsNullOrWhiteSpace(sFilePath), sFilePath, m_sMaterialFilePath))
   End Function

#End Region 'Methods

End Module