diff --git a/Dokumentáció Készítő 3/MainWindow.xaml.vb b/Dokumentáció Készítő 3/MainWindow.xaml.vb index e73db8a..f0e3b18 100644 --- a/Dokumentáció Készítő 3/MainWindow.xaml.vb +++ b/Dokumentáció Készítő 3/MainWindow.xaml.vb @@ -735,65 +735,7 @@ Public Class MainWindow End If '--------------------- Calculate sheetsize for print - Try - Dim iFormatDrawing As IpfcModelDescriptor - iFormatDrawing = SheetOwner.GetSheetFormatDescr(i) - Dim NameOfSheet As String = iFormatDrawing.InstanceName(iFormatDrawing.InstanceName.Length - 4) - Dim A01234 As String = iFormatDrawing.InstanceName.IndexOf("A?") - Dim regex As New RegularExpressions.Regex("A\d") - Dim FormatString As String = regex.Match(iFormatDrawing.InstanceName).Value - NameOfSheet = FormatString.Substring(1, 1) - - Dim e_int As Integer - e_int = 2 ^ CInt(NameOfSheet) - - Dim model2d As IpfcModel2D - Dim view2d As IpfcView2D - Dim dview As CpfcView2Ds - Dim model2 As IpfcModel - Dim ListOfViewSheets As New List(Of Integer) - Dim SheetNumberIndex As New List(Of Integer) - Dim ViewCount As Single - Dim IndexOfCurrentSheetFirstView As Integer - - model2d = Model1 - dview = model2d.List2DViews() - ViewCount = dview.Count - - For z = 0 To ViewCount - 1 - view2d = (dview(z)) - ListOfViewSheets.Add(view2d.GetSheetNumber) - Next - - If i = 0 Then - i = 1 - IndexOfCurrentSheetFirstView = ListOfViewSheets.IndexOf(i) - i = 0 - Else - IndexOfCurrentSheetFirstView = ListOfViewSheets.IndexOf(i) - End If - - view2d = dview(IndexOfCurrentSheetFirstView) - model2 = view2d.GetModel - - Dim SheetScale As Double = SheetOwner.GetSheetScale(i, model2) - - Dim Print_value As Double = e_int * 10 * SheetScale - '--------------------- Calculate sheetsize for print END - - - - If printNeeded = True Then - HandleNames(FileNameMod, y, i, ".Tif", Model1) - Printtoprinter(Session, Drawing, i, i, FileNameMod, Model1, Print_value) - End If - - - - Catch ex As Exception - MsgBox(ex.Message) - End Try Next i @@ -812,15 +754,8 @@ Public Class MainWindow End If - If excelPrintNeeded = True Then - folderpicked = Path.GetTempPath - HandleNames(FileNameMod, 0, 0, ".xls", Model1) - CreateExcel(Session, FileNameMod) - PrintExcel(FileNameMod) - - End If End Sub @@ -1051,7 +986,7 @@ Public Class MainWindow Dim ColCount2 As Integer = TableContent.GetLength(1) Dim o As Integer = 2 - If ColCount2 > 13 Then + If ColCount2 > 12 Then For row = 3 To RowCount - 3 Console.WriteLine(TableContent(row, 7)) @@ -1065,22 +1000,24 @@ Public Class MainWindow 'xt ' Else Dim u As Integer = 0 - xlWorkSheet.Cells(row + u, 1) = TableContent(row, 1) + xlWorkSheet.Cells(row + u, 3) = TableContent(row, 1) 'gyarto - xlWorkSheet.Cells(row + u, 2) = TableContent(row, 3) + xlWorkSheet.Cells(row + u, 4) = TableContent(row, 2) 'rajzszan 'xlWorkSheet.Cells(row + u, 3) = TableContent(row, 3) ' xlWorkSheet.Cells(row + u, 3) = TableContent(row, 4) - xlWorkSheet.Cells(row + u, 3) = TableContent(row, 5) - xlWorkSheet.Cells(row + u, 4) = TableContent(row, 6) - xlWorkSheet.Cells(row + u, 5) = TableContent(row, 7) - xlWorkSheet.Cells(row + u, 6) = TableContent(row, 8) - xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9).Replace("n", "ø") + xlWorkSheet.Cells(row + u, 5) = TableContent(row, 3) 'filename + xlWorkSheet.Cells(row + u, 6) = TableContent(row, 4) 'bf + ' xlWorkSheet.Cells(row + u, 5) = TableContent(row, 7) 'ures + xlWorkSheet.Cells(row + u, 8) = TableContent(row, 6) 'db + xlWorkSheet.Cells(row + u, 9) = TableContent(row, 7) 'anyag + + ' xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9).Replace("n", "ø") ' xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9) - xlWorkSheet.Cells(row + u, 10) = TableContent(row, 10) - xlWorkSheet.Cells(row + u, 11) = TableContent(row, 11) - xlWorkSheet.Cells(row + u, 12) = TableContent(row, 12) - xlWorkSheet.Cells(row + u, 13) = TableContent(row, 13) - xlWorkSheet.Cells(row + u, 14) = TableContent(row, 14) + xlWorkSheet.Cells(row + u, 10) = TableContent(row, 8) 'fel + xlWorkSheet.Cells(row + u, 12) = TableContent(row, 9) 'felszin + xlWorkSheet.Cells(row + u, 12) = TableContent(row, 10) 'hok + xlWorkSheet.Cells(row + u, 13) = TableContent(row, 11) 'hok kemeny + xlWorkSheet.Cells(row + u, 14) = TableContent(row, 12) 'note ' End If @@ -1402,7 +1339,7 @@ Public Class MainWindow Dim sourcePath As String - If ColCount2 > 13 Then + If ColCount2 > 12 Then sourcePath = Path.Combine(currentDirectory, "Darabjegyzek_beszerzes.xlsm") Else sourcePath = Path.Combine(currentDirectory, "Darabjegyzek.xlsm") @@ -1445,64 +1382,6 @@ Public Class MainWindow Private Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer End Function - Private Sub Printtoprinter(ByRef session As IpfcBaseSession, ByRef Drawing As IpfcDrawing, ByVal StartSheet As Integer, ByVal EndSheet As Integer, Filename As String, model1 As IpfcModel, Print_Value As Double) - - 'Dim the used variables - Dim pcfOptions As IpfcPrinterPCFOptions - Dim printerOptions As IpfcPrinterInstructions - Dim ExportInstr As IpfcExportInstructions - - - 'Turning off displayed planes,axes,points and coordiante systems - session.SetConfigOption("display_planes", "no") - session.SetConfigOption("display_axes", "no") - session.SetConfigOption("datum_point_display", "no") - session.SetConfigOption("display_coord_sys", "no") - - 'Choosing and using the PCF file" - If Print_Value > 15 Then 'a4 - pcfOptions = session.GetPrintPCFOptions("CDC5520_A4.pcf", model1) - ElseIf Print_Value > 3 Then 'A3 - pcfOptions = session.GetPrintPCFOptions("CDC5520_A3.pcf", model1) - ElseIf Print_Value > 1 Then 'A2 - pcfOptions = session.GetPrintPCFOptions("CDC5520_A2.pcf", model1) - ElseIf Print_Value > 0 Then 'A1 - pcfOptions = session.GetPrintPCFOptions("CDC5520_A1.pcf", model1) - Else 'A0 - pcfOptions = session.GetPrintPCFOptions("CDC5520_A0.pcf", model1) - End If - - printerOptions = (New CCpfcPrinterInstructions).Create() - printerOptions.ModelOption = pcfOptions.ModelOption - printerOptions.PlacementOption = pcfOptions.PlacementOption - printerOptions.PrinterOption = pcfOptions.PrinterOption - printerOptions.WindowId = session.GetModelWindow(Drawing).GetId() - - 'Choosing the sheets to print, the reason why it is printed one by one is to use the right naming syntax - printerOptions.ModelOption.Sheets = EpfcPrintSheets.EpfcPRINT_SELECTED_SHEETS - printerOptions.ModelOption.FirstPage = StartSheet - printerOptions.ModelOption.LastPage = EndSheet - - 'Choosing the model to print - printerOptions.ModelOption.Mdl = model1 - printerOptions.PrinterOption.FileName = model1.InstanceName - - 'Printing the document (Don't mind that it is called export, for some fucking reason) - ExportInstr = CType(printerOptions, IpfcExportInstructions) - - If Print_Value > 3 Then 'A3 - - - ' EZ VALAMI OKNÁL FOGVA BACKGROUND WOERKERBEN VOLT ???? - BackgroundWorker3.RunWorkerAsync() - Else - MsgBox("Kérlek válaszd ki a nyomtató beállításokat, javasolt a Canon plotter használata.") - End If - - model1.Export(Filename, ExportInstr) - - End Sub - 'Write parameters and sheetnumber Private Sub WriteParam(iFeature As IpfcModel, iParamValueStr As String, iParamName As String) @@ -1822,8 +1701,9 @@ Public Class MainWindow For Each iTablea As IpfcTable In iTables Try Dim CellStr As String = CellToString(iTablea, 2, 5) + Dim CellStr2 As String = CellToString(iTablea, 2, 2) 'MsgBox(CellStr) - If CellStr = "Robotizalunk Kft." Or CellStr = "Robotizalunk" Then + If CellStr = "Robotizalunk Kft." Or CellStr = "Robotizalunk" Or CellStr2 = "Robotizalunk" Or CellStr2 = "Robotizalunk Kft." Then MoreThanOne = MoreThanOne + 1 iTableRef = iTablea End If