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

EgtDOORCreator 2.2j1:

Browse Source 
-> inserito bottone per andare direttamente nell'HardareMangaer della componente selezionata nella porta/telaio,
-> disabiliti i controlli nelle TextBoxParam nell'HardwareManager (non richiesto).
This commit is contained in:
Nicola Pievani
2020-10-26 14:56:26 +00:00
parent 063b284a2f
commit 45e20498bc
7 changed files with 142 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DdfFile.vb
+21 -11
View File
@@ -253,17 +253,7 @@ Friend Module DdfFile
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50003), DoubleToString(dVal, 5)))
TDimension.Dimension_ParametersList.Add(New ReportParameter(EgtMsg(50003), DoubleToString(dVal, 5)))
'' origheightdoor: solo per i Jamb anche la dimensione della porta
'If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly AndAlso
' Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly) AndAlso
' Part.TypePart.Contains("F") Then
' DdfFileContent.Add("")
' If Part.TypePart.Contains("_H") Then
' DdfFileContent.Add(ConstCompo.K_OVERLAP & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OverlapHinge)
' End If
'End If
' overlap: solo per i Jamb inserisco la dimensioe dell'verlap
' origheightdoor: solo per i Jamb inserisco la dimensioe dell'verlap
If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly AndAlso
Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly) AndAlso
Part.TypePart.Contains("F") Then
@@ -271,6 +261,26 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.S_ORIGHEIGHTDOOR & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OrigHeightDoor)
End If
'' overlap: solo per i Jamb inserisco l'verlap
'If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly AndAlso
' Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly) AndAlso
' Part.TypePart.Contains("F") Then
' DdfFileContent.Add("")
' If Part.TypePart.Contains("_H") Then
' DdfFileContent.Add(ConstCompo.S_OVERLAP_DDF & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OverlapHinge)
' ElseIf Part.TypePart.Contains("_L") Then
' If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.DoorNumber = "1" Then
' DdfFileContent.Add(ConstCompo.S_OVERLAP_DDF & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OverlapLock)
' Else
' DdfFileContent.Add(ConstCompo.S_OVERLAP_DDF & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OverlapHinge)
' End If
' ElseIf Part.TypePart.Contains("FT_") Then
' DdfFileContent.Add(ConstCompo.S_OVERLAP_DDF & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OverlapTop)
' ElseIf Part.TypePart.Contains("FB_") Then
' DdfFileContent.Add(ConstCompo.S_OVERLAP_DDF & ": " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.OverlapBottom)
' End If
'End If
' aggiungo il peso della porta
If Part.IsCheckedWeight = Visibility.Visible Then
If Not StringToDouble(Part.Weight, dVal) Then