LAyout tablazatoknal volt hiba
This commit is contained in:
markvitariusfamex
@@ -735,65 +735,7 @@ Public Class MainWindow
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'--------------------- Calculate sheetsize for print
|
'--------------------- 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
|
Next i
|
||||||
@@ -812,15 +754,8 @@ Public Class MainWindow
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If excelPrintNeeded = True Then
|
|
||||||
|
|
||||||
|
|
||||||
folderpicked = Path.GetTempPath
|
|
||||||
HandleNames(FileNameMod, 0, 0, ".xls", Model1)
|
|
||||||
CreateExcel(Session, FileNameMod)
|
|
||||||
PrintExcel(FileNameMod)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -1051,7 +986,7 @@ Public Class MainWindow
|
|||||||
Dim ColCount2 As Integer = TableContent.GetLength(1)
|
Dim ColCount2 As Integer = TableContent.GetLength(1)
|
||||||
|
|
||||||
Dim o As Integer = 2
|
Dim o As Integer = 2
|
||||||
If ColCount2 > 13 Then
|
If ColCount2 > 12 Then
|
||||||
For row = 3 To RowCount - 3
|
For row = 3 To RowCount - 3
|
||||||
|
|
||||||
Console.WriteLine(TableContent(row, 7))
|
Console.WriteLine(TableContent(row, 7))
|
||||||
@@ -1065,22 +1000,24 @@ Public Class MainWindow
|
|||||||
'xt
|
'xt
|
||||||
' Else
|
' Else
|
||||||
Dim u As Integer = 0
|
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, 3)
|
||||||
' xlWorkSheet.Cells(row + u, 3) = TableContent(row, 4)
|
' xlWorkSheet.Cells(row + u, 3) = TableContent(row, 4)
|
||||||
xlWorkSheet.Cells(row + u, 3) = TableContent(row, 5)
|
xlWorkSheet.Cells(row + u, 5) = TableContent(row, 3) 'filename
|
||||||
xlWorkSheet.Cells(row + u, 4) = TableContent(row, 6)
|
xlWorkSheet.Cells(row + u, 6) = TableContent(row, 4) 'bf
|
||||||
xlWorkSheet.Cells(row + u, 5) = TableContent(row, 7)
|
' xlWorkSheet.Cells(row + u, 5) = TableContent(row, 7) 'ures
|
||||||
xlWorkSheet.Cells(row + u, 6) = TableContent(row, 8)
|
xlWorkSheet.Cells(row + u, 8) = TableContent(row, 6) 'db
|
||||||
xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9).Replace("n", "ø")
|
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, 9) = TableContent(row, 9)
|
||||||
xlWorkSheet.Cells(row + u, 10) = TableContent(row, 10)
|
xlWorkSheet.Cells(row + u, 10) = TableContent(row, 8) 'fel
|
||||||
xlWorkSheet.Cells(row + u, 11) = TableContent(row, 11)
|
xlWorkSheet.Cells(row + u, 12) = TableContent(row, 9) 'felszin
|
||||||
xlWorkSheet.Cells(row + u, 12) = TableContent(row, 12)
|
xlWorkSheet.Cells(row + u, 12) = TableContent(row, 10) 'hok
|
||||||
xlWorkSheet.Cells(row + u, 13) = TableContent(row, 13)
|
xlWorkSheet.Cells(row + u, 13) = TableContent(row, 11) 'hok kemeny
|
||||||
xlWorkSheet.Cells(row + u, 14) = TableContent(row, 14)
|
xlWorkSheet.Cells(row + u, 14) = TableContent(row, 12) 'note
|
||||||
|
|
||||||
|
|
||||||
' End If
|
' End If
|
||||||
@@ -1402,7 +1339,7 @@ Public Class MainWindow
|
|||||||
Dim sourcePath As String
|
Dim sourcePath As String
|
||||||
|
|
||||||
|
|
||||||
If ColCount2 > 13 Then
|
If ColCount2 > 12 Then
|
||||||
sourcePath = Path.Combine(currentDirectory, "Darabjegyzek_beszerzes.xlsm")
|
sourcePath = Path.Combine(currentDirectory, "Darabjegyzek_beszerzes.xlsm")
|
||||||
Else
|
Else
|
||||||
sourcePath = Path.Combine(currentDirectory, "Darabjegyzek.xlsm")
|
sourcePath = Path.Combine(currentDirectory, "Darabjegyzek.xlsm")
|
||||||
@@ -1445,64 +1382,6 @@ Public Class MainWindow
|
|||||||
<DllImport("user32.dll", EntryPoint:="SendMessageW")>
|
<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
|
Private Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
|
||||||
End Function
|
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)
|
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
|
For Each iTablea As IpfcTable In iTables
|
||||||
Try
|
Try
|
||||||
Dim CellStr As String = CellToString(iTablea, 2, 5)
|
Dim CellStr As String = CellToString(iTablea, 2, 5)
|
||||||
|
Dim CellStr2 As String = CellToString(iTablea, 2, 2)
|
||||||
'MsgBox(CellStr)
|
'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
|
MoreThanOne = MoreThanOne + 1
|
||||||
iTableRef = iTablea
|
iTableRef = iTablea
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user