Imports System.Threading
Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Public acadapp As Autodesk.AutoCAD.Interop.AcadApplication
    Public autoCADapp As Autodesk.AutoCAD.Interop.AcadApplication
    Public docFolderPath As String
    Dim WithEvents loadCl As LoadingDocs
    Dim WithEvents saveCl As SavingDocs
    Public exc As Boolean
    Public attributesToSave(69) As String
    Public varaText(1) As String
    Public varaR10(3), simbol, x1, x2, x3 As String
    Public LoadDone As Boolean
    Public appExcel As excel.Application
    Public new_Book As excel.Workbook
    Public appExcel2 As excel.Application
    Public new_Book2 As excel.Workbook
    Public new_Sheet As excel.Worksheet
    Public brojbunara As Integer
    Public var As Object
    Public brisi As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oldCI As System.Globalization.CultureInfo = _
        System.Threading.Thread.CurrentThread.CurrentCulture
        System.Threading.Thread.CurrentThread.CurrentCulture = _
        New System.Globalization.CultureInfo("en-US")
        acadapp = CreateObject("AutoCAD.Application")
        acadapp.Visible() = True
        acadapp.ActiveDocument.Close()
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Try
            appExcel.DisplayAlerts = False
            new_Book.SaveAs("C:\janko45.xlsx")
            appExcel.DisplayAlerts = True
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing

        Catch
        End Try

        Try
            new_Book.Save()
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing
        Catch
        End Try

    End Sub

    Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click, ExitToolStripMenuItem.Click

        Try
            appExcel.DisplayAlerts = False
            new_Book.SaveAs("C:\janko45.xlsx")
            appExcel.DisplayAlerts = True
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing
        Catch
        End Try
      
        Try
            loadCl.new_Book.Save()
            loadCl.new_Book.Close()
            loadCl.new_Book = Nothing
            loadCl.appExcel.Quit()
            loadCl.appExcel = Nothing
        Catch
        End Try

        acadapp.Quit()
        Me.Close()
    End Sub

    Private Sub LoadButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadButton.Click, LoadFilesToolStripMenuItem.Click
        exc = False
        Dim loadT As Thread
        Dim i As Integer
        loadCl = New LoadingDocs()
        LoadDone = False
        If acadapp.Documents.Count <> 0 Then
            For i = 0 To (acadapp.Documents.Count - 1)
                acadapp.ActiveDocument.Close()
            Next
            Title_1.Text = ""
            Title_2.Text = ""
            Title_3.Text = ""
            TextBoxScale.Text = ""
            TextBoxDwgNo.Text = ""
            TextBoxRevNo.Text = ""
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""
            TextBox40.Text = ""

            TextBox9.Text = ""
            TextBox10.Text = ""
            TextBox11.Text = ""
            TextBox12.Text = ""
            TextBox13.Text = ""
            TextBox14.Text = ""
            TextBox15.Text = ""
            TextBox49.Text = ""

            TextBox17.Text = ""
            TextBox18.Text = ""
            TextBox19.Text = ""
            TextBox20.Text = ""
            TextBox21.Text = ""
            TextBox22.Text = ""
            TextBox23.Text = ""
            TextBox50.Text = ""

            TextBox25.Text = ""
            TextBox26.Text = ""
            TextBox27.Text = ""
            TextBox28.Text = ""
            TextBox29.Text = ""
            TextBox30.Text = ""
            TextBox31.Text = ""
            TextBox41.Text = ""

            TextBox33.Text = ""
            TextBox34.Text = ""
            TextBox35.Text = ""
            TextBox36.Text = ""
            TextBox37.Text = ""
            TextBox38.Text = ""
            TextBox39.Text = ""
            TextBox32.Text = ""

            TextBox42.Text = ""
            TextBox43.Text = ""
            TextBox44.Text = ""
            TextBox45.Text = ""
            TextBox46.Text = ""
            TextBox47.Text = ""
            TextBox48.Text = ""
            TextBox24.Text = ""

            TextBox57.Text = ""
            TextBox56.Text = ""
            TextBox55.Text = ""
            TextBox54.Text = ""
            TextBox53.Text = ""
            TextBox52.Text = ""
            TextBox51.Text = ""
            TextBox16.Text = ""
            TextBoxContractNo.Text = ""
            ToolStripStatusLabel1.Text = ""
        End If
        OpenFileDialog1.InitialDirectory = Environment.SpecialFolder.MyComputer
        OpenFileDialog1.Filter = "Auto Cad drawings(*.dwg)|*.dwg"
        OpenFileDialog1.ShowDialog()
        loadT = New Thread(AddressOf loadCl.BackgroundProcess)
        loadCl.autoCADapp = acadapp
        loadCl.loadedFileNames = OpenFileDialog1.FileNames
        loadT.IsBackground = True
        loadT.Start()
        Me.Focus()
        ToolStripStatusLabel1.Text = "LOADING DATA . . . . . . . . ."
        exc = False
    End Sub
    Sub LoadDocsEventHandler(ByVal varAttributes As Object) Handles loadCl.ThreadComplete
        MsgBox("Loading complete! Do refreshing of the data")
        LoadDone = True
    End Sub

    Sub SaveDocsEventHandler() Handles saveCl.ThreadComplete   'posle petlje savecl skace ovde
        MsgBox("Change complete!")
    End Sub

    Private Sub ApplyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplyButton.Click
        Dim saveT As Thread
        Dim koliko As Integer
        Dim TAG As String
        saveCl = New SavingDocs()
        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer
        FolderBrowserDialog1.ShowDialog()
        If FolderBrowserDialog1.SelectedPath <> "" Then
            For koliko = 1 To 400
                TAG = "A" & koliko
                TAG = new_Book.Worksheets(3).Range(TAG).Formula
                If TAG = "" Then
                    brojbunara = koliko - 1
                    saveCl.brojbunara = brojbunara
                    GoTo izlaz
                End If
            Next koliko
izlaz:
            attributesToSave(1) = Title_1.Text
            attributesToSave(2) = Title_2.Text
            attributesToSave(3) = Title_3.Text
            attributesToSave(11) = TextBoxScale.Text
            attributesToSave(4) = TextBoxDwgNo.Text
            attributesToSave(10) = TextBoxRevNo.Text
            attributesToSave(12) = TextBox1.Text
            attributesToSave(19) = TextBox2.Text
            attributesToSave(26) = TextBox3.Text
            attributesToSave(33) = TextBox4.Text
            attributesToSave(40) = TextBox5.Text
            attributesToSave(47) = TextBox6.Text
            attributesToSave(54) = TextBox7.Text
            attributesToSave(61) = TextBox40.Text

            attributesToSave(13) = TextBox9.Text
            attributesToSave(20) = TextBox10.Text
            attributesToSave(27) = TextBox11.Text
            attributesToSave(34) = TextBox12.Text
            attributesToSave(41) = TextBox13.Text
            attributesToSave(48) = TextBox14.Text
            attributesToSave(55) = TextBox15.Text
            attributesToSave(62) = TextBox49.Text

            attributesToSave(14) = TextBox17.Text
            attributesToSave(21) = TextBox18.Text
            attributesToSave(28) = TextBox19.Text
            attributesToSave(35) = TextBox20.Text
            attributesToSave(42) = TextBox21.Text
            attributesToSave(49) = TextBox22.Text
            attributesToSave(56) = TextBox23.Text
            attributesToSave(63) = TextBox50.Text

            attributesToSave(15) = TextBox25.Text
            attributesToSave(22) = TextBox26.Text
            attributesToSave(29) = TextBox27.Text
            attributesToSave(36) = TextBox28.Text
            attributesToSave(43) = TextBox29.Text
            attributesToSave(50) = TextBox30.Text
            attributesToSave(57) = TextBox31.Text
            attributesToSave(64) = TextBox41.Text

            attributesToSave(16) = TextBox33.Text
            attributesToSave(23) = TextBox34.Text
            attributesToSave(30) = TextBox35.Text
            attributesToSave(37) = TextBox36.Text
            attributesToSave(44) = TextBox37.Text
            attributesToSave(51) = TextBox38.Text
            attributesToSave(58) = TextBox39.Text
            attributesToSave(65) = TextBox32.Text

            attributesToSave(17) = TextBox42.Text
            attributesToSave(24) = TextBox43.Text
            attributesToSave(31) = TextBox44.Text
            attributesToSave(38) = TextBox45.Text
            attributesToSave(45) = TextBox46.Text
            attributesToSave(52) = TextBox47.Text
            attributesToSave(59) = TextBox48.Text
            attributesToSave(66) = TextBox24.Text

            attributesToSave(18) = TextBox57.Text
            attributesToSave(25) = TextBox56.Text
            attributesToSave(32) = TextBox55.Text
            attributesToSave(39) = TextBox54.Text
            attributesToSave(46) = TextBox53.Text
            attributesToSave(53) = TextBox52.Text
            attributesToSave(60) = TextBox51.Text
            attributesToSave(67) = TextBox16.Text
            attributesToSave(0) = TextBoxContractNo.Text
            saveT = New Thread(AddressOf saveCl.BackgroundProcess)
            saveCl.autoCADapp = acadapp
            saveCl.savingPath = FolderBrowserDialog1.SelectedPath
            saveCl.saveAttributes = attributesToSave
            saveCl.saveVarText = varaText
            saveCl.ChangeTitle_3 = CheckBox1.Checked
            saveT.IsBackground = True
            saveT.Start()
            Me.Focus()
            'ToolStripStatusLabel1.Text = "SAVING DATA . . . . . . . . ."
        Else
            MsgBox("Please select path for saving files!")
        End If
        Try
            appExcel.DisplayAlerts = False
            new_Book.SaveAs("C:\janko45.xlsx")
            appExcel.DisplayAlerts = True
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing
        Catch
        End Try
        Try
            new_Book.Save()
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing
        Catch
        End Try
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("P & ID SOFTWARE by Branislav Obradov")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        appExcel = New excel.ApplicationClass
        appExcel.Visible = True
        new_Book = appExcel.Workbooks.Open("c:\janko45.xlsx")
        new_Sheet = new_Book.Worksheets(2)
        exc = True
        new_Book = appExcel.ActiveWorkbook
        If LoadDone Then
            Title_1.Text = loadCl.varAttributes(1).TextString
            Title_2.Text = loadCl.varAttributes(2).TextString
            Title_3.Text = loadCl.varAttributes(3).TextString
            TextBoxScale.Text = loadCl.varAttributes(11).TextString
            TextBoxDwgNo.Text = loadCl.varAttributes(4).TextString
            TextBoxRevNo.Text = loadCl.varAttributes(10).TextString
            TextBox1.Text = loadCl.varAttributes(12).TextString
            TextBox2.Text = loadCl.varAttributes(19).TextString
            TextBox3.Text = loadCl.varAttributes(26).TextString
            TextBox4.Text = loadCl.varAttributes(33).TextString
            TextBox5.Text = loadCl.varAttributes(40).TextString
            TextBox6.Text = loadCl.varAttributes(47).TextString
            TextBox7.Text = loadCl.varAttributes(54).TextString
            TextBox40.Text = loadCl.varAttributes(61).TextString

            TextBox9.Text = loadCl.varAttributes(13).TextString
            TextBox10.Text = loadCl.varAttributes(20).TextString
            TextBox11.Text = loadCl.varAttributes(27).TextString
            TextBox12.Text = loadCl.varAttributes(24).TextString
            TextBox13.Text = loadCl.varAttributes(41).TextString
            TextBox14.Text = loadCl.varAttributes(48).TextString
            TextBox15.Text = loadCl.varAttributes(55).TextString
            TextBox49.Text = loadCl.varAttributes(62).TextString

            TextBox17.Text = loadCl.varAttributes(14).TextString
            TextBox18.Text = loadCl.varAttributes(21).TextString
            TextBox19.Text = loadCl.varAttributes(28).TextString
            TextBox20.Text = loadCl.varAttributes(35).TextString
            TextBox21.Text = loadCl.varAttributes(42).TextString
            TextBox22.Text = loadCl.varAttributes(49).TextString
            TextBox23.Text = loadCl.varAttributes(56).TextString
            TextBox50.Text = loadCl.varAttributes(63).TextString

            TextBox25.Text = loadCl.varAttributes(15).TextString
            TextBox26.Text = loadCl.varAttributes(22).TextString
            TextBox27.Text = loadCl.varAttributes(29).TextString
            TextBox28.Text = loadCl.varAttributes(36).TextString
            TextBox29.Text = loadCl.varAttributes(43).TextString
            TextBox30.Text = loadCl.varAttributes(50).TextString
            TextBox31.Text = loadCl.varAttributes(57).TextString
            TextBox41.Text = loadCl.varAttributes(64).TextString

            TextBox33.Text = loadCl.varAttributes(16).TextString
            TextBox34.Text = loadCl.varAttributes(23).TextString
            TextBox35.Text = loadCl.varAttributes(30).TextString
            TextBox36.Text = loadCl.varAttributes(37).TextString
            TextBox37.Text = loadCl.varAttributes(44).TextString
            TextBox38.Text = loadCl.varAttributes(51).TextString
            TextBox39.Text = loadCl.varAttributes(58).TextString
            TextBox32.Text = loadCl.varAttributes(65).TextString

            TextBox42.Text = loadCl.varAttributes(17).TextString
            TextBox43.Text = loadCl.varAttributes(24).TextString
            TextBox44.Text = loadCl.varAttributes(31).TextString
            TextBox45.Text = loadCl.varAttributes(38).TextString
            TextBox46.Text = loadCl.varAttributes(45).TextString
            TextBox47.Text = loadCl.varAttributes(52).TextString
            TextBox48.Text = loadCl.varAttributes(59).TextString
            TextBox24.Text = loadCl.varAttributes(66).TextString

            TextBox57.Text = loadCl.varAttributes(18).TextString
            TextBox56.Text = loadCl.varAttributes(25).TextString
            TextBox55.Text = loadCl.varAttributes(32).TextString
            TextBox54.Text = loadCl.varAttributes(39).TextString
            TextBox53.Text = loadCl.varAttributes(46).TextString
            TextBox52.Text = loadCl.varAttributes(53).TextString
            TextBox51.Text = loadCl.varAttributes(60).TextString
            TextBox16.Text = loadCl.varAttributes(67).TextString

            TextBoxContractNo.Text = loadCl.varAttributes(0).TextString
            ToolStripStatusLabel1.Text = ""
        Else
            MsgBox("Data not loaded yet! Wait please!")
        End If
    End Sub
End Class

Public Class LoadingDocs
    Public varAttributes As Object
    Public VarText As Object
    Public var As Object
    Public appExcel As excel.Application
    Public new_Book As excel.Workbook
    Public new_Sheet As excel.Worksheet
    Public Kolslovo As String
    Public Kolbroj, KolbrojA, KolbrojA1, KolbrojC, KolbrojE, KolbrojG, KolbrojI, KolbrojK, KolbrojM, KolbrojO, KolbrojQ, KolbrojS, KolBrojF3 As Integer
    Public loadedFileNames As String()
    Public autoCADapp As Autodesk.AutoCAD.Interop.AcadApplication
    Public brojac As Integer
    Public ime As String
    Public Event ThreadComplete(ByVal varAttributes As Object)

    Public Sub BackgroundProcess()
        Dim counter As Integer
        Dim TitleBlockIns As Autodesk.AutoCAD.Interop.Common.AcadBlockReference
        Dim anEnt As Autodesk.AutoCAD.Interop.Common.AcadEntity
        'appExcel = CreateObject("Excel.Application")
        'new_Book = ("Excel.workbook")
        'new_Sheet = ("Excel.worksheet")
        appExcel = New excel.ApplicationClass
        appExcel.Visible = False
        new_Book = appExcel.Workbooks.Open("c:\janko45.xlsx")
        appExcel.DisplayAlerts = False
        new_Book.SaveAs("c:\janko45.xlsx")
        appExcel.DisplayAlerts = True
        new_Book = appExcel.ActiveWorkbook
        Kolbroj = 0
        KolBrojF3 = 0
        KolbrojA1 = -3
        KolbrojA = -3
        KolbrojC = -3
        KolbrojE = -3
        KolbrojG = -3
        KolbrojI = -3
        KolbrojK = -3
        KolbrojM = -3
        KolbrojO = -3
        KolbrojQ = -3
        KolbrojS = -3
        Try
            If loadedFileNames.Length > 0 Then
                For counter = 0 To (loadedFileNames.Length - 1)
                    autoCADapp.Documents.Open(loadedFileNames(counter).ToString)
                Next
            End If
            VarText = System.DBNull.Value
            varAttributes = System.DBNull.Value
            For Each anEnt In autoCADapp.ActiveDocument.ModelSpace
               If TypeOf anEnt Is Autodesk.AutoCAD.Interop.Common.AcadBlockReference Then
                    TitleBlockIns = anEnt
                    ime = TitleBlockIns.Name
                    Select Case (ime)
                        Case ("A1H")  'BLOK ZA REVIZIJE
                            varAttributes = TitleBlockIns.GetAttributes
                        Case ("G$DEST1")
                            VarText = TitleBlockIns.GetAttributes
                            new_Book.Worksheets(3).Range("c1").Value = VarText(0).textstring
                        Case ("G$CMPI")  'A1
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "A"
                            KolbrojA1 = KolbrojA1 + 4
                            Kolbroj = KolbrojA1
                            new_Book.Worksheets(1).Range(Kolslovo & Kolbroj).Value = var(0).textstring
                            new_Book.Worksheets(1).Range(Kolslovo & Kolbroj + 1).Value = var(1).textstring
                            new_Book.Worksheets(1).Range(Kolslovo & Kolbroj + 2).Value = var(2).textstring
                        Case ("g$vbafct") 'A
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "A"
                            KolbrojA = KolbrojA + 4
                            Kolbroj = KolbrojA
                            podp1(Kolbroj)
                        Case ("g$dbv1") 'C
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "C"
                            KolbrojC = KolbrojC + 4
                            Kolbroj = KolbrojC
                            podp1(Kolbroj)
                        Case ("g$vglf1") 'E
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "E"
                            KolbrojE = KolbrojE + 4
                            Kolbroj = KolbrojE
                            podp1(Kolbroj)
                        Case ("g$vbanc") 'G
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "G"
                            KolbrojG = KolbrojG + 4
                            Kolbroj = KolbrojG
                            podp1(Kolbroj)
                        Case ("g$wing1") 'I
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "I"
                            KolbrojI = KolbrojI + 4
                            Kolbroj = KolbrojI
                            podp1(Kolbroj)
                        Case ("g$vgls") 'K
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "K"
                            KolbrojK = KolbrojK + 4
                            Kolbroj = KolbrojK
                            podp1(Kolbroj)
                        Case ("g$hpcv1") 'M
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "M"
                            KolbrojM = KolbrojM + 4
                            Kolbroj = KolbrojM
                            podp1(Kolbroj)
                        Case ("G$VGA") 'O
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "O"
                            KolbrojO = KolbrojO + 4
                            Kolbroj = KolbrojO
                            podp1(Kolbroj)
                        Case ("g$vbao") 'Q
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "Q"
                            KolbrojQ = KolbrojQ + 4
                            Kolbroj = KolbrojQ
                            podp1(Kolbroj)
                        Case ("G$VNE") 'S
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "S"
                            KolbrojS = KolbrojS + 4
                            Kolbroj = KolbrojS
                            podp1(Kolbroj)
                        Case ("g$lno") 'F sheet3
                            var = TitleBlockIns.GetAttributes
                            Kolslovo = "F"
                            KolBrojF3 = KolBrojF3 + 1
                            Kolbroj = KolBrojF3
                            new_Book.Worksheets(3).Range(Kolslovo & Kolbroj).Value = var(3).textstring
                            
                    End Select
                End If
            Next
        Catch
        End Try
        Try
            appExcel.DisplayAlerts = False
            new_Book.SaveAs("C:\janko45.xlsx")
            appExcel.DisplayAlerts = True
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing
                   Catch
        End Try
        Try
            new_Book.Save()
            new_Book.Close()
            new_Book = Nothing
            appExcel.Quit()
            appExcel = Nothing
        Catch
        End Try
        RaiseEvent ThreadComplete(varAttributes)
    End Sub
    Function podp1(ByVal kolBroj As Integer) As Integer
        new_Book.Worksheets(2).Range(Kolslovo & kolBroj).Value = var(0).textstring
        new_Book.Worksheets(2).Range(Kolslovo & kolBroj + 1).Value = var(1).textstring
        new_Book.Worksheets(2).Range(Kolslovo & kolBroj + 2).Value = var(2).textstring
    End Function
End Class

Public Class SavingDocs
    Public Kolslovo As String
    Public Kolbroj, KolbrojA, KolbrojA1, KolbrojC, KolbrojE, KolbrojG, KolbrojI, KolbrojK, KolbrojM, KolbrojO, KolbrojQ, KolbrojS, KolBrojF3 As Integer
    Public saveAttributes(68) As String
    Public saveVarText(1) As String
    Public savingPath As String
    Public autoCADapp As Autodesk.AutoCAD.Interop.AcadApplication
    Public ChangeTitle_3 As Boolean
    Public appExcel As Object
    Public new_Book As Object
    Public new_Sheet As Object
    Public var As Object
    Public brojac As Integer
    Public ime As String
    Public tag As String
    Public reviz As String
    Public x As Integer
    Public brojbunara As Integer
    Public Event ThreadComplete()

    Public Sub BackgroundProcess()
        Dim TitleBlockIns As Autodesk.AutoCAD.Interop.Common.AcadBlockReference
        Dim CadText As Autodesk.AutoCAD.Interop.Common.AcadText
        Dim anEnt As Autodesk.AutoCAD.Interop.Common.AcadEntity
        Dim filename As String
        Dim dwgno As String
        appExcel = CreateObject("Excel.Application")
        new_Book = ("Excel.workbook")
        new_Sheet = ("Excel.worksheet")
        appExcel.Visible = True
        new_Book = appExcel.Workbooks.Open("c:\janko45.xlsx")
        new_Sheet = new_Book.Worksheets(3)
        new_Book = appExcel.ActiveWorkbook
        Try
            For x = 1 To brojbunara
                tag = new_Sheet.Range("A" & x).Formula
                var = System.DBNull.Value
                anEnt = System.DBNull.Value
                Kolbroj = 0
                KolbrojA1 = -3
                KolBrojF3 = 0
                KolbrojA = -3
                KolbrojC = -3
                KolbrojE = -3
                KolbrojG = -3
                KolbrojI = -3
                KolbrojK = -3
                KolbrojM = -3
                KolbrojO = -3
                KolbrojQ = -3
                KolbrojS = -3
                filename = ""
                For Each anEnt In autoCADapp.ActiveDocument.ModelSpace
                    If TypeOf anEnt Is Autodesk.AutoCAD.Interop.Common.AcadText Then
                        CadText = anEnt
                        CadText.TextString = CadText.TextString.Replace("DKXXX", tag)
                    End If
                    If TypeOf anEnt Is Autodesk.AutoCAD.Interop.Common.AcadBlockReference Then
                        TitleBlockIns = anEnt
                        ime = TitleBlockIns.Name
                        Select Case (ime)
                            Case ("A1H")
                                var = TitleBlockIns.GetAttributes
                                var(1).Textstring = saveAttributes(1)
                                var(2).Textstring = saveAttributes(2)
                                var(3).Textstring = saveAttributes(3)
                                var(4).Textstring = saveAttributes(4)
                                var(5).Textstring = saveAttributes(4)

                                Select Case x
                                    Case 1 To 9
                                        var(6).Textstring = "00" & x
                                        var(7).Textstring = "00" & x
                                    Case 10 To 99
                                        var(6).Textstring = "0" & x
                                        var(7).Textstring = "0" & x
                                    Case 100 To 400
                                        var(6).Textstring = x
                                        var(7).Textstring = x
                                End Select
                                If x = brojbunara Then
                                    var(8).Textstring = "END"
                                    var(9).Textstring = "END"
                                Else
                                    Select Case x
                                        Case 1 To 8
                                            var(8).Textstring = "00" & x + 1
                                            var(9).Textstring = "00" & x + 1
                                        Case 9 To 98
                                            var(8).Textstring = "0" & x + 1
                                            var(9).Textstring = "0" & x + 1
                                        Case 99 To 400
                                            var(8).Textstring = x + 1
                                            var(9).Textstring = x + 1
                                    End Select
                                End If
                                dwgno = saveAttributes(4)
                                dwgno = dwgno.Remove(4, 1)
                                var(68).textstring = dwgno & var(6).Textstring & var(10).Textstring
                                var(10).Textstring = saveAttributes(10)
                                reviz = var(10).Textstring
                                var(11).Textstring = saveAttributes(11)
                                var(12).Textstring = saveAttributes(12)
                                var(13).Textstring = saveAttributes(13)
                                var(14).Textstring = saveAttributes(14)
                                var(15).Textstring = saveAttributes(15)
                                var(16).Textstring = saveAttributes(16)
                                var(17).Textstring = saveAttributes(17)
                                var(18).Textstring = saveAttributes(18)
                                var(19).Textstring = saveAttributes(19)
                                var(20).Textstring = saveAttributes(20)
                                var(21).Textstring = saveAttributes(21)
                                var(22).Textstring = saveAttributes(22)
                                var(23).Textstring = saveAttributes(23)
                                var(24).Textstring = saveAttributes(24)
                                var(25).Textstring = saveAttributes(25)
                                var(26).Textstring = saveAttributes(26)
                                var(27).Textstring = saveAttributes(27)
                                var(28).Textstring = saveAttributes(28)
                                var(29).Textstring = saveAttributes(29)
                                var(30).Textstring = saveAttributes(30)
                                var(31).Textstring = saveAttributes(31)
                                var(32).Textstring = saveAttributes(32)
                                var(33).Textstring = saveAttributes(33)
                                var(34).Textstring = saveAttributes(34)
                                var(35).Textstring = saveAttributes(35)
                                var(36).Textstring = saveAttributes(36)
                                var(37).Textstring = saveAttributes(37)
                                var(38).Textstring = saveAttributes(38)
                                var(39).Textstring = saveAttributes(39)
                                var(40).Textstring = saveAttributes(40)
                                var(41).Textstring = saveAttributes(41)
                                var(42).Textstring = saveAttributes(42)
                                var(43).Textstring = saveAttributes(43)
                                var(44).Textstring = saveAttributes(44)
                                var(45).Textstring = saveAttributes(45)
                                var(46).Textstring = saveAttributes(46)
                                var(47).Textstring = saveAttributes(47)
                                var(48).Textstring = saveAttributes(48)
                                var(49).Textstring = saveAttributes(49)
                                var(50).Textstring = saveAttributes(50)
                                var(51).Textstring = saveAttributes(51)
                                var(52).Textstring = saveAttributes(52)
                                var(53).Textstring = saveAttributes(53)
                                var(54).Textstring = saveAttributes(54)
                                var(55).Textstring = saveAttributes(55)
                                var(56).Textstring = saveAttributes(56)
                                var(57).Textstring = saveAttributes(57)
                                var(58).Textstring = saveAttributes(58)
                                var(59).Textstring = saveAttributes(59)
                                var(40).Textstring = saveAttributes(40)
                                var(49).Textstring = saveAttributes(49)
                                var(50).Textstring = saveAttributes(50)
                                var(41).Textstring = saveAttributes(41)
                                var(32).Textstring = saveAttributes(32)
                                var(24).Textstring = saveAttributes(24)
                                var(16).Textstring = saveAttributes(16)
                                var(0).Textstring = saveAttributes(0)
                            Case ("G$DEST1")
                                var = TitleBlockIns.GetAttributes
                                var(0).Textstring = new_Book.Worksheets(3).Range("C1").Formula.Replace("DKXXX", tag)
                            Case ("G$CMPI")
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "a"
                                KolbrojA1 = KolbrojA1 + 4
                                Kolbroj = KolbrojA1
                                var(0).Textstring = new_Book.Worksheets(1).Range(Kolslovo & Kolbroj).Formula.Replace("DKXXX", tag)
                                var(1).textstring = new_Book.Worksheets(1).Range(Kolslovo & Kolbroj + 1).Formula.Replace("DKXXX", tag)
                                var(2).textstring = new_Book.Worksheets(1).Range(Kolslovo & Kolbroj + 2).Formula.Replace("DKXXX", tag)
                            Case ("g$vbafct") 'A
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "a"
                                KolbrojA = KolbrojA + 4
                                Kolbroj = KolbrojA
                                podp1(Kolbroj)
                            Case ("g$dbv1") 'C
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "c"
                                KolbrojC = KolbrojC + 4
                                Kolbroj = KolbrojC
                                podp1(Kolbroj)
                            Case ("g$vglf1") 'EE
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "e" 'moguci problem ovde
                                KolbrojE = KolbrojE + 4
                                Kolbroj = KolbrojE
                                podp1(Kolbroj)
                            Case ("g$vbanc") 'G
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "g"
                                KolbrojG = KolbrojG + 4
                                Kolbroj = KolbrojG
                                podp1(Kolbroj)
                            Case ("g$wing1") 'I
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "I"
                                KolbrojG = KolbrojG + 4
                                Kolbroj = KolbrojG
                                podp1(Kolbroj)
                            Case ("g$vgls") 'K
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "K"   'MOGUCI PROBLEM
                                KolbrojK = KolbrojK + 4
                                Kolbroj = KolbrojK
                                podp1(Kolbroj)
                            Case ("g$hpcv1") 'M
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "M"
                                KolbrojM = KolbrojM + 4
                                Kolbroj = KolbrojM
                                podp1(Kolbroj)
                            Case ("G$VGA") 'O
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "O"
                                KolbrojO = KolbrojO + 4
                                Kolbroj = KolbrojO
                                podp1(Kolbroj)
                            Case ("g$vbao") 'Q
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "Q"
                                KolbrojQ = KolbrojQ + 4
                                Kolbroj = KolbrojQ
                                podp1(Kolbroj)
                            Case ("G$VNE") 'S
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "S"
                                KolbrojS = KolbrojS + 4
                                Kolbroj = KolbrojS
                                podp1(Kolbroj)
                            Case ("g$lno") 'S
                                var = TitleBlockIns.GetAttributes
                                Kolslovo = "F"
                                KolBrojF3 = KolBrojF3 + 1
                                Kolbroj = KolBrojF3
                                var(3).Textstring = new_Book.Worksheets(3).Range(Kolslovo & Kolbroj).Formula.Replace("DKXXX", tag)
                                
                        End Select
                    Else
                        End If
                    Next anEnt
                dwgno = saveAttributes(4)
                dwgno = dwgno.Remove(4, 1)  '2566-0110  ->  25660110
                Select Case x
                    Case 1 To 9
                        filename = dwgno & "00" & x & reviz
                    Case 10 To 99
                        filename = dwgno & "0" & x & reviz
                    Case 100 To 400
                        filename = dwgno & x & reviz
                End Select
                autoCADapp.ActiveDocument.SaveAs(savingPath & "\" & filename & ".dwg")
            Next
            Try
                appExcel.DisplayAlerts = False
                new_Book.SaveAs("C:\janko45.xlsx")
                appExcel.DisplayAlerts = True
                new_Book.Close()
                new_Book = Nothing
                appExcel.Quit()
                appExcel = Nothing
            Catch
            End Try
            Try
                new_Book.Save()
                new_Book.Close()
                new_Book = Nothing
                appExcel.Quit()
                appExcel = Nothing
            Catch
            End Try
        Catch
        End Try
        RaiseEvent ThreadComplete()
    End Sub
    Function podp1(ByVal kolBroj As Integer) As Integer
        var(0).Textstring = new_Book.Worksheets(2).Range(Kolslovo & kolBroj).Formula.Replace("DKXXX", tag)
        var(1).textstring = new_Book.Worksheets(2).Range(Kolslovo & kolBroj + 1).Formula.Replace("DKXXX", tag)
        var(2).textstring = new_Book.Worksheets(2).Range(Kolslovo & kolBroj + 2).Formula.Replace("DKXXX", tag)
    End Function
End Class