EgtDORRCreator 1.8l2 :
- in avvio "RunAs = 0" (Door) nella sezione code del ddf salva il nome del file aperto (senza estensione)
This commit is contained in:
Nicola Pievani
+164
-157
@@ -38,178 +38,185 @@ Friend Module DdfFile
|
||||
DdfFileContent.Add(ConstCompo.K_MEASURES & ": " & Part.Measure)
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
If Not IsNothing(Part.TypePart) Then
|
||||
If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then
|
||||
Part.Code = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName
|
||||
If Part.Code.Contains("*") Then
|
||||
Part.Code = Part.Code.Replace("*", "")
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_CODE & ": " & Part.Code)
|
||||
DdfFileContent.Add("")
|
||||
ElseIf Not IsNothing(Part.TypePart) And OptionModule.m_ConfigurationSoftware = ConfigType.Assembly Then
|
||||
Part.Code = " " & PrintTitleDDFPart(Part.TypePart)
|
||||
DdfFileContent.Add(ConstCompo.K_CODE & ": " & Part.Code)
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
Else
|
||||
ElseIf IsNothing(Part.TypePart) And OptionModule.m_ConfigurationSoftware = ConfigType.Assembly Then
|
||||
DdfFileContent.Add(ConstCompo.K_CODE & ": " & "1111")
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
End If
|
||||
|
||||
DdfFileContent.Add(ConstCompo.S_ORDER & ":")
|
||||
' Probabilmente da cambiare
|
||||
If Not IsNothing(Part.Customer) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_CUSTOMER & ": " & Part.Customer)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_CUSTOMER & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.Elevation) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_ELEVATION & ": " & Part.Elevation)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_ELEVATION & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.Project) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PROJECT & ": " & Part.Project)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PROJECT & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.PO) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PO & ": " & Part.PO)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PO & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.Line) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_LINE & ": " & Part.Line)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_LINE & ": ")
|
||||
End If
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add(ConstCompo.K_DATE & ":" & " " & System.DateTime.Now.ToString("dd/MM/yyyy"))
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
' è specificato il tipo significa che abbiamo un assemblato
|
||||
DdfFileContent.Add("piece: " & Part.TypePart)
|
||||
DdfFileContent.Add("")
|
||||
' posizionamento porte
|
||||
If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly Then
|
||||
If Not IsNothing(Part.TypePart) Then
|
||||
' il posizionamento della prima porta sta nell'origine
|
||||
If Part.TypePart = "DO_1" Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & "0")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & "0")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & "0")
|
||||
ElseIf Part.TypePart = "DO_2" Then
|
||||
' si trova traslata verso destra dello spessore DO_1 sommato a LightLock"
|
||||
Dim x_DO_1 As Double
|
||||
Dim dLightLock As Double
|
||||
StringToDouble(Map.refAssemblyPageVM.CurrAssembly.GetArrayPartDoor(0).Door.Width, x_DO_1)
|
||||
StringToDouble(Map.refAssemblyPageVM.CurrAssembly.LightLock, dLightLock)
|
||||
Dim x As String = DoubleToString(x_DO_1 + dLightLock, 4)
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & x)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & "0")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & "0")
|
||||
' Jamb Sinistro serratura
|
||||
ElseIf Part.TypePart.Contains("FL_") Then
|
||||
Dim x As String = PositionJamb_X(Part)
|
||||
Dim y As String = PositionJamb_Y(Part)
|
||||
Dim z As String = PositionJamb_Z(Part)
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & x)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & y)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & z)
|
||||
ElseIf Part.TypePart.Contains("FR_") Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & PositionJamb_X(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & PositionJamb_Y(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & PositionJamb_Z(Part))
|
||||
ElseIf Part.TypePart.Contains("FT_") Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & PositionJamb_X(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & PositionJamb_Y(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & PositionJamb_Z(Part))
|
||||
ElseIf Part.TypePart.Contains("FB_") Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & PositionJamb_X(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & PositionJamb_Y(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & PositionJamb_Z(Part))
|
||||
End If
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add(ConstCompo.S_ORDER & ":")
|
||||
' Probabilmente da cambiare
|
||||
If Not IsNothing(Part.Customer) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_CUSTOMER & ": " & Part.Customer)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_CUSTOMER & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.Elevation) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_ELEVATION & ": " & Part.Elevation)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_ELEVATION & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.Project) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PROJECT & ": " & Part.Project)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PROJECT & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.PO) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PO & ": " & Part.PO)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_PO & ": ")
|
||||
End If
|
||||
If Not IsNothing(Part.Line) Then
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_LINE & ": " & Part.Line)
|
||||
Else
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_LINE & ": ")
|
||||
End If
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add(ConstCompo.K_DATE & ":" & " " & System.DateTime.Now.ToString("dd/MM/yyyy"))
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
' è specificato il tipo significa che abbiamo un assemblato
|
||||
DdfFileContent.Add("piece: " & Part.TypePart)
|
||||
DdfFileContent.Add("")
|
||||
' posizionamento porte
|
||||
If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly Then
|
||||
If Not IsNothing(Part.TypePart) Then
|
||||
' il posizionamento della prima porta sta nell'origine
|
||||
If Part.TypePart = "DO_1" Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & "0")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & "0")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & "0")
|
||||
ElseIf Part.TypePart = "DO_2" Then
|
||||
' si trova traslata verso destra dello spessore DO_1 sommato a LightLock"
|
||||
Dim x_DO_1 As Double
|
||||
Dim dLightLock As Double
|
||||
StringToDouble(Map.refAssemblyPageVM.CurrAssembly.GetArrayPartDoor(0).Door.Width, x_DO_1)
|
||||
StringToDouble(Map.refAssemblyPageVM.CurrAssembly.LightLock, dLightLock)
|
||||
Dim x As String = DoubleToString(x_DO_1 + dLightLock, 4)
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & x)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & "0")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & "0")
|
||||
' Jamb Sinistro serratura
|
||||
ElseIf Part.TypePart.Contains("FL_") Then
|
||||
Dim x As String = PositionJamb_X(Part)
|
||||
Dim y As String = PositionJamb_Y(Part)
|
||||
Dim z As String = PositionJamb_Z(Part)
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & x)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & y)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & z)
|
||||
ElseIf Part.TypePart.Contains("FR_") Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & PositionJamb_X(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & PositionJamb_Y(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & PositionJamb_Z(Part))
|
||||
ElseIf Part.TypePart.Contains("FT_") Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & PositionJamb_X(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & PositionJamb_Y(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & PositionJamb_Z(Part))
|
||||
ElseIf Part.TypePart.Contains("FB_") Then
|
||||
DdfFileContent.Add("position: ")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "x: " & PositionJamb_X(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "y: " & PositionJamb_Y(Part))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & "z: " & PositionJamb_Z(Part))
|
||||
End If
|
||||
DdfFileContent.Add("")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim dVal As Double = 0
|
||||
DdfFileContent.Add(ConstCompo.K_SIZE & ":")
|
||||
If Not StringToDouble(Part.Width, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_WIDTH, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_WIDTH & ": " & DoubleToString(dVal, 5))
|
||||
If Not StringToDouble(Part.Height, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_HEIGHT, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_HEIGHT & ": " & DoubleToString(dVal, 5))
|
||||
If Not StringToDouble(Part.Thickness, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_THICKNESS, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_THICKNESS & ": " & DoubleToString(dVal, 5))
|
||||
' aggiungo il peso della porta
|
||||
If Part.IsCheckedWeight = Visibility.Visible Then
|
||||
If Not StringToDouble(Part.Weight, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_WEIGHT, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Dim dVal As Double = 0
|
||||
DdfFileContent.Add(ConstCompo.K_SIZE & ":")
|
||||
If Not StringToDouble(Part.Width, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_WIDTH, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_WEIGHT & ": " & Part.Weight)
|
||||
End If
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add("" & ConstCompo.K_SWING & ": " & Part.Swing)
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_WIDTH & ": " & DoubleToString(dVal, 5))
|
||||
If Not StringToDouble(Part.Height, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_HEIGHT, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_HEIGHT & ": " & DoubleToString(dVal, 5))
|
||||
If Not StringToDouble(Part.Thickness, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_THICKNESS, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_THICKNESS & ": " & DoubleToString(dVal, 5))
|
||||
' aggiungo il peso della porta
|
||||
If Part.IsCheckedWeight = Visibility.Visible Then
|
||||
If Not StringToDouble(Part.Weight, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_WEIGHT, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_WEIGHT & ": " & Part.Weight)
|
||||
End If
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add("" & ConstCompo.K_SWING & ": " & Part.Swing)
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
|
||||
' aggiungo il secure nullo al DDF
|
||||
DdfFileContent.Add("" & ConstCompo.K_SECURE & ": " & "0")
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add("" & ConstCompo.K_PROFILES & ":")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_LOCKEDGE & ": " & Part.LockEdgeType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.LockEdgeMachining))
|
||||
If Not StringToDouble(Part.LockEdgeOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_LOCKEDGEOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_HINGEEDGE & ": " & Part.HingeEdgeType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.HingeEdgeMachining))
|
||||
If Not StringToDouble(Part.HingeEdgeOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_HINGEDGEOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_TOP & ": " & Part.TopType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.TopMachining))
|
||||
If Not StringToDouble(Part.TopOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_TOPOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_BOTTOM & ": " & Part.BottomType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.BottomMachining))
|
||||
If Not StringToDouble(Part.BottomOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_BOTTOMOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
' aggiungo il secure nullo al DDF
|
||||
DdfFileContent.Add("" & ConstCompo.K_SECURE & ": " & "0")
|
||||
' aggiungo una riga vuota per separare la lista successiva
|
||||
DdfFileContent.Add("")
|
||||
DdfFileContent.Add("" & ConstCompo.K_PROFILES & ":")
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_LOCKEDGE & ": " & Part.LockEdgeType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.LockEdgeMachining))
|
||||
If Not StringToDouble(Part.LockEdgeOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_LOCKEDGEOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_HINGEEDGE & ": " & Part.HingeEdgeType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.HingeEdgeMachining))
|
||||
If Not StringToDouble(Part.HingeEdgeOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_HINGEDGEOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_TOP & ": " & Part.TopType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.TopMachining))
|
||||
If Not StringToDouble(Part.TopOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_TOPOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE3 & ConstCompo.K_BOTTOM & ": " & Part.BottomType.Name)
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_MACHINING & ": " & ConvertBooleanToOnOff(Part.BottomMachining))
|
||||
If Not StringToDouble(Part.BottomOverMaterial, dVal) Then
|
||||
MessageBox.Show(EgtMsg(50106) & K_BOTTOMOVERMATERIAL_INI, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
||||
Return
|
||||
End If
|
||||
DdfFileContent.Add(ConstCompo.K_SPACE5 & ConstCompo.K_OVERMATERIAL & ": " & DoubleToString(dVal, 5))
|
||||
|
||||
' Riordino e stampo le compo
|
||||
SearchCompo(DdfFileContent, Part, bIsTemplate)
|
||||
If Not Directory.Exists(Path.GetDirectoryName(sPath)) Then
|
||||
Directory.CreateDirectory(Path.GetDirectoryName(sPath))
|
||||
End If
|
||||
'-----------------------------------------------------------------------------------------------------------------------------------
|
||||
'Stampa su file
|
||||
If bIsForAssembly Then
|
||||
File.AppendAllLines(sPath, DdfFileContent, Text.Encoding.UTF8)
|
||||
Else
|
||||
File.WriteAllLines(sPath, DdfFileContent, Text.Encoding.UTF8)
|
||||
End If
|
||||
' Riordino e stampo le compo
|
||||
SearchCompo(DdfFileContent, Part, bIsTemplate)
|
||||
If Not Directory.Exists(Path.GetDirectoryName(sPath)) Then
|
||||
Directory.CreateDirectory(Path.GetDirectoryName(sPath))
|
||||
End If
|
||||
'-----------------------------------------------------------------------------------------------------------------------------------
|
||||
'Stampa su file
|
||||
If bIsForAssembly Then
|
||||
File.AppendAllLines(sPath, DdfFileContent, Text.Encoding.UTF8)
|
||||
Else
|
||||
File.WriteAllLines(sPath, DdfFileContent, Text.Encoding.UTF8)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "Funzioni per il posizionamento"
|
||||
|
||||
@@ -72,5 +72,5 @@ Imports System.Windows
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.8.12.1")>
|
||||
<Assembly: AssemblyFileVersion("1.8.12.1")>
|
||||
<Assembly: AssemblyVersion("1.8.12.2")>
|
||||
<Assembly: AssemblyFileVersion("1.8.12.2")>
|
||||
|
||||
Reference in New Issue
Block a user