Namespace AlgemeenModule


    Public Class Initialization

        Implements Autodesk.AutoCAD.Runtime.IExtensionApplication
        ReadOnly Property ThisDrawing() As Autodesk.AutoCAD.Interop.AcadDocument


            Get
                Return Autodesk.AutoCAD.ApplicationServices.DocumentExtension.GetAcadDocument(Application.DocumentManager.MdiActiveDocument)
            End Get
        End Property

        Dim AcadAPP As Autodesk.AutoCAD.Interop.AcadApplication = Application.AcadApplication

        Private DocMan As DocumentCollection

        Public Sub Initialize() Implements IExtensionApplication.Initialize

            Dim ed As Editor
            Dim doc1 As Autodesk.AutoCAD.Interop.AcadDocument

            ed = ApplicationServices.Application.DocumentManager.MdiActiveDocument

            doc1 = CType(ApplicationServices.DocumentExtension.GetAcadDocument(ed), Autodesk.AutoCAD.Interop.AcadDocument)



            Dim pos1 As String


            ed.WriteMessage(vbCrLf & "Initializing - Loading User Preferences - ST-CadCommands." & vbCrLf)

            My.Settings.STAdres1 = My.Settings.STAdres1 : My.Settings.Save()
            My.Settings.STAdres2 = My.Settings.STAdres2 : My.Settings.Save()
            My.Settings.STConstr = My.Settings.STConstr : My.Settings.Save()
            My.Settings.STGetekend = My.Settings.STGetekend : My.Settings.Save()
            My.Settings.STIOV = My.Settings.STIOV : My.Settings.Save()
            My.Settings.STKaderformaat = My.Settings.STKaderformaat : My.Settings.Save()
            My.Settings.STOnderdeel1 = My.Settings.STOnderdeel1 : My.Settings.Save()
            My.Settings.STOnderdeel2 = My.Settings.STOnderdeel2 : My.Settings.Save()
            My.Settings.STOnderdeel3 = My.Settings.STOnderdeel3 : My.Settings.Save()
            My.Settings.STOnderhoek = My.Settings.STOnderhoek : My.Settings.Save()
            My.Settings.STOpdrgever = My.Settings.STOpdrgever : My.Settings.Save()
            My.Settings.STProjectnr = My.Settings.STProjectnr : My.Settings.Save()
            My.Settings.STProjecttext = My.Settings.STProjecttext : My.Settings.Save()
            My.Settings.STSchaalChangeCB = My.Settings.STSchaalChangeCB : My.Settings.Save()
            My.Settings.STSchaallist = My.Settings.STSchaallist : My.Settings.Save()
            My.Settings.STSchaalText = My.Settings.STSchaalText : My.Settings.Save()
            My.Settings.STTelFax = My.Settings.STTelFax : My.Settings.Save()
            My.Settings.STLTScale = My.Settings.STLTScale : My.Settings.Save()
            ' My.Settings.STPlotWarning = My.Settings.STPlotWarning : My.Settings.Save()
            My.Settings.STBBW = My.Settings.STBBW : My.Settings.Save()
            My.Settings.STPlatform = My.Settings.STPlatform : My.Settings.Save()

            AddHandler AcadAPP.BeginSave, AddressOf callback_BeginSave

            AddHandler AcadAPP.BeginCommand, AddressOf callback_BeginCommand

            AddHandler AcadAPP.EndOpen, AddressOf callback_EndOpen

            Dim platform As String = Application.GetSystemVariable("PLATFORM")

            Try


                If InStr(platform, "6.1") > 0 Then

                    ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "P:\_App data\autocad\2015\win 7\Plot Styles"
                    ThisDrawing.Application.Preferences.Files.PrinterDescPath = "P:\_App data\autocad\2015\win 7\PMP Files"
                    ThisDrawing.Application.Preferences.Files.PrinterConfigPath = "P:\_App data\autocad\2015\win 7\PC3 Files"

                    pos1 = InStr(ThisDrawing.Application.Preferences.Files.SupportPath, ";P:\_app data\autocad\2015\win 7\fonts")
                    If pos1 = 0 Then ThisDrawing.Application.Preferences.Files.SupportPath = _
                                        ThisDrawing.Application.Preferences.Files.SupportPath & ";P:\_app data\autocad\2015\win 7\fonts"

                    ThisDrawing.Application.Preferences.Files.TemplateDwgPath = "P:\_App data\autocad\2015\win 7\Templates"
                    ThisDrawing.Application.Preferences.Files.QNewTemplateFile = "p:\_app data\autocad\2015\win 7\templates\acadiso.dwt"

                    ed.WriteMessage(vbCrLf & "Plot- en printerinstellingen configuren - Win 7")


                ElseIf InStr(platform, "5.1") > 0 Then
                    ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "P:\_App data\autocad\2015\win XP\Plot Styles"
                    ThisDrawing.Application.Preferences.Files.PrinterDescPath = "P:\_App data\autocad\2015\win XP\PMP Files"
                    ThisDrawing.Application.Preferences.Files.PrinterConfigPath = "P:\_App data\autocad\2015\win XP\PC3 Files"

                    pos1 = InStr(ThisDrawing.Application.Preferences.Files.SupportPath, ";P:\_app data\autocad\2015\win XP\fonts")
                    If pos1 = 0 Then ThisDrawing.Application.Preferences.Files.SupportPath = _
                                        ThisDrawing.Application.Preferences.Files.SupportPath & ";P:\_app data\autocad\2015\win XP\fonts"

                    ThisDrawing.Application.Preferences.Files.TemplateDwgPath = "P:\_App data\autocad\2015\win XP\Templates"
                    ThisDrawing.Application.Preferences.Files.QNewTemplateFile = "P:\_app data\autocad\2015\win XP\templates\acadiso.dwt"

                    ed.WriteMessage(vbCrLf & "Plot- en printerinstellingen configuren - Win XP")

                End If

                ed.WriteMessage(vbCrLf & vbCrLf & "---------------------------------------------------")
                ed.WriteMessage(vbCrLf & "Gebruik het commando 'STINFO' voor meer informatie.")
                ed.WriteMessage(vbCrLf & "---------------------------------------------------")

            Catch ex As System.Exception

            End Try

            My.Settings.STPlatform = platform
            My.Settings.Save()

            Application.SetSystemVariable("ANNOAUTOSCALE", -4)
            Application.SetSystemVariable("filedia", 1)

        End Sub