EgtDOORCreator 1.1e1 :
-> gestione dell'unità di misura in fase di lettura delle configurazioni e dei parametri delle porta di default.
This commit is contained in:
Nicola Pievani
@@ -89,6 +89,8 @@ Friend Module OptionModule
|
||||
Friend m_Disposition As New EdgeType(ConstGen.BEVEL_BYSWING, Visibility.Visible)
|
||||
Friend m_sDisposition As String = ConstGen.BEVEL_BYSWING
|
||||
|
||||
Friend m_IsMM As Boolean = False
|
||||
|
||||
Friend m_ThicknessJamb As String
|
||||
Friend m_WidthJamb As String
|
||||
Friend m_LightUp As String
|
||||
@@ -283,18 +285,25 @@ Friend Module OptionModule
|
||||
If PropertyList.Count > 0 Then LoadPropertiesList(PropertyList, m_PropertListJamb)
|
||||
|
||||
' Leggo le dimensioni della porta dal file Default.ini
|
||||
Dim IsMM As Boolean = False
|
||||
DefaultGetMmUnits(ConstCompo.S_GENERALINI, ConstCompo.K_MMUNITSINI, IsMM)
|
||||
m_IsMM = IsMM
|
||||
|
||||
Dim Width As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZE_INI, K_WIDTH_INI, "32", Width)
|
||||
Utility.ConvertCompoConfig(Width, 500)
|
||||
m_Width = Width
|
||||
Dim dWidth As Double
|
||||
If StringToDouble(m_Width, dWidth) Then EgtLuaSetGlobNumVar("W", dWidth)
|
||||
Dim Height As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZE_INI, K_HEIGHT_INI, "80", Height)
|
||||
Utility.ConvertCompoConfig(Height, 500)
|
||||
m_Height = Height
|
||||
Dim dHeight As Double
|
||||
If StringToDouble(m_Height, dHeight) Then EgtLuaSetGlobNumVar("H", dHeight)
|
||||
Dim Thickness As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZE_INI, K_THICKNESS_INI, "1.75", Thickness)
|
||||
Utility.ConvertCompoConfig(Thickness, 100)
|
||||
m_Thickness = Thickness
|
||||
Dim dThickness As Double
|
||||
If StringToDouble(m_Thickness, dThickness) Then EgtLuaSetGlobNumVar("T", dThickness)
|
||||
@@ -375,15 +384,19 @@ Friend Module OptionModule
|
||||
' carico i valori di overmaterial
|
||||
Dim LockEdgeOverMaterial As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIAL, K_LOCKEDGEOVERMATERIAL_INI, "", LockEdgeOverMaterial)
|
||||
Utility.ConvertCompoConfig(LockEdgeOverMaterial, 100)
|
||||
m_LockEdgeOverMaterial = LockEdgeOverMaterial
|
||||
Dim HingeEdgeOverMaterial As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIAL, K_HINGEDGEOVERMATERIAL_INI, "", HingeEdgeOverMaterial)
|
||||
Utility.ConvertCompoConfig(HingeEdgeOverMaterial, 100)
|
||||
m_HingeEdgeOverMaterial = HingeEdgeOverMaterial
|
||||
Dim TopOverMaterial As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIAL, K_TOPOVERMATERIAL_INI, "", TopOverMaterial)
|
||||
Utility.ConvertCompoConfig(TopOverMaterial, 100)
|
||||
m_TopOverMaterial = TopOverMaterial
|
||||
Dim BottomOverMaterial As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIAL, K_BOTTOMOVERMATERIAL_INI, "", BottomOverMaterial)
|
||||
Utility.ConvertCompoConfig(BottomOverMaterial, 100)
|
||||
m_BottomOverMaterial = BottomOverMaterial
|
||||
' carico l'ordinamento delle componenti
|
||||
DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, DdfFile.CompoListOrder)
|
||||
@@ -429,22 +442,28 @@ Friend Module OptionModule
|
||||
|
||||
Dim ThicknessJamb As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZEJAMB, K_THICKNESS, "25", ThicknessJamb)
|
||||
Utility.ConvertCompoConfig(ThicknessJamb, 100)
|
||||
m_ThicknessJamb = ThicknessJamb
|
||||
Dim WidthJamb As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZEJAMB, K_WIDTH, "25", WidthJamb)
|
||||
Utility.ConvertCompoConfig(WidthJamb, 100)
|
||||
m_WidthJamb = WidthJamb
|
||||
|
||||
Dim LightUp As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTUP, "25", LightUp)
|
||||
Utility.ConvertCompoConfig(LightUp, 100)
|
||||
m_LightUp = LightUp
|
||||
Dim LightLock As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTLOCK, "25", LightLock)
|
||||
Utility.ConvertCompoConfig(LightLock, 100)
|
||||
m_LightLock = LightLock
|
||||
Dim LightHinge As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTHINGE, "25", LightHinge)
|
||||
Utility.ConvertCompoConfig(LightHinge, 100)
|
||||
m_LightHinge = LightHinge
|
||||
Dim LightBottom As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTBOTTOM, "25", LightBottom)
|
||||
Utility.ConvertCompoConfig(LightBottom, 100)
|
||||
m_LightBottom = LightBottom
|
||||
DefaultGetPrivateProfileList(S_DOORSNUMBER, K_DOORSLISTNUMBER, m_DoorsListNumber)
|
||||
Dim DoorsNumber As String = String.Empty
|
||||
@@ -452,21 +471,26 @@ Friend Module OptionModule
|
||||
m_DoorsNumber = DoorsNumber
|
||||
Dim ThicknessHead As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_THICKNESSHEAD, "0", ThicknessHead)
|
||||
Utility.ConvertCompoConfig(ThicknessHead, 100)
|
||||
m_ThicknessHead = ThicknessHead
|
||||
Dim OverlapHinge As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPHINGE, "0", OverlapHinge)
|
||||
Utility.ConvertCompoConfig(OverlapHinge, 100)
|
||||
m_OverlapHinge = OverlapHinge
|
||||
Dim OverlapLock As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPLOCK, "0", OverlapLock)
|
||||
Utility.ConvertCompoConfig(OverlapLock, 100)
|
||||
m_OverlapLock = OverlapLock
|
||||
Dim Exterior As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_OVERLAP, K_EXTERIOR, Exterior)
|
||||
m_Exterior = Exterior
|
||||
Dim OverlapTop As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPTOP, "0", OverlapTop)
|
||||
Utility.ConvertCompoConfig(OverlapTop, 100)
|
||||
m_OverlapTop = OverlapTop
|
||||
Dim DeltaT As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_DELTAT, "0", DeltaT)
|
||||
Utility.ConvertCompoConfig(DeltaT, 100)
|
||||
m_DeltaThickness = DeltaT
|
||||
|
||||
Dim TotalDim As Boolean = False
|
||||
@@ -474,9 +498,11 @@ Friend Module OptionModule
|
||||
m_TotalDimension = TotalDim
|
||||
Dim TotalH As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_TOTALDIMENSION, K_TOTALHEIGHT, "82", TotalH)
|
||||
Utility.ConvertCompoConfig(TotalH, 100)
|
||||
m_TotalHeight = TotalH
|
||||
Dim TotalW As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_TOTALDIMENSION, K_TOTALWIDTH, "38", TotalW)
|
||||
Utility.ConvertCompoConfig(TotalW, 100)
|
||||
m_TotalWidth = TotalW
|
||||
|
||||
Dim TopChk As Boolean = False
|
||||
@@ -536,16 +562,20 @@ Friend Module OptionModule
|
||||
m_BottomMachiningAssembly = BottomMachiningAss
|
||||
' carico i valori di overmaterial
|
||||
Dim LockEdgeOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_LOCKEDGEOVERMATERIAL_INI, "", LockEdgeOverMaterialAss)
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_LOCKEDGEOVERMATERIAL_INI, "0", LockEdgeOverMaterialAss)
|
||||
Utility.ConvertCompoConfig(LockEdgeOverMaterialAss, 100)
|
||||
m_LockEdgeOverMaterialAssembly = LockEdgeOverMaterialAss
|
||||
Dim HingeEdgeOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_HINGEDGEOVERMATERIAL_INI, "", HingeEdgeOverMaterialAss)
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_HINGEDGEOVERMATERIAL_INI, "0", HingeEdgeOverMaterialAss)
|
||||
Utility.ConvertCompoConfig(HingeEdgeOverMaterialAss, 100)
|
||||
m_HingeEdgeOverMaterialAssembly = HingeEdgeOverMaterialAss
|
||||
Dim TopOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_TOPOVERMATERIAL_INI, "", TopOverMaterialAss)
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_TOPOVERMATERIAL_INI, "0", TopOverMaterialAss)
|
||||
Utility.ConvertCompoConfig(TopOverMaterialAss, 100)
|
||||
m_TopOverMaterialAssembly = TopOverMaterialAss
|
||||
Dim BottomOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_BOTTOMOVERMATERIAL_INI, "", BottomOverMaterialAss)
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_BOTTOMOVERMATERIAL_INI, "0", BottomOverMaterialAss)
|
||||
Utility.ConvertCompoConfig(BottomOverMaterialAss, 100)
|
||||
m_BottomOverMaterialAssembly = BottomOverMaterialAss
|
||||
|
||||
' Lista messaggi per launcher
|
||||
|
||||
Reference in New Issue
Block a user