LAyout tablazatoknal volt hiba
This commit is contained in:
markvitariusfamex
@@ -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
|
||||
<DllImport("user32.dll", EntryPoint:="SendMessageW")>
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user