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

EgtDOORCreator 2.2c1:

Browse Source 
-> gestione della stampa quote porta.
This commit is contained in:
Nicola Pievani
2020-03-09 11:37:24 +00:00
parent 66db96bcb1
commit 13b49e14cb
19 changed files with 1227 additions and 220 deletions
Download Patch File Download Diff File Expand all files Collapse all files
App.config
+1 -1
View File
@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
</configuration>
Application.xaml
+1 -1
View File
@@ -1,7 +1,7 @@
<Application x:Class="Application"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
ShutdownMode="OnMainWindowClose">
ShutdownMode="OnMainWindowClose">
<Application.Resources>
<ResourceDictionary Source="EgtDOORCreatorDictionary.xaml"/>
Constants/ConstIni.vb
+5
View File
@@ -35,6 +35,7 @@ Module ConstIni
Public Const K_DISABLEARCH As String = "DisableArch"
Public Const K_SINGLEDOOR As String = "SingleDoor"
Public Const K_DELETEPROJECT As String = "DeleteProject"
Public Const K_ENABLEBTNDESING As String = "EnableDesign"
Public Const S_LANGUAGES As String = "Languages"
Public Const K_LANGUAGE As String = "Language"
@@ -85,6 +86,10 @@ Module ConstIni
Public Const K_TEMPLATEDIR As String = "TemplateDirectory"
Public Const K_MACHINDIR As String = "MachinDirectory"
Public Const S_LISTLABEL As String = "ListLabel"
Public Const K_LISTLABELDIR As String = "ListLabelDirectory"
Public Const K_LISTLABELFILE As String = "ListLabelCurrent"
Public Const S_LAUNCHERWINDOW As String = "LauncherWindow"
Public Const K_LAUNCHER As String = "Launcher"
Public Const K_LASTPROJECT As String = "LastProject"
DdfFile.vb
+309 -117
View File
@@ -15,6 +15,14 @@ Friend Module DdfFile
Friend SaveErrorCompo As Boolean = False
' raccoglie gli errori in fase di scrittura del ddf
Friend ErrorInWriting As String = String.Empty
' lista delle componenti della porta da stampare nel report
Friend OrderInReport As New ReportOrder
Friend ReportList As New List(Of ReportCompo)
' nuova gestione liste
Friend ReportDoor As New TableDoor
Private ParamInCompoIsCorrect As Boolean = True
#Region "SCRITTURA DDF"
@@ -23,6 +31,19 @@ Friend Module DdfFile
Private IdIndex As Integer = 0
Friend Sub WriteDDFPart(Part As Part, sPath As String, bIsDDF As Boolean, bIsForAssembly As Boolean)
ReportList.Clear()
ReportDoor.Order.Clear()
ReportDoor.Dimension.Clear()
ReportDoor.Proflie.Clear()
ReportDoor.OtherInfo.Clear()
ReportDoor.HardwareList.Clear()
ReportDoor.MachList.Clear()
' definsco la componente porta (devo decidere come asseganre il Brand e il Template)
Dim CompoDoorReport As New ReportCompo("DOOR", "", Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName)
ReportList.Add(CompoDoorReport)
ErrorInWriting = String.Empty
DDFIsCorrect = False
DoorExists = False
@@ -42,6 +63,9 @@ Friend Module DdfFile
DdfFileContent.Add("")
If IsNothing(Part.Measure) Then Part.Measure = ConvertMmUnitsToString(OptionModule.m_bIsMmUnit)
DdfFileContent.Add(ConstCompo.S_MEASURES & ": " & Part.Measure)
' 50200=Unit measure
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50200), Part.Measure))
' aggiungo una riga vuota per separare la lista successiva
DdfFileContent.Add("")
If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then
@@ -63,34 +87,61 @@ Friend Module DdfFile
End If
DdfFileContent.Add(ConstCompo.S_ORDER & ":")
Dim TOrder As New TableOrder
' Probabilmente da cambiare
If Not IsNothing(Part.Customer) Then
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_CUSTOMER & ": " & Part.Customer)
' 50070=Customer
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50070), Part.Customer))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50070), Part.Customer))
Else
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_CUSTOMER & ": ")
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50070), ""))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50070), ""))
End If
If Not IsNothing(Part.Elevation) Then
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_ELEVATION & ": " & Part.Elevation)
' 50406=Elevation
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50406), Part.Elevation))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50406), Part.Elevation))
Else
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_ELEVATION & ": ")
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50406), ""))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50406), ""))
End If
If Not IsNothing(Part.Project) Then
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_PROJECT & ": " & Part.Project)
' 50407=Project
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50407), Part.Project))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50407), Part.Project))
Else
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_PROJECT & ": ")
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50407), ""))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50407), ""))
End If
If Not IsNothing(Part.PO) Then
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_PO & ": " & Part.PO)
' 50408=PO
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50408), Part.PO))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50408), Part.PO))
Else
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_PO & ": ")
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50408), ""))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50408), ""))
End If
If Not IsNothing(Part.Line) Then
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_LINE & ": " & Part.Line)
' 50409=Line
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50409), Part.Line))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50409), Part.Line))
Else
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_LINE & ": ")
OrderInReport.OrderParameterList.Add(New ReportParameter(EgtMsg(50409), ""))
TOrder.Order_ParametersList.Add(New ReportParameter(EgtMsg(50409), ""))
End If
' aggiungo una riga vuota per separare la lista successiva
DdfFileContent.Add("")
DdfFileContent.Add(ConstCompo.S_DATE & ":" & " " & System.DateTime.Now.ToString("dd/MM/yyyy"))
' aggiungo una riga vuota per separare la lista successiva
DdfFileContent.Add("")
@@ -151,7 +202,7 @@ Friend Module DdfFile
Dim dVal As Double = 0
DdfFileContent.Add(ConstCompo.S_SIZE & ":")
Dim TDimension As New TableDimension
If Not StringToDouble(Part.Width, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_WIDTH), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
Return
@@ -162,6 +213,9 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_WIDTH & ": " & Part.Width)
End If
End If
' 50001=Width
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50001), DoubleToString(dVal, 5)))
TDimension.Dimension_ParametersList.Add(New ReportParameter(EgtMsg(50001), DoubleToString(dVal, 5)))
If Not StringToDouble(Part.Height, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_HEIGHT), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
@@ -172,8 +226,10 @@ Friend Module DdfFile
Else
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_HEIGHT & ": " & Part.Height)
End If
End If
' 50002=Height
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50002), DoubleToString(dVal, 5)))
TDimension.Dimension_ParametersList.Add(New ReportParameter(EgtMsg(50002), DoubleToString(dVal, 5)))
If Not StringToDouble(Part.Thickness, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_THICKNESS), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
@@ -185,6 +241,9 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_THICKNESS & ": " & Part.Thickness)
End If
End If
' 50003=Thickness
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50003), DoubleToString(dVal, 5)))
TDimension.Dimension_ParametersList.Add(New ReportParameter(EgtMsg(50003), DoubleToString(dVal, 5)))
' aggiungo il peso della porta
If Part.IsCheckedWeight = Visibility.Visible Then
@@ -200,9 +259,17 @@ Friend Module DdfFile
End If
End If
End If
' 50047=Weight
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50047), DoubleToString(dVal, 5)))
TDimension.Dimension_ParametersList.Add(New ReportParameter(EgtMsg(50047), DoubleToString(dVal, 5)))
' aggiungo una riga vuota per separare la lista successiva
DdfFileContent.Add("")
DdfFileContent.Add("" & ConstCompo.S_SWING & ": " & Part.Swing)
Dim TOtherInfo As New TableOtherInfo
' 50004=Swing
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50004), Part.Swing))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50004), Part.Swing))
' aggiungo una riga vuota per separare la lista successiva
DdfFileContent.Add("")
'----------------------------------------------------------------------------------------------------------------------------------------------------
@@ -217,34 +284,45 @@ Friend Module DdfFile
'----------------------------------------------------------------------------------------------------------------------------------------------------
' aggiungo le Properties
' il tipo di materiale, se è selezionato deve sempre essere stampato
If Not IsNothing(Part.SelectedMaterial) andalso Part.SelectedMaterial.NameDDF <> GENERICMATERIAL then
If Not IsNothing(Part.SelectedMaterial) AndAlso Part.SelectedMaterial.NameDDF <> GENERICMATERIAL Then
DdfFileContent.Add("" & ConstCompo.S_MATERIAL & ": " & Part.SelectedMaterial.NameDDF)
' 50710=Material
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50710), Part.SelectedMaterial.NameDDF))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50710), Part.SelectedMaterial.NameDDF))
DdfFileContent.Add("")
End If
'' scrittura utilizzata per la multi selezione
'Dim sProperties As String = String.Empty
'Dim ItemIndex As Integer
'For ItemIndex = 0 To Part.PropertiesList.Count - 1
' 'If Part.PropertiesList(ItemIndex).IsChecked Then
' ' sProperties &= Part.PropertiesList(ItemIndex).Name & ", "
' 'End If
'Next
'If Not String.IsNullOrEmpty(sProperties) Then
' sProperties = sProperties.Remove(sProperties.LastIndexOf(","c))
' DdfFileContent.Add("" & ConstCompo.S_PROPERTIES & ": " & sProperties)
' DdfFileContent.Add("")
'End If
' scrittura delle proprietà in caso di selezione da ComboBox
If Part.PropertiesIsVisible = Visibility.Visible then
'' scrittura utilizzata per la multi selezione
'Dim sProperties As String = String.Empty
'Dim ItemIndex As Integer
'For ItemIndex = 0 To Part.PropertiesList.Count - 1
' 'If Part.PropertiesList(ItemIndex).IsChecked Then
' ' sProperties &= Part.PropertiesList(ItemIndex).Name & ", "
' 'End If
'Next
'If Not String.IsNullOrEmpty(sProperties) Then
' sProperties = sProperties.Remove(sProperties.LastIndexOf(","c))
' DdfFileContent.Add("" & ConstCompo.S_PROPERTIES & ": " & sProperties)
' DdfFileContent.Add("")
'End If
' scrittura delle proprietà in caso di selezione da ComboBox
If Part.PropertiesIsVisible = Visibility.Visible Then
Dim sProperties As String = String.Empty
If Not IsNothing(Part.SelectedProperty) andalso Part.SelectedProperty.Name <> "none" Then
If Not IsNothing(Part.SelectedProperty) AndAlso Part.SelectedProperty.Name <> "none" Then
DdfFileContent.Add("" & ConstCompo.S_PROPERTIES & ": " & Part.SelectedProperty.Name)
' 50709=Properties
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50709), Part.SelectedProperty.Name))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50709), Part.SelectedProperty.Name))
DdfFileContent.Add("")
End If
End If
'----------------------------------------------------------------------------------------------------------------------------------------------------
DdfFileContent.Add("" & ConstCompo.S_PROFILES & ":")
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_LOCKEDGE & ": " & SetBevel(Part.TypePart, Part.LockEdgeType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name, Part.InvertBevel))
Dim TProfile As New TableProfile
Dim BevelDDF As String = SetBevel(Part.TypePart, Part.LockEdgeType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name, Part.InvertBevel)
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_LOCKEDGE & ": " & BevelDDF)
' 50005=Lock edge
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50005), BevelDDF))
TProfile.Profile_ParametersList.Add(New ReportParameter(EgtMsg(50005), BevelDDF))
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.LockEdgeMachining))
If Not StringToDouble(Part.LockEdgeOverMaterial, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_LOCKEDGEOVERMATERIAL_INI), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
@@ -256,7 +334,12 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & Part.LockEdgeOverMaterial)
End If
End If
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_HINGEEDGE & ": " & SetBevel(Part.TypePart, Part.HingeEdgeType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name))
BevelDDF = SetBevel(Part.TypePart, Part.HingeEdgeType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name)
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_HINGEEDGE & ": " & BevelDDF)
' 50006=Hinge edge
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50006), BevelDDF))
TProfile.Profile_ParametersList.Add(New ReportParameter(EgtMsg(50006), BevelDDF))
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.HingeEdgeMachining))
If Not StringToDouble(Part.HingeEdgeOverMaterial, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_HINGEDGEOVERMATERIAL_INI), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
@@ -268,7 +351,12 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & Part.HingeEdgeOverMaterial)
End If
End If
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_TOP & ": " & SetBevel(Part.TypePart, Part.TopType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name))
BevelDDF = SetBevel(Part.TypePart, Part.TopType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name)
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_TOP & ": " & BevelDDF)
' 50007=Top
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50007), BevelDDF))
TProfile.Profile_ParametersList.Add(New ReportParameter(EgtMsg(50007), BevelDDF))
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.TopMachining))
If Not StringToDouble(Part.TopOverMaterial, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_TOPOVERMATERIAL_INI), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
@@ -281,7 +369,7 @@ Friend Module DdfFile
End If
End If
If Part.TopArcIsChecked And (Not IsNothing(Part.Radius) AndAlso Not IsNothing(Part.Posx)) Then
If Part.TopShapeIsChecked And Part.TopArcIsChecked And (Not IsNothing(Part.Radius) AndAlso Not IsNothing(Part.Posx)) Then
If Not StringToDouble(Part.Radius, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_RADIUS), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
Return
@@ -303,9 +391,18 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_POSX & ": " & Part.Posx)
End If
End If
' 50707=Top Arc
CompoDoorReport.CompoParameterList.Add(New ReportParameter("Top shape", EgtMsg(50707)))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter("Top shape", EgtMsg(50707)))
' 50706=Pos_x
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50706), Part.Posx))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50706), Part.Posx))
' 50704=Radius
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50704), Part.Radius))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50704), Part.Radius))
End If
If Part.TopAngleIsChecked And (Not IsNothing(Part.Angle) AndAlso Not IsNothing(Part.Posx)) Then
If Part.TopShapeIsChecked And Part.TopAngleIsChecked And (Not IsNothing(Part.Angle) AndAlso Not IsNothing(Part.Posx)) Then
If Not StringToDouble(Part.PosxAngle, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_POSX), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
Return
@@ -327,10 +424,22 @@ Friend Module DdfFile
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_ANGLE & ": " & Part.Angle)
End If
End If
' 50708=Top Angle
CompoDoorReport.CompoParameterList.Add(New ReportParameter("Top shape", EgtMsg(50708)))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter("Top shape", EgtMsg(50708)))
' 50706=Pos_x
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50706), Part.Posx))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50706), Part.Posx))
' 50705=Angle
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50705), Part.Angle))
TOtherInfo.OtherInfo_ParametersList.Add(New ReportParameter(EgtMsg(50705), Part.Angle))
End If
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_BOTTOM & ": " & SetBevel(Part.TypePart, Part.BottomType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name))
BevelDDF = SetBevel(Part.TypePart, Part.BottomType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name)
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_BOTTOM & ": " & BevelDDF)
' 50008=Bottom
CompoDoorReport.CompoParameterList.Add(New ReportParameter(EgtMsg(50008), BevelDDF))
TProfile.Profile_ParametersList.Add(New ReportParameter(EgtMsg(50008), BevelDDF))
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.BottomMachining))
If Not StringToDouble(Part.BottomOverMaterial, dVal) Then
MessageBox.Show(String.Format(EgtMsg(50141), K_BOTTOMOVERMATERIAL_INI), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
@@ -343,6 +452,7 @@ Friend Module DdfFile
End If
End If
DoorExists = True
' Riordino e stampo le compo
SearchCompo(DdfFileContent, Part, bIsDDF)
If Not Directory.Exists(Path.GetDirectoryName(sPath)) Then
@@ -351,6 +461,12 @@ Friend Module DdfFile
DdfFileContent.Add(" ")
DdfFileContent.Add("# End Part")
' se sono arrivato fin qui significa che tutto è andato a buon fine (posso quindisalvare il file corrente)
OrderInReport.ReportCompoList = ReportList
ReportDoor.Order.Add(TOrder)
ReportDoor.Dimension.Add(TDimension)
ReportDoor.Proflie.Add(TProfile)
ReportDoor.OtherInfo.Add(TOtherInfo)
DDFIsCorrect = ParamInCompoIsCorrect
'-----------------------------------------------------------------------------------------------------------------------------------
'Stampa su file
@@ -503,12 +619,12 @@ Friend Module DdfFile
End If
DdfFileContent.Add("")
If Not IsNothing(Part.SelectedMaterial) andalso Part.SelectedMaterial.NameDDF <> GENERICMATERIAL then
If Not IsNothing(Part.SelectedMaterial) AndAlso Part.SelectedMaterial.NameDDF <> GENERICMATERIAL Then
DdfFileContent.Add("" & ConstCompo.S_MATERIAL & ": " & Part.SelectedMaterial.NameDDF)
DdfFileContent.Add("")
End If
'----------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------
DdfFileContent.Add("" & ConstCompo.S_PROFILES & ":")
DdfFileContent.Add(ConstCompo.DDF_SPACE3 & ConstCompo.K_LOCKEDGE & ": " & SetBevel(Part.TypePart, Part.LockEdgeType.Name, Part.DispositionItem.Name, Part.SwingAlias.Name, Part.InvertBevel))
DdfFileContent.Add(ConstCompo.DDF_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.LockEdgeMachining))
@@ -790,7 +906,7 @@ Friend Module DdfFile
Next
Next
TidyCompo(DdfFileContent, TempList, bIsDDF)
' finto di leggere tutte le componenti stampo il messaggio degli errori
' finito di leggere tutte le componenti stampo il messaggio degli errori
If Not String.IsNullOrWhiteSpace(WritingError) Then
MessageBox.Show(WritingError, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
End If
@@ -810,6 +926,7 @@ Friend Module DdfFile
End If
Next
AscendingOrder(TempList, DdfFileContent, bIsDDF)
GenerateCompoListReport(TempList)
Index1 += TempList.Count - 1
Next
TempList = New ObservableCollection(Of Compo)
@@ -817,7 +934,9 @@ Friend Module DdfFile
If Door(Door.Count - 1).CompoType.DDFName <> Door(Door.Count - 2).CompoType.DDFName Then
TempList.Add(Door(Door.Count - 1))
AscendingOrder(TempList, DdfFileContent, bIsDDF)
GenerateCompoListReport(TempList)
End If
Return True
End Function
@@ -935,67 +1054,29 @@ Friend Module DdfFile
End If
End If
' ComboBox
ElseIf TypeOf CurrCompoParam Is ComboBoxParam Then
Dim cbParam As ComboBoxParam = DirectCast(CurrCompoParam, ComboBoxParam)
If Not cbParam.ErrorInReading And Not cbParam.MissingParameterInReading Then
' recupero l'indice dell'elemento selezionato
Dim IndexDDF As Integer = -1
If Not String.IsNullOrWhiteSpace(cbParam.SelItem) Then
' raccolgo il valore IndexDDF come indice del valore selezionato dalla lista
IndexDDF = cbParam.ItemList.IndexOf(cbParam.SelItem)
End If
' controllo che sia selezionato un elemento
If IndexDDF >= 0 AndAlso IndexDDF < cbParam.ItemListDDF.Count() Then
' restituisco il valore DDF della lista associato all'indice passato
Dim SelItemDDF As String = Trim(cbParam.ItemListDDF(IndexDDF))
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
End If
' ComboBox
ElseIf TypeOf CurrCompoParam Is ComboBoxParam Then
Dim cbParam As ComboBoxParam = DirectCast(CurrCompoParam, ComboBoxParam)
If Not cbParam.ErrorInReading And Not cbParam.MissingParameterInReading Then
' recupero l'indice dell'elemento selezionato
Dim IndexDDF As Integer = -1
If Not String.IsNullOrWhiteSpace(cbParam.SelItem) Then
' raccolgo il valore IndexDDF come indice del valore selezionato dalla lista
IndexDDF = cbParam.ItemList.IndexOf(cbParam.SelItem)
End If
' controllo che sia selezionato un elemento
If IndexDDF >= 0 AndAlso IndexDDF < cbParam.ItemListDDF.Count() Then
' restituisco il valore DDF della lista associato all'indice passato
Dim SelItemDDF As String = Trim(cbParam.ItemListDDF(IndexDDF))
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
Else
' se non è selezionato nessun elemento (cosa impossibile...)
If Not String.IsNullOrEmpty(sErrorList) Then sErrorList &= Environment.NewLine
' 50125: Error reading {0} param in {1} compo: do not exist value.
sErrorList &= String.Format(EgtMsg(50125), cbParam.Name, Compo.CompoType.DDFName)
ParamInCompoIsCorrect = False
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
End If
End If
ElseIf Not cbParam.ErrorInReading And cbParam.MissingParameterInReading Then
' recupero l'indice dell'elemento selezionato
Dim IndexDDF As Integer = -1
If Not String.IsNullOrWhiteSpace(cbParam.SelItem) Then
' raccolgo il valore IndexDDF come indice del valore selezionato dalla lista
IndexDDF = cbParam.ItemList.IndexOf(cbParam.SelItem)
End If
' controllo che sia selezionato un elemento
If IndexDDF >= 0 AndAlso IndexDDF < cbParam.ItemListDDF.Count() Then
' restituisco il valore DDF della lista associato all'indice passato
Dim SelItemDDF As String = Trim(cbParam.ItemListDDF(IndexDDF))
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
End If
Else
' se non è selezionato nessun elemento (cosa impossibile...)
If Not String.IsNullOrEmpty(sErrorList) Then sErrorList &= Environment.NewLine
' 50125: Error reading {0} param in {1} compo: do not exist value.
sErrorList &= String.Format(EgtMsg(50125), cbParam.Name, Compo.CompoType.DDFName)
ParamInCompoIsCorrect = False
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
End If
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
End If
Else
' 50125 =Error in reading {0} in compo {1}.
' se non è selezionato nessun elemento (cosa impossibile...)
If Not String.IsNullOrEmpty(sErrorList) Then sErrorList &= Environment.NewLine
' 50125: Error reading {0} param in {1} compo: do not exist value.
sErrorList &= String.Format(EgtMsg(50125), cbParam.Name, Compo.CompoType.DDFName)
ParamInCompoIsCorrect = False
If Compo.LoadByDefault And Not SaveErrorCompo Then
@@ -1004,43 +1085,81 @@ Friend Module DdfFile
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
End If
End If
' TextBox Opzionale
ElseIf TypeOf CurrCompoParam Is TextBoxOnOffParam Then
ElseIf Not cbParam.ErrorInReading And cbParam.MissingParameterInReading Then
' recupero l'indice dell'elemento selezionato
Dim IndexDDF As Integer = -1
If Not String.IsNullOrWhiteSpace(cbParam.SelItem) Then
' raccolgo il valore IndexDDF come indice del valore selezionato dalla lista
IndexDDF = cbParam.ItemList.IndexOf(cbParam.SelItem)
End If
' controllo che sia selezionato un elemento
If IndexDDF >= 0 AndAlso IndexDDF < cbParam.ItemListDDF.Count() Then
' restituisco il valore DDF della lista associato all'indice passato
Dim SelItemDDF As String = Trim(cbParam.ItemListDDF(IndexDDF))
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & SelItemDDF)
End If
Else
' se non è selezionato nessun elemento (cosa impossibile...)
If Not String.IsNullOrEmpty(sErrorList) Then sErrorList &= Environment.NewLine
' 50125: Error reading {0} param in {1} compo: do not exist value.
sErrorList &= String.Format(EgtMsg(50125), cbParam.Name, Compo.CompoType.DDFName)
ParamInCompoIsCorrect = False
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
End If
End If
Else
' 50125 =Error in reading {0} in compo {1}.
sErrorList &= String.Format(EgtMsg(50125), cbParam.Name, Compo.CompoType.DDFName)
ParamInCompoIsCorrect = False
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
Else
CompoListDDF.Add(DDF_SPACE5 & cbParam.DDFName & ": " & cbParam.SelItem)
End If
End If
' TextBox Opzionale
ElseIf TypeOf CurrCompoParam Is TextBoxOnOffParam Then
Dim tboParam As TextBoxOnOffParam = DirectCast(CurrCompoParam, TextBoxOnOffParam)
If Not String.IsNullOrWhiteSpace(tboParam.ToolTipValue) AndAlso tboParam.IsActive Then
' se è stata inserita un'espressione non valida restituisco un errore (50143: Invalid expression.)
If tboParam.ToolTipValue = EgtMsg(50143) Then
If Not String.IsNullOrEmpty(sErrorList) Then sErrorList &= Environment.NewLine
' 50122: Error reading {0} param in {1} compo.
sErrorList &= String.Format(EgtMsg(50122), tboParam.Name, Compo.CompoType.DDFName)
' se è stata inserita un'espressione non valida restituisco un errore (50143: Invalid expression.)
If tboParam.ToolTipValue = EgtMsg(50143) Then
If Not String.IsNullOrEmpty(sErrorList) Then sErrorList &= Environment.NewLine
' 50122: Error reading {0} param in {1} compo.
sErrorList &= String.Format(EgtMsg(50122), tboParam.Name, Compo.CompoType.DDFName)
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & tboParam.DDFName & ": ")
ParamInCompoIsCorrect = False
Else
CompoListDDF.Add(DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.Value)
ParamInCompoIsCorrect = False
End If
Else
If bIsDDF Then
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & tboParam.DDFName & ": ")
ParamInCompoIsCorrect = False
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.ToolTipValue)
Else
CompoListDDF.Add(DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.Value)
ParamInCompoIsCorrect = False
CompoListDDF.Add(DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.ToolTipValue)
End If
Else
If bIsDDF Then
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.ToolTipValue)
Else
CompoListDDF.Add(DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.ToolTipValue)
End If
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.Value)
Else
If Compo.LoadByDefault And Not SaveErrorCompo Then
CompoListDDF.Add(DDF_METADATA & DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.Value)
Else
CompoListDDF.Add(DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.Value)
End If
CompoListDDF.Add(DDF_SPACE5 & tboParam.DDFName & ": " & tboParam.Value)
End If
End If
ElseIf Not String.IsNullOrWhiteSpace(tboParam.ToolTipValue) AndAlso Not tboParam.IsActive Then
' non restituire nessun tipo di errore
End If
' TextBox
ElseIf TypeOf CurrCompoParam Is TextBoxParam Then
Dim tbParam As TextBoxParam = DirectCast(CurrCompoParam, TextBoxParam)
ElseIf Not String.IsNullOrWhiteSpace(tboParam.ToolTipValue) AndAlso Not tboParam.IsActive Then
' non restituire nessun tipo di errore
End If
' TextBox
ElseIf TypeOf CurrCompoParam Is TextBoxParam Then
Dim tbParam As TextBoxParam = DirectCast(CurrCompoParam, TextBoxParam)
' se c'è scritto qualcosa
If Not String.IsNullOrWhiteSpace(tbParam.ToolTipValue) And Not Compo.MissingParameter Then
' se è stata inserita un'espressine non valida restituisco un errore
@@ -1106,7 +1225,7 @@ Friend Module DdfFile
sErrorList &= String.Format(EgtMsg(50122), tbParam.Name, Compo.CompoType.DDFName)
CompoListDDF.Add(DDF_SPACE5 & tbParam.DDFName & ": " & tbParam.Value)
End If
End If
End If
Next
' inserisco qui il riferimento da stampare (il codice è scelto dalla porta)
If Not IsNothing(Compo.refJambCompo) Then
@@ -1126,6 +1245,80 @@ Friend Module DdfFile
Return CompoListDDF
End Function
'Genero la lista delle componenti da passare al report
Private Sub GenerateCompoListReport(TempList As ObservableCollection(Of Compo))
For Each ItemCompo In TempList
If ItemCompo.CompoType.DDFName.Trim = "vision_cut_outs" OrElse
ItemCompo.CompoType.DDFName.Trim = "louver_cut_outs" OrElse
ItemCompo.CompoType.DDFName.Trim = "mail_slots" OrElse
ItemCompo.CompoType.DDFName.Trim = "groove" OrElse
ItemCompo.CompoType.DDFName.Trim = "rabbet" OrElse
ItemCompo.CompoType.DDFName.Trim = "face_decoration" Then
ReportDoor.MachList.Add(New TableMach(ItemCompo.CompoType.Name, ItemCompo.SelFile))
For Each ItemParameter In ItemCompo.CompoParamList
Dim sValue As String = String.Empty
Dim bIsActive As Boolean = True
If TypeOf ItemParameter Is TextBoxOnOffParam Then
bIsActive = DirectCast(ItemParameter, TextBoxOnOffParam).IsActive
sValue = DirectCast(ItemParameter, TextBoxOnOffParam).m_Value
ElseIf TypeOf ItemParameter Is ComboBoxOnOffParam Then
bIsActive = DirectCast(ItemParameter, ComboBoxOnOffParam).IsActive
sValue = DirectCast(ItemParameter, ComboBoxOnOffParam).m_SelItem
ElseIf TypeOf ItemParameter Is TextBoxParam Then
sValue = DirectCast(ItemParameter, TextBoxParam).m_Value
ElseIf TypeOf ItemParameter Is ComboBoxParam Then
sValue = DirectCast(ItemParameter, ComboBoxParam).m_SelItem
End If
If bIsActive Then
ReportDoor.MachList(ReportDoor.MachList.Count - 1).Mach_ParametersList.Add(New ReportParameter(ItemParameter.Name, sValue))
End If
Next
Else
ReportDoor.HardwareList.Add(New TableHardaware(ItemCompo.CompoType.Name, ItemCompo.SelBrandPart, ItemCompo.SelFile))
For Each ItemParameter In ItemCompo.CompoParamList
Dim sValue As String = String.Empty
Dim bIsActive As Boolean = True
If TypeOf ItemParameter Is TextBoxOnOffParam Then
bIsActive = DirectCast(ItemParameter, TextBoxOnOffParam).IsActive
sValue = DirectCast(ItemParameter, TextBoxOnOffParam).m_Value
ElseIf TypeOf ItemParameter Is ComboBoxOnOffParam Then
bIsActive = DirectCast(ItemParameter, ComboBoxOnOffParam).IsActive
sValue = DirectCast(ItemParameter, ComboBoxOnOffParam).m_SelItem
ElseIf TypeOf ItemParameter Is TextBoxParam Then
sValue = DirectCast(ItemParameter, TextBoxParam).m_Value
ElseIf TypeOf ItemParameter Is ComboBoxParam Then
sValue = DirectCast(ItemParameter, ComboBoxParam).m_SelItem
End If
If bIsActive Then
ReportDoor.HardwareList(ReportDoor.HardwareList.Count - 1).Hardware_ParametersList.Add(New ReportParameter(ItemParameter.Name, sValue))
End If
Next
End If
Dim ReportompoItem As New ReportCompo(ItemCompo.CompoType.Name, ItemCompo.SelBrandPart, ItemCompo.SelFile)
For Each ItemParameter In ItemCompo.CompoParamList
Dim sValue As String = String.Empty
Dim bIsActive As Boolean = True
If TypeOf ItemParameter Is TextBoxOnOffParam Then
bIsActive = DirectCast(ItemParameter, TextBoxOnOffParam).IsActive
sValue = DirectCast(ItemParameter, TextBoxOnOffParam).m_Value
ElseIf TypeOf ItemParameter Is ComboBoxOnOffParam Then
bIsActive = DirectCast(ItemParameter, ComboBoxOnOffParam).IsActive
sValue = DirectCast(ItemParameter, ComboBoxOnOffParam).m_SelItem
ElseIf TypeOf ItemParameter Is TextBoxParam Then
sValue = DirectCast(ItemParameter, TextBoxParam).m_Value
ElseIf TypeOf ItemParameter Is ComboBoxParam Then
sValue = DirectCast(ItemParameter, ComboBoxParam).m_SelItem
End If
If bIsActive Then
ReportompoItem.CompoParameterList.Add(New ReportParameter(ItemParameter.Name, sValue))
End If
Next
ReportList.Add(ReportompoItem)
Next
End Sub
#End Region ' Funzioni per la scrittura delle componenti
' calcola il secure da salvare e il tipo di bevel
@@ -1200,7 +1393,6 @@ Friend Module DdfFile
End If
End Function
#End Region ' Scrittura DDF
#Region "SCRITTURA ASSEMBLATO"
DoorParameters/Part.vb
+148 -2
View File
@@ -671,6 +671,32 @@ Public Class Part
#End Region ' Edge
#Region "RESIZE"
Private m_ResizeLockHinge As Boolean
Public Property ResizeLockHinge As Boolean
Get
Return m_ResizeLockHinge
End Get
Set(value As Boolean)
m_ResizeLockHinge = value
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
End Set
End Property
Private m_ResizeTopBottom As Boolean
Public Property ResizeTopBottom As Boolean
Get
Return m_ResizeTopBottom
End Get
Set(value As Boolean)
m_ResizeTopBottom = value
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
End Set
End Property
#End Region ' Resize
#Region "MACHINING"
Private m_TopMachining As Boolean
@@ -815,6 +841,98 @@ Public Class Part
#End Region ' OverMaterial
#Region "CUT"
Private m_CutIsChecked As Boolean = False
Public Property CutIsChecked As Boolean
Get
Return m_CutIsChecked
End Get
Set(value As Boolean)
m_CutIsChecked = value
' Gestione dell'aggiunta della componente
Map.refSceneManagerVM.RefreshBtn()
End Set
End Property
Private m_PosCut As String = "0"
Public Property PosCut As String
Get
Return m_PosCut
End Get
Set(value As String)
m_PosCut = value
NotifyPropertyChanged("PosCut")
NotifyPropertyChanged("ToolTipEvaluatedPosCut")
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
End Set
End Property
Public ReadOnly Property ToolTipEvaluatedPosCut As String
Get
Dim dVal As Double
If StringToDouble(m_PosCut, dVal) Then
Return DoubleToString(dVal, 4)
Else
Return EgtMsg(50143)
End If
End Get
End Property
Private m_CutDirectionList As New List(Of String) From {"Horizontal", "Vertical"}
Public ReadOnly Property CutDirectionList As List (of String)
Get
Return m_CutDirectionList
End Get
End Property
Private m_SelectedDirection As String = m_CutDirectionList(0)
Public Property SelectedDirection As String
Get
Return m_SelectedDirection
End Get
Set(value As String)
m_SelectedDirection = value
End Set
End Property
#End Region ' Cut
Private m_TopShapeIsChecked As Boolean = False
Public Property TopShapeIsChecked As Boolean
Get
Return m_TopShapeIsChecked
End Get
Set(value As Boolean)
m_TopShapeIsChecked = value
Map.refSceneManagerVM.RefreshBtn()
End Set
End Property
Private Property m_TopShapeList As New List(Of TopShape) From {New TopShape(EgtMsg(50707)), New TopShape(EgtMsg(50708))}
Public ReadOnly Property TopShapeList As List(Of TopShape)
Get
Return m_TopShapeList
End Get
End Property
Private m_SelectedShape As TopShape = m_TopShapeList(0)
Public Property SelectedShape As TopShape
Get
Return m_SelectedShape
End Get
Set(value As TopShape)
m_SelectedShape = value
If value.Name.Trim() = m_TopShapeList(0).Name.Trim then
TopArcIsChecked = True
TopAngleIsChecked = False
ElseIf value.Name.Trim() = m_TopShapeList(1).Name.Trim then
TopAngleIsChecked = True
TopArcIsChecked = False
End If
NotifyPropertyChanged("VisibilityTopArch")
NotifyPropertyChanged("VisibilityTopAngle")
End Set
End Property
#Region "TOP ARC"
Private m_Radius As String = "W"
@@ -863,7 +981,7 @@ Public Class Part
End Get
End Property
Private m_TopArcIsChecked As Boolean
Private m_TopArcIsChecked As Boolean = True
Public Property TopArcIsChecked As Boolean
Get
Return m_TopArcIsChecked
@@ -880,6 +998,18 @@ Public Class Part
End Set
End Property
Private m_VisibilityTopArch As Visibility = Visibility.Visible
Public ReadOnly Property VisibilityTopArch As Visibility
Get
If m_TopArcIsChecked then
m_VisibilityTopArch = Visibility.Visible
Else
m_VisibilityTopArch = Visibility.Hidden
End If
Return m_VisibilityTopArch
End Get
End Property
#End Region ' Top Arc
#Region "TOP ANGLE"
@@ -947,6 +1077,18 @@ Public Class Part
End Set
End Property
Private m_VisibilityTopAngle As Visibility = Visibility.Hidden
Public ReadOnly Property VisibilityTopAngle As Visibility
Get
If m_TopAngleIsChecked then
m_VisibilityTopAngle = Visibility.Visible
Else
m_VisibilityTopAngle = Visibility.Hidden
End If
Return m_VisibilityTopAngle
End Get
End Property
#End Region ' Top Angle
#End Region ' General
@@ -2237,11 +2379,13 @@ Public Class Part
m_Radius = Radius
m_Posx = Posx
TopArcIsChecked = True
TopShapeIsChecked = True
End If
End If
End If
If Not m_TopArcIsChecked then
' If Not m_TopArcIsChecked then
If Not m_TopShapeIsChecked then
Dim PosxAngle As String = GetValueWithKey(sLine, ConstCompo.K_POSX)
If Not String.IsNullOrEmpty(PosxAngle) Then
Index = NextIndex(Index)
@@ -2258,6 +2402,8 @@ Public Class Part
m_Angle = Angle
m_PosxAngle = PosxAngle
TopAngleIsChecked = True
SelectedShape = m_TopShapeList(1)
TopShapeIsChecked = True
End If
End If
End If
DoorParameters/PartPageV.xaml
+163 -24
View File
@@ -55,6 +55,7 @@
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="Auto"/>
<ColumnDefinition Width="Auto"/>
<ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions>
<Grid.RowDefinitions>
@@ -68,13 +69,16 @@
<RowDefinition Height="Auto"/>
</Grid.RowDefinitions>
<Border BorderBrush="Gainsboro" BorderThickness="1" Grid.Column="2" Grid.ColumnSpan="4"
<Border BorderBrush="Gainsboro" BorderThickness="1" Grid.Column="2" Grid.ColumnSpan="5"
Grid.RowSpan="5" Margin="5,-2,2,0" CornerRadius="3"/>
<TextBlock Grid.Column="3" Grid.Row="0" Text="{Binding EdgeMsg}" VerticalAlignment="Center"
Style="{StaticResource DoorParamsTxBl}" Margin="2,0,5,0"/>
<TextBlock Grid.Column="4" Grid.Row="0" Text="{Binding MachMsg}" VerticalAlignment="Center"
Style="{StaticResource DoorParamsTxBl}" Margin="2,0,5,0"/>
<TextBlock Grid.Column="4" Grid.Row="0" Text="{Binding ResizeMsg}" VerticalAlignment="Center"
Style="{StaticResource DoorParamsTxBl}" Margin="-10,0,0,0"
Visibility="Collapsed"/>
<TextBlock Grid.Column="5" Grid.Row="0" Text="{Binding MachMsg}" VerticalAlignment="Center"
Style="{StaticResource DoorParamsTxBl}" />
<TextBlock Grid.Column="5" Grid.Row="0" Text="{Binding OverMaterialMsg}" VerticalAlignment="Center"
<TextBlock Grid.Column="6" Grid.Row="0" Text="{Binding OverMaterialMsg}" VerticalAlignment="Center"
Style="{StaticResource DoorParamsTxBl}" Margin="10,0,5,0" />
<!--General-->
@@ -137,7 +141,7 @@
ItemsSource="{Binding CurrPart.LockEdgeTypeList}"
SelectedItem="{Binding CurrPart.LockEdgeType}"
Style="{StaticResource DoorEdgeParamsCmBx}"
Margin="0.4,2,40,4"
Margin="0.4,2,30,4"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<TextBlock Grid.Column="2" Grid.Row="2"
@@ -148,7 +152,7 @@
ItemsSource="{Binding CurrPart.HingeEdgeTypeList}"
SelectedItem="{Binding CurrPart.HingeEdgeType}"
Style="{StaticResource DoorEdgeParamsCmBx}"
Margin="0.4,2,40,4"
Margin="0.4,2,30,4"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
@@ -160,7 +164,7 @@
ItemsSource="{Binding CurrPart.TopEdgeTypeList}"
SelectedItem="{Binding CurrPart.TopType}"
Style="{StaticResource DoorEdgeParamsCmBx}"
Margin="0.4,2,40,4"
Margin="0.4,2,30,4"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<TextBlock Grid.Row="4" Grid.Column="2"
@@ -171,7 +175,7 @@
ItemsSource="{Binding CurrPart.BottomEdgeTypeList}"
SelectedItem="{Binding CurrPart.BottomType}"
Style="{StaticResource DoorEdgeParamsCmBx}"
Margin="0.4,2,40,4"
Margin="0.4,2,30,4"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<TextBlock Grid.Row="5" Grid.Column="2"
@@ -185,52 +189,65 @@
SelectedItem="{Binding CurrPart.DispositionItem}"
DisplayMemberPath="Name"
Style="{StaticResource DoorEdgeParamsCmBx}"
Margin="0.4,2,40,4"
Margin="0.4,2,30,4"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<!--Resize-->
<CheckBox Grid.Column="4" Grid.Row="1" Grid.RowSpan="2"
IsChecked="{Binding CurrPart.ResizeLockHinge}"
Name="LockHingeEdge"
Margin="0,0,20,0"
Style="{StaticResource DoorParamsChBx}"
Visibility="Collapsed"/>
<CheckBox Grid.Column="4" Grid.Row="3" Grid.RowSpan="2"
IsChecked="{Binding CurrPart.ResizeTopBottom}"
Name="TopBottomEdge"
Margin="0,0,20,0"
Style="{StaticResource DoorParamsChBx}"
Visibility="Collapsed"/>
<!--Machining-->
<CheckBox Grid.Column="4" Grid.Row="1"
<CheckBox Grid.Column="5" Grid.Row="1"
Name="LockEdge" Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.LockEdgeMachining}"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<CheckBox Grid.Column="4" Grid.Row="2"
<CheckBox Grid.Column="5" Grid.Row="2"
Name="HingeEdge" Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.HingeEdgeMachining}"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<CheckBox Grid.Column="4" Grid.Row="3"
<CheckBox Grid.Column="5" Grid.Row="3"
Name="Top" Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.TopMachining}"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<CheckBox Grid.Column="4" Grid.Row="4"
<CheckBox Grid.Column="5" Grid.Row="4"
Name="Bottom" Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.BottomMachining}"
IsEnabled="{Binding IsRaedOnly, Converter={StaticResource TrueToFalse}}"/>
<CheckBox Grid.Column="4" Grid.Row="5"
<CheckBox Grid.Column="5" Grid.Row="5"
Name="InvertBevel" Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.InvertBevel}"
Margin="0,2,0,4"
IsEnabled="{Binding IsInactive}"/>
<TextBlock Grid.Row="5" Grid.Column="5"
<TextBlock Grid.Row="5" Grid.Column="6"
Text="{Binding InvertBevelMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="10,2,40,4"/>
<TextBox Grid.Column="5" Grid.Row="1" Style="{StaticResource DoorParamsTxBx}"
<TextBox Grid.Column="6" Grid.Row="1" Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.LockEdgeOverMaterial, UpdateSourceTrigger=PropertyChanged}"
IsEnabled="{Binding IsChecked, ElementName=LockEdge}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedLockOverMaterial}"
Margin="10,2.6,40,2" IsReadOnly="{Binding IsRaedOnly}"/>
<TextBox Grid.Column="5" Grid.Row="2" Style="{StaticResource DoorParamsTxBx}"
<TextBox Grid.Column="6" Grid.Row="2" Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.HingeEdgeOverMaterial, UpdateSourceTrigger=PropertyChanged}"
IsEnabled="{Binding IsChecked, ElementName=HingeEdge}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedHingeOverMaterial}"
Margin="10,2,40,2" IsReadOnly="{Binding IsRaedOnly}"/>
<TextBox Grid.Column="5" Grid.Row="3" Style="{StaticResource DoorParamsTxBx}"
<TextBox Grid.Column="6" Grid.Row="3" Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.TopOverMaterial, UpdateSourceTrigger=PropertyChanged}"
IsEnabled="{Binding IsChecked, ElementName=Top}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedTopOverMaterial}"
Margin="10,2,40,2" IsReadOnly="{Binding IsReadOnly}"/>
<TextBox Grid.Column="5" Grid.Row="4" Style="{StaticResource DoorParamsTxBx}"
<TextBox Grid.Column="6" Grid.Row="4" Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.BottomOverMaterial, UpdateSourceTrigger=PropertyChanged}"
IsEnabled="{Binding IsChecked, ElementName=Bottom}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedBottomOverMaterial}"
@@ -238,7 +255,7 @@
<!--Material and properties-->
<!--Visibility="{Binding CurrPart.PropertiesIsVisible}"-->
<Grid Margin="0,0,0,2" Grid.Column="3" Grid.ColumnSpan="3" Grid.Row="6">
<Grid Margin="0,0,0,2" Grid.Column="3" Grid.ColumnSpan="4" Grid.Row="6">
<Grid.ColumnDefinitions>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
@@ -274,13 +291,92 @@
</Grid>
<Grid Margin="0,0,0,2" Grid.Row="6" Grid.ColumnSpan="3" Visibility="{Binding VisibilityTopShape}">
<Grid Margin="0,0,0,2" Grid.Row="6" Grid.ColumnSpan="4" Visibility="{Binding VisibilityTopShape}">
<Grid.ColumnDefinitions>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions>
<!--TopArc-->
<GroupBox Grid.Row="6" Margin="2,0,2,0">
<GroupBox.Header>
<StackPanel Orientation="Horizontal">
<CheckBox Grid.Row="0" Grid.Column="5"
Name="TopShape"
Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.TopShapeIsChecked}"
VerticalAlignment="Stretch"
Margin="2,0,02,0"/>
<ComboBox Style="{StaticResource DoorParamsCmBx}" Width="100"
ItemsSource="{Binding CurrPart.TopShapeList}"
SelectedItem="{Binding CurrPart.SelectedShape}"
VerticalAlignment="Stretch" Height="Auto"
Margin="2,-10,0,2"
DisplayMemberPath="Name"/>
</StackPanel>
</GroupBox.Header>
<Grid Margin="0,0,0,2" IsEnabled="{Binding IsChecked, ElementName=TopShape}">
<Grid.ColumnDefinitions>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions>
<!--TopArc-->
<TextBlock Grid.Column="0"
Visibility="{Binding CurrPart.VisibilityTopArch}"
Text="{Binding RadiusMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="2,2,0,2"/>
<TextBox Grid.Column="1"
Visibility="{Binding CurrPart.VisibilityTopArch}"
Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.Radius, UpdateSourceTrigger=PropertyChanged}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedRadius}"
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
<TextBlock Grid.Column="2"
Visibility="{Binding CurrPart.VisibilityTopArch}"
Text="{Binding PosxMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="2,2,0,2"/>
<TextBox Grid.Column="3"
Visibility="{Binding CurrPart.VisibilityTopArch}"
Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.Posx, UpdateSourceTrigger=PropertyChanged}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedPosx}"
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
<!--TopAngle-->
<TextBlock Grid.Column="0"
Visibility="{Binding CurrPart.VisibilityTopAngle}"
Text="{Binding AngleMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="2,2,0,2"/>
<TextBox Grid.Column="1"
Visibility="{Binding CurrPart.VisibilityTopAngle}"
Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.Angle, UpdateSourceTrigger=PropertyChanged}"
ToolTip="{Binding CurrPart.Angle}"
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
<TextBlock Grid.Column="2"
Visibility="{Binding CurrPart.VisibilityTopAngle}"
Text="{Binding PosxMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="2,2,0,2"/>
<TextBox Grid.Column="3"
Visibility="{Binding CurrPart.VisibilityTopAngle}"
Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.PosxAngle, UpdateSourceTrigger=PropertyChanged}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedPosxAngle}"
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
</Grid>
</GroupBox>
<!--TopArc--><!--
<GroupBox Grid.Row="6" Margin="2,0,2,0">
<GroupBox.Header>
<StackPanel Orientation="Horizontal">
@@ -322,10 +418,10 @@
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
</Grid>
</GroupBox>
</GroupBox>-->
<!--TopAngle-->
<GroupBox Grid.Row="6" Grid.Column="1" Margin="2,0,2,0">
<!--<GroupBox Grid.Row="6" Grid.Column="1" Margin="2,0,2,0">
<GroupBox.Header>
<StackPanel Orientation="Horizontal">
<CheckBox Grid.Row="0" Grid.Column="5"
@@ -366,7 +462,50 @@
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
</Grid>
</GroupBox>-->
<!--Cut-->
<GroupBox Grid.Row="6" Grid.Column="1" Margin="2,0,2,0" Visibility="Collapsed">
<GroupBox.Header>
<StackPanel Orientation="Horizontal">
<CheckBox Grid.Row="0" Grid.Column="5"
Name="Cut"
Style="{StaticResource DoorParamsChBx}"
IsChecked="{Binding CurrPart.Cut}"
Margin="0,0,2,0" VerticalAlignment="Stretch" Height="Auto"/>
<TextBlock Text="{Binding CutMsg}" Width="Auto"/>
</StackPanel>
</GroupBox.Header>
<Grid Margin="0,0,0,2" IsEnabled="{Binding IsChecked, ElementName=Cut}">
<Grid.ColumnDefinitions>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions>
<TextBlock Grid.Column="0"
Text="{Binding PosCutMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="2,2,0,2"/>
<TextBox Grid.Column="1"
Style="{StaticResource DoorParamsTxBx}"
Text="{Binding CurrPart.PosCut, UpdateSourceTrigger=PropertyChanged}"
ToolTip="{Binding CurrPart.ToolTipEvaluatedPosCut}"
Margin="0.4,2,10.6,3.2"
IsReadOnly="{Binding IsRaedOnly}"/>
<TextBlock Grid.Column="2"
Text="{Binding OrientationMsg}"
Style="{StaticResource DoorParamsTxBl}"
Margin="2,2,0,2"/>
<ComboBox Grid.Column="3"
ItemsSource="{Binding CurrPart.CutDirectionList}"
SelectedItem="{Binding CurrPart.SelectedDirection}">
</ComboBox>
</Grid>
</GroupBox>
</Grid>
</Grid>
</GroupBox>
DoorParameters/PartPageVM.vb
+33
View File
@@ -72,6 +72,12 @@ Public Class PartPageVM
Return EgtMsg(50711)
End Get
End Property
Public ReadOnly Property ResizeMsg As String
Get
'50311=Resize
Return EgtMsg(50311)
End Get
End Property
Public ReadOnly Property EdgeMsg As String
Get
Return EgtMsg(50044)
@@ -199,6 +205,22 @@ Public Class PartPageVM
Return EgtMsg(50710)
End Get
End Property
Public ReadOnly Property CutMsg As String
Get
Return "Cut"
End Get
End Property
Public ReadOnly Property PosCutMsg As String
Get
Return "Pos."
End Get
End Property
Public ReadOnly Property OrientationMsg As String
Get
Return "Dir."
End Get
End Property
Public ReadOnly Property DeleteCompoToolTip As String
Get
@@ -208,6 +230,17 @@ Public Class PartPageVM
#End Region
Private m_IsResize As Boolean
Public Property IsResize As Boolean
Get
Return m_IsResize
End Get
Set(value As Boolean)
m_IsResize = value
NotifyPropertyChanged("IsResize")
End Set
End Property
Private m_IsReadOnly As Boolean
Public Property IsRaedOnly As Boolean
Get
DoorParameters/PropertyItem.vb
+39
View File
@@ -102,4 +102,43 @@ Public Class MaterialType
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
End Sub
End Class
Public Class TopShape
'Inherits VMBase
Implements INotifyPropertyChanged
' nome caricato dalla lista dei messaggi
Private m_Name As String
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
End Set
End Property
' nome caricato dalla configurazione
Private m_NameDDF As String
Public Property NameDDF As String
Get
Return m_NameDDF
End Get
Set(value As String)
m_NameDDF = value
End Set
End Property
Sub New(sGraphicName As String)
m_Name = sGraphicName
m_NameDDF = sGraphicName
End Sub
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
Public Sub NotifyPropertyChanged(propName As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
End Sub
End Class
EgtDOORCreator.vbproj
+15 -3
View File
@@ -11,7 +11,8 @@
<AssemblyName>EgtDOORCreator</AssemblyName>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<MyType>Custom</MyType>
<TargetFrameworkProfile>Client</TargetFrameworkProfile>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
@@ -76,18 +77,27 @@
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="combit.ListLabel25, Version=25.0.7228.29118, Culture=neutral, PublicKeyToken=a7a30592cb4a94be, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\EgtProg\EgtDOORCreator\combit.ListLabel25.dll</HintPath>
</Reference>
<Reference Include="combit.ListLabel25.Wpf">
<HintPath>..\..\EgtProg\EgtDOORCreator\combit.ListLabel25.Wpf.dll</HintPath>
</Reference>
<Reference Include="EgtUILib">
<HintPath>..\..\EgtProg\DllD32\EgtUILib.dll</HintPath>
</Reference>
<Reference Include="EgtWPFLib5, Version=1.8.2.5, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="EgtWPFLib5, Version=2.1.11.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\EgtProg\DllD32\EgtWPFLib5.dll</HintPath>
<HintPath>..\..\EgtProg\EgtDOORCreator\EgtWPFLib5.dll</HintPath>
</Reference>
<Reference Include="Ionic.Zip">
<HintPath>..\..\EgtProg\EgtDOORCreator\Ionic.Zip.dll</HintPath>
</Reference>
<Reference Include="System.Core" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Windows.Interactivity, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" />
<Reference Include="System.Xml.Linq" />
@@ -213,6 +223,7 @@
<Compile Include="ProjectManager\ProjectManagerVM.vb" />
<Compile Include="ProjectManager\MySaveFileDialogVM.vb" />
<Compile Include="RegexFunction.vb" />
<Compile Include="ReportInfo\ReportCompo.vb" />
<Compile Include="SceneManager\DimensioningPanel\DimensioningPanelV.xaml.vb">
<DependentUpon>DimensioningPanelV.xaml</DependentUpon>
</Compile>
@@ -601,6 +612,7 @@
<Resource Include="Resources\TopCommandBar\Save1.png" />
<Resource Include="Resources\TopCommandBar\SaveAs1.png" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
<PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtDOORCreator\EgtDOORCreatorR32.exe
IniFile.vb
+4
View File
@@ -48,6 +48,10 @@ Friend Module IniFile
Friend m_DDFFilePath As String = String.Empty
' Path Doors directory
Friend m_sDoorsDirPath As String = String.Empty
' Path del direttorio List&Label corrente
Friend m_sListLabelDir As String = String.Empty
' Path del modello ListLabel
Friend m_sListLabelCurrent As String = String.Empty
' EgtDoorCreator.ini
Public Function GetPrivateProfileLanguage(ByVal lpAppName As String, ByVal lpKeyName As String) As Language
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -72,5 +72,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.2.1")>
<Assembly: AssemblyFileVersion("2.2.2.1")>
<Assembly: AssemblyVersion("2.2.3.1")>
<Assembly: AssemblyFileVersion("2.2.3.1")>
My Project/Resources.Designer.vb
Generated
+13 -13
View File
@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -15,14 +15,14 @@ Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder.
'tramite uno strumento quale ResGen o Visual Studio.
'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen
'con l'opzione /str oppure ricompilare il progetto VS.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -33,7 +33,7 @@ Namespace My.Resources
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
@@ -47,8 +47,8 @@ Namespace My.Resources
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le
''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
My Project/Settings.Designer.vb
Generated
+7 -7
View File
@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -14,21 +14,21 @@ Option Explicit On
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#Region "Funzionalità di salvataggio automatico My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
OptionsWindow/OptionModule.vb
+20
View File
@@ -37,6 +37,8 @@ Friend Module OptionModule
Friend m_MaterialList As New ObservableCollection(Of MaterialType)
Friend m_CurrMaterial As MaterialType
Friend m_VisibilityBtnDesign As Visibility = Visibility.Collapsed
Friend Enum LauncherOpt As Integer
Open_window = 0
Open_last_project = 1
@@ -234,6 +236,22 @@ Friend Module OptionModule
EgtOutLog(String.Format(EgtMsg(50180), sMachinDir))
End If
Dim sListLabelDir As String = String.Empty
If GetMainPrivateProfileString(S_LISTLABEL, K_LISTLABELDIR, "", sListLabelDir) > 0 AndAlso Directory.Exists(sListLabelDir) Then
IniFile.m_sListLabelDir = sListLabelDir
Else
' mantengo l'accesso a quello di default
EgtOutLog(String.Format(EgtMsg(50180), sListLabelDir))
End If
Dim sListLabelFile As String = String.Empty
If GetMainPrivateProfileString(S_LISTLABEL, K_LISTLABELFILE, "", sListLabelFile) > 0 AndAlso File.Exists(sListLabelFile) Then
IniFile.m_sListLabelCurrent = sListLabelFile
Else
' mantengo l'accesso a quello di default
EgtOutLog(String.Format(EgtMsg(50180), sListLabelFile))
End If
Dim nHelpSelct As Integer = 0
Select Case GetMainPrivateProfileInt(S_GENERAL, K_SMARTHELP, 1)
Case 0
@@ -261,6 +279,8 @@ Friend Module OptionModule
m_DeleteProject = If(GetMainPrivateProfileInt(S_GENERAL, K_DELETEPROJECT, 0) = 1, True, False)
m_VisibilityBtnDesign = If(GetMainPrivateProfileInt(S_GENERAL, K_ENABLEBTNDESING, 0) = 1, Visibility.Visible, Visibility.Hidden)
' leggo il tipo di Bevel selezionato
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)
Print/PrintWndV.xaml
+24 -17
View File
@@ -1,38 +1,45 @@
<EgtWPFLib5:EgtCustomWindow x:Class="PrintWndV"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:EgtDOORCreator="clr-namespace:EgtDOORCreator"
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
xmlns:ListLabel25="clr-namespace:combit.ListLabel25.Wpf;assembly=combit.ListLabel25.Wpf"
mc:Ignorable="d"
Title="{Binding Title}" Icon="/Resources/EgtDOOR.ico"
TitleBarBrush="{StaticResource EgaltechBlue1}"
BorderBrush="{StaticResource EgaltechBlue1}"
WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False"
CloseCommand="{Binding CancelCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}" SizeToContent="WidthAndHeight">
<Grid >
<Grid >
<Grid.RowDefinitions>
<RowDefinition Height="1*"/>
<RowDefinition Height="Auto"/>
</Grid.RowDefinitions>
<EgtDOORCreator:PrintSceneHostV Height="600" Width="450"/>
<!--<EgtDOORCreator:PrintSceneHostV Height="600" Width="450"/>-->
<ListLabel25:EnhancedViewerControl Name="enhancedPreviewControl" Height="650" Width="650"/>
<UniformGrid Columns="2"
Grid.Row="1"
Margin="10">
<Button VerticalAlignment="Center"
Height="30" Margin="50,0,50,0"
Content="{Binding PrintMsg}"
Command="{Binding PrintCommand}"
ToolTip="{Binding PrintToolTip}"
IsDefault="True"
Focusable="False"/>
<Button VerticalAlignment="Center"
Height="30" Margin="50,0,50,0"
Content="{Binding CancelMsg}"
Command="{Binding CancelCommand}"
ToolTip="{Binding CancelToolTip}"
Focusable="False"/>
Grid.Row="1"
Margin="10">
<Button VerticalAlignment="Center"
Height="30" Margin="50,0,50,0"
Content="{Binding DesignMsg}"
Command="{Binding DesignCommand}"
Visibility="{Binding DesignVisibility}"
ToolTip="{Binding DeisgnToolTip}"
IsDefault="True"
Focusable="False"/>
<Button VerticalAlignment="Center"
Height="30" Margin="50,0,50,0"
Content="{Binding CancelMsg}"
Command="{Binding CancelCommand}"
ToolTip="{Binding CancelToolTip}"
Focusable="False"/>
</UniformGrid>
</Grid>
Print/PrintWndV.xaml.vb
+37 -4
View File
@@ -1,4 +1,27 @@
Imports EgtUILib
Imports combit.ListLabel25
Imports combit.ListLabel25.DataProviders
Imports Microsoft.Win32
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Imports System.Xml
Imports System.ComponentModel
Imports System.Collections.ObjectModel
Public Class PrintWndV
@@ -6,18 +29,28 @@ Public Class PrintWndV
Sub New(Owner As Window, PrintWndVM As PrintWndVM)
MyBase.New(Owner)
AddHandler Closed, AddressOf PrintWndV_Closed
' This call is required by the designer.
InitializeComponent()
Me.DataContext = PrintWndVM
' Assegno al riferimento locale al VM il VM preso dal DataContext
m_PrintWndVM = PrintWndVM
m_PrintWndVM.MyLL.PreviewControl = enhancedPreviewControl.PreviewControl
m_PrintWndVM.Preview()
End Sub
Private Sub PrintWndV_Closed(sender As Object, e As System.EventArgs) Handles Me.Closed
' Imposto contesto generale
EgtSetCurrentContext(Map.refSceneManagerVM.ProjectScene.GetCtx())
' Cancello contesto di visualizzazione utensile
EgtDeleteContext(Map.refPrintSceneHostV.PrintScene.GetCtx())
enhancedPreviewControl.FileName = String.Empty
m_PrintWndVM.MyLL.Dispose()
''Imposto contesto generale
'EgtSetCurrentContext(Map.refSceneManagerVM.ProjectScene.GetCtx())
''Cancello contesto di visualizzazione utensile
'EgtDeleteContext(Map.refPrintSceneHostV.PrintScene.GetCtx())
End Sub
End Class
Print/PrintWndVM.vb
+104 -29
View File
@@ -1,15 +1,21 @@
Imports System.Collections.ObjectModel
Imports combit.ListLabel25
Imports combit.ListLabel25.DataProviders
Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.IO
Imports System.Windows
Imports EgtUILib
Imports EgtWPFLib5
Imports Ionic.Zip
Imports System.Collections.Generic
Public Class PrintWndVM
Inherits VMBase
Shared m_Door As Part
Friend MyLL As ListLabel
Private sPathImage As String
#Region "MESSAGES"
@@ -20,9 +26,10 @@ Public Class PrintWndVM
End Get
End Property
Public ReadOnly Property PrintMsg As String
Public ReadOnly Property DesignMsg As String
Get
Return EgtMsg(50411)
' Design
Return EgtMsg(50312)
End Get
End Property
@@ -33,9 +40,10 @@ Public Class PrintWndVM
End Get
End Property
Public ReadOnly Property PrintToolTip As String
Public ReadOnly Property DeisgnToolTip As String
Get
Return EgtMsg(50411)
' Design
Return EgtMsg(50312)
End Get
End Property
@@ -63,6 +71,17 @@ Public Class PrintWndVM
End Get
End Property
' abilita la visualizzazione del bottone Design per definire i report
Private m_DesignVisibility As Visibility = OptionModule.m_VisibilityBtnDesign
Public Property DesignVisibility As Visibility
Get
Return m_DesignVisibility
End Get
Set(value As Visibility)
m_DesignVisibility = value
End Set
End Property
' lista degli hardware presenti nella porta corrente
Private m_CompoList As New ObservableCollection(Of HardwareDimension)
Public Property CompoList As ObservableCollection(Of HardwareDimension)
@@ -81,46 +100,99 @@ Public Class PrintWndVM
Return True
End Function
Private m_cmdPrint As ICommand
Private m_cmdDesign As ICommand
Private m_cmdCancel As ICommand
#Region "Preview"
Public Sub Preview()
' Creo l'immagine da allegare
' Nascondo la tavola ed eseguo zoom su quello che rimane
EgtZoom(ZM.ALL, True)
' Prendo l'immagine per la stampa
Dim colWhite As New Color3d(255, 255, 255)
Dim nImgW As Integer = 3000
Dim nImgH As Integer = 4000
Dim sPath As String = m_sTempDir & "\Image.png"
EgtSetLineAttribs(3)
If Not EgtGetImage(SM.HIDDENLINE, colWhite, colWhite, nImgW, nImgH, sPath) Then
' Error in creating the print image
EgtOutLog(EgtMsg(50181))
Return
End If
EgtSetLineAttribs(1)
DdfFile.OrderInReport.Image = sPath
DdfFile.ReportDoor.Order(0).Image = sPath
sPathImage = sPath
Try
MyLL.DataBindingMode = DataBindingMode.Preload
'Dim Order As New List(Of ReportOrder)
'Order.Add(DdfFile.OrderInReport)
Dim Order As New List(Of TableDoor)
Order.Add(DdfFile.ReportDoor)
MyLL.SetDataBinding(Order, String.Empty)
If String.IsNullOrEmpty(IniFile.m_sListLabelCurrent) Then
MyLL.AutoProjectFile = IniFile.m_sListLabelDir + "\MyOrder.lst"
Else
MyLL.AutoProjectFile = IniFile.m_sListLabelCurrent
End If
' permette di visualizzare una prestampa
MyLL.AutoDestination = LlPrintMode.PreviewControl
'MyLL.AutoShowSelectFile = False
MyLL.AutoShowPrintOptions = False
MyLL.AutoProjectType = LlProject.List Or LlProject.FileAlsoNew
MyLL.Print()
IniFile.m_sListLabelCurrent = MyLL.LastProjectFile
WriteMainPrivateProfileString(S_LISTLABEL, K_LISTLABELFILE, IniFile.m_sListLabelCurrent)
Catch generatedExceptionName As LL_User_Aborted_Exception
Catch LlException As ListLabelException
MessageBox.Show("Information: " + LlException.Message + vbLf & vbLf & "This information was generated by a List & Label custom exception.", "Information", MessageBoxButton.OK, MessageBoxImage.Information)
End Try
End Sub
#End Region
#Region "PrintCommand"
Public ReadOnly Property PrintCommand As ICommand
Public ReadOnly Property DesignCommand As ICommand
Get
If m_cmdPrint Is Nothing Then
m_cmdPrint = New Command(AddressOf Print)
If m_cmdDesign Is Nothing Then
m_cmdDesign = New Command(AddressOf Design)
End If
Return m_cmdPrint
Return m_cmdDesign
End Get
End Property
Public Sub Design(ByVal param As Object)
Try
MyLL.DataBindingMode = DataBindingMode.Preload
Dim Order As New List(Of TableDoor)
Order.Add(DdfFile.ReportDoor)
MyLL.SetDataBinding(Order, String.Empty)
MyLL.AutoProjectFile = "C:\Users\Nicola\Documents\Report Files\MyOrder.lst"
' permette di visualizzare una prestampa
MyLL.AutoDestination = LlPrintMode.PreviewControl
MyLL.AutoShowPrintOptions = False
MyLL.AutoProjectType = LlProject.List Or LlProject.FileAlsoNew
MyLL.Design()
Catch generatedExceptionName As LL_User_Aborted_Exception
Catch LlException As ListLabelException
MessageBox.Show("Information: " + LlException.Message + vbLf & vbLf & "This information was generated by a List & Label custom exception.", "Information", MessageBoxButton.OK, MessageBoxImage.Information)
End Try
Preview()
End Sub
Public Sub Print(ByVal param As Object)
Dim printDlg As New PrintDialog
Dim sPath = sPathImage
If printDlg.ShowDialog() Then
' Recupero le dimensioni dell'area di stampa
Dim dW As Double = printDlg.PrintableAreaWidth
Dim dH As Double = printDlg.PrintableAreaHeight
'' Nascondo la tavola ed eseguo zoom su quello che rimane
EgtZoom(ZM.ALL, True)
' Prendo l'immagine per la stampa
Dim colWhite As New Color3d(255, 255, 255)
Dim nImgW As Integer = 3000
Dim nImgH As Integer = 4000
Dim sPath As String = m_sTempDir & "\Image.png"
EgtSetLineAttribs( 3)
If Not EgtGetImage(SM.HIDDENLINE, colWhite, colWhite, nImgW, nImgH, sPath) Then
' Error in creating the print image
EgtOutLog(EgtMsg(50181))
Return
End If
EgtSetLineAttribs( 1)
Try
Preview()
'Metodo complesso di stampa che permette di rilasciare il file :
'carico la bitmap e la metto in uno stream in memoria
Dim stream As System.IO.Stream = New System.IO.MemoryStream()
@@ -179,14 +251,17 @@ Public Class PrintWndVM
If TypeOf Window Is PrintWndV Then
Dim CurrWindow As PrintWndV = DirectCast(Window, PrintWndV)
CurrWindow.Close()
MyLL.Dispose()
End If
Next
EgtSetCurrentContext(Map.refSceneManagerVM.ProjectScene.GetCtx)
End Sub
#End Region ' CancelCommand
Sub New()
MyLL = New ListLabel
' copio il riferimento della porta corrente
m_Door = Map.refPartPageVM.CurrPart
Dim IndexCompoDoor As Integer = 1
ReportInfo/ReportCompo.vb
+293
View File
@@ -0,0 +1,293 @@
Public Class ReportOrder
Private m_Order As String
Public Property Order As String
Get
Return m_Order
End Get
Set(value As String)
m_Order = value
End Set
End Property
Private m_Image As String
Public Property Image As String
Get
Return m_Image
End Get
Set(value As String)
m_Image = value
End Set
End Property
Public Property OrderParameterList As New List(Of ReportParameter)
Public Property ReportCompoList As New List(Of ReportCompo)
End Class
Public Class ReportCompo
Public Sub New(Name__1 As String, Brand__2 As String, Template__3 As String)
m_Name = Name__1
m_Brand = Brand__2
m_Template = Template__3
End Sub
Private m_Name As String
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
End Set
End Property
Private m_Brand As String
Public Property Brand As String
Get
Return m_Brand
End Get
Set(value As String)
m_Brand = value
End Set
End Property
Private m_Template As String
Public Property Template As String
Get
Return m_Template
End Get
Set(value As String)
m_Template = value
End Set
End Property
Public Property CompoParameterList As New List(Of ReportParameter)
End Class
' Nuova versione tabella
Public Class TableDoor
Public Property Order As New List(Of TableOrder)
Public Property Dimension As New List(Of TableDimension)
Public Property Proflie As New List(Of TableProfile)
Public Property OtherInfo As New List(Of TableOtherInfo)
Public Property HardwareList As New List(Of TableHardaware)
Public Property MachList As New List(Of TableMach)
End Class
Public Class TableOrder
' immagine porta
Private m_Image As String
Public Property Image As String
Get
Return m_Image
End Get
Set(value As String)
m_Image = value
End Set
End Property
' lista dei parametri
Private m_Order_ParametersList As List(Of ReportParameter)
Public Property Order_ParametersList As List(Of ReportParameter)
Get
Return m_Order_ParametersList
End Get
Set(value As List(Of ReportParameter))
m_Order_ParametersList = value
End Set
End Property
Sub New()
m_Order_ParametersList = New List(Of ReportParameter)
End Sub
End Class
Public Class TableDimension
' lista dei parametri
Private m_Dimension_ParametersList As List(Of ReportParameter)
Public Property Dimension_ParametersList As List(Of ReportParameter)
Get
Return m_Dimension_ParametersList
End Get
Set(value As List(Of ReportParameter))
m_Dimension_ParametersList = value
End Set
End Property
Sub New()
m_Dimension_ParametersList = New List(Of ReportParameter)
End Sub
End Class
Public Class TableProfile
' lista dei parametri
Private m_Profile_ParametersList As List(Of ReportParameter)
Public Property Profile_ParametersList As List(Of ReportParameter)
Get
Return m_Profile_ParametersList
End Get
Set(value As List(Of ReportParameter))
m_Profile_ParametersList = value
End Set
End Property
Sub New()
m_Profile_ParametersList = New List(Of ReportParameter)
End Sub
End Class
Public Class TableOtherInfo
' lista dei parametri
Private m_OtherInfo_ParametersList As List(Of ReportParameter)
Public Property OtherInfo_ParametersList As List(Of ReportParameter)
Get
Return m_OtherInfo_ParametersList
End Get
Set(value As List(Of ReportParameter))
m_OtherInfo_ParametersList = value
End Set
End Property
Sub New()
m_OtherInfo_ParametersList = New List(Of ReportParameter)
End Sub
End Class
Public Class TableHardaware
' nome Hardware
Private m_Name As String
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
End Set
End Property
' marca Hardware
Private m_Brand As String
Public Property Brand As String
Get
Return m_Brand
End Get
Set(value As String)
m_Brand = value
End Set
End Property
' modello Hardware
Private m_Template As String
Public Property Template As String
Get
Return m_Template
End Get
Set(value As String)
m_Template = value
End Set
End Property
' lista dei parametri
Private m_Hardware_ParametersList As List(Of ReportParameter)
Public Property Hardware_ParametersList As List(Of ReportParameter)
Get
Return m_Hardware_ParametersList
End Get
Set(value As List(Of ReportParameter))
m_Hardware_ParametersList = value
End Set
End Property
Public Sub New(Name__1 As String, Brand__2 As String, Template__3 As String)
m_Name = Name__1
m_Brand = Brand__2
m_Template = Template__3
m_Hardware_ParametersList = New List(Of ReportParameter)
End Sub
End Class
Public Class TableMach
' nome Mach
Private m_Name As String
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
End Set
End Property
' modello lavorazione
Private m_Template As String
Public Property Template As String
Get
Return m_Template
End Get
Set(value As String)
m_Template = value
End Set
End Property
' lista dei parametri
Private m_Mach_ParametersList As List(Of ReportParameter)
Public Property Mach_ParametersList As List(Of ReportParameter)
Get
Return m_Mach_ParametersList
End Get
Set(value As List(Of ReportParameter))
m_Mach_ParametersList = value
End Set
End Property
Public Sub New(Name__1 As String, Template__2 As String)
m_Name = Name__1
m_Template = Template__2
m_Mach_ParametersList = New List(Of ReportParameter)
End Sub
End Class
Public Class ReportParameter
Public Sub New(Name__1 As String, Value__2 As String)
m_Name = Name__1
m_sValue = Value__2
End Sub
Private m_Name As String
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
End Set
End Property
Private m_sValue As String
Public Property sValue As String
Get
Return m_sValue
End Get
Set(value As String)
m_sValue = value
End Set
End Property
End Class
SceneManager/SceneManagerVM.vb
+9
View File
@@ -198,6 +198,15 @@ Public Class SceneManagerVM
Dim DstLnColor As New Color3d(255, 0, 0)
GetMainPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor)
m_ProjectScene.SetDistLineMaterial(DstLnColor)
' Imposto i parametri del disegno quote
Dim dExtLineLen As Double = GetMainPrivateProfileDouble(S_DIMENSIONSTYLE, K_EXTLINELEN, 5)
Dim dArrowLen As Double = GetMainPrivateProfileDouble(S_DIMENSIONSTYLE, K_ARROWLEN, 5)
Dim dTextDist As Double = GetMainPrivateProfileDouble(S_DIMENSIONSTYLE, K_TEXTDIST, 2)
Dim nLenIsMM As Integer = GetMainPrivateProfileInt(S_DIMENSIONSTYLE, K_LENISMM, 2)
Dim nDecDigit As Integer = GetMainPrivateProfileInt(S_DIMENSIONSTYLE, K_DECDIGIT, -2)
Dim sFont As String = "" : GetMainPrivateProfileString(S_DIMENSIONSTYLE, K_DIMFONT, "ModernPropS.Nfe", sFont)
Dim dTextHeight As Double = GetMainPrivateProfileDouble(S_DIMENSIONSTYLE, K_TEXTHEIGHT, 2)
EgtSetCurrDimensionStyle(dExtLineLen, dArrowLen, dTextDist, nLenIsMM, nDecDigit, sFont, dTextHeight)
' imposto parametri OpenGL
Dim nDriver As Integer = GetMainPrivateProfileInt(S_OPENGL, K_DRIVER, 3)
Dim b2Buff As Boolean = (GetMainPrivateProfileInt(S_OPENGL, K_DOUBLEBUFFER, 1) <> 0)