Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtDOORCreator 1.9a1 :

Browse Source 
- Gestione dei bevel.
This commit is contained in:
Nicola Pievani
2018-01-12 14:45:29 +00:00
parent 00784e5477
commit eb628e7dc4
14 changed files with 858 additions and 475 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+21 -21
View File
@@ -265,20 +265,20 @@ Friend Module OptionModule
If String.IsNullOrWhiteSpace(m_HingeEdgeType.Name) Then m_HingeEdgeType = OptionsVM.EdgeTypeList(0)
Dim TopType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_TOPEDGE_INI, "SQ", TopType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = TopType Then
m_TopType = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.TopEdgeTypeList.Count - 1
If OptionsVM.TopEdgeTypeList(Index).Name = TopType Then
m_TopType = OptionsVM.TopEdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_TopType.Name) Then m_TopType = OptionsVM.EdgeTypeList(0)
If String.IsNullOrWhiteSpace(m_TopType.Name) Then m_TopType = OptionsVM.TopEdgeTypeList(0)
Dim BottomType As String = String.Empty
DefaultGetPrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, "SQ", BottomType)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = BottomType Then
m_BottomType = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.TopEdgeTypeList.Count - 1
If OptionsVM.TopEdgeTypeList(Index).Name = BottomType Then
m_BottomType = OptionsVM.TopEdgeTypeList(Index)
End If
Next
If String.IsNullOrWhiteSpace(m_BottomType.Name) Then m_BottomType = OptionsVM.EdgeTypeList(0)
If String.IsNullOrWhiteSpace(m_BottomType.Name) Then m_BottomType = OptionsVM.TopEdgeTypeList(0)
' Carico i valori booleani associati alla lavorazione
Dim LockEdgeMachining As Boolean = False
@@ -368,31 +368,31 @@ Friend Module OptionModule
m_RightJambChk = RightChk
Dim LockEdgeTypeAss As String = String.Empty
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_LOCKEDGE, "", LockEdgeTypeAss)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = LockEdgeTypeAss Then
m_LockEdgeTypeAssembly = OptionsVM.EdgeTypeList(Index)
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_LOCKEDGE, "SQ", LockEdgeTypeAss)
For Index = 0 To OptionsVM.FrameEdgeTypeList.Count - 1
If OptionsVM.FrameEdgeTypeList(Index).Name = LockEdgeTypeAss Then
m_LockEdgeTypeAssembly = OptionsVM.FrameEdgeTypeList(Index)
End If
Next
Dim HingeEdgeTypeAss As String = String.Empty
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_HINGEDGE_INI, "SQ", HingeEdgeTypeAss)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = HingeEdgeTypeAss Then
m_HingeEdgeTypeAssembly = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.FrameEdgeTypeList.Count - 1
If OptionsVM.FrameEdgeTypeList(Index).Name = HingeEdgeTypeAss Then
m_HingeEdgeTypeAssembly = OptionsVM.FrameEdgeTypeList(Index)
End If
Next
Dim TopTypeAss As String = String.Empty
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_TOPEDGE_INI, "SQ", TopTypeAss)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = TopTypeAss Then
m_TopTypeAssembly = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.FrameEdgeTypeList.Count - 1
If OptionsVM.FrameEdgeTypeList(Index).Name = TopTypeAss Then
m_TopTypeAssembly = OptionsVM.FrameEdgeTypeList(Index)
End If
Next
Dim BottomTypeAss As String = String.Empty
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_BOTTOMEDGE_INI, "SQ", BottomTypeAss)
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
If OptionsVM.EdgeTypeList(Index).Name = BottomTypeAss Then
m_BottomTypeAssembly = OptionsVM.EdgeTypeList(Index)
For Index = 0 To OptionsVM.FrameEdgeTypeList.Count - 1
If OptionsVM.FrameEdgeTypeList(Index).Name = BottomTypeAss Then
m_BottomTypeAssembly = OptionsVM.FrameEdgeTypeList(Index)
End If
Next