Imports SldWorks
Public Class Individual_Frame_Drawing
    Private Shared frameComponents
    Public Shared Sub Create_Assemblies()
        Dim swApp As SldWorks.SldWorks
        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
        Dim model As ModelDoc2
        Dim assembly As IAssemblyDoc
        Dim longstatus As Integer
        frameComponents = Model_3D.partDT.Select("partType = 'frame_l_straight'")

        For i = 0 To Individual_Frame_3D.cuttingList.Count - 1
            model = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Assembly.asmdot", 0, 0, 0)
            assembly = model

            Dim compNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count) As String
            Dim coordNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count) As String
            Dim transMatrix As Object = Nothing
            For j = 0 To compNames.Count - 2
                Dim frameID = Individual_Frame_3D.cuttingList.ElementAt(i).Value(j) - 1

                compNames(j) = Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT"
                coordNames(j) = ""
            Next
            compNames(compNames.Count - 1) = Individual.filepath & "\Temp\frame_l_end_piece" & i + 1 & ".SLDPRT"
            coordNames(coordNames.Count - 1) = ""

            Dim assemComps As Object
            assemComps = assembly.AddComponents3((compNames), (transMatrix), (coordNames))

            longstatus = model.SaveAs3(Individual.filepath & "\Temp\frame_assembly" & i + 1 & ".SLDASM", 0, 0)

            swApp.CloseDoc(Individual.filepath & "\Temp\frame_assembly" & i + 1 & ".SLDASM")
        Next
    End Sub

    Public Shared Sub Generate_Drawings()
        Dim swApp As SldWorks.SldWorks
        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)

        Dim iAssembly As IAssemblyDoc
        Dim swErrors, swWarnings As Integer
        iAssembly = swApp.OpenDoc6(Individual.filepath & "\Temp\frame_assembly" & 1 & ".SLDASM", 2, 1, "", swErrors, swWarnings) 'FIXA

        Dim iDrawing As DrawingDoc
        Dim swSheetWidth As Double
        swSheetWidth = 0.42
        Dim swSheetHeight As Double
        swSheetHeight = 0.297
        iDrawing = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Drawing.drwdot", 12, swSheetWidth, swSheetHeight)

        Dim swSheet As Sheet
        swSheet = iDrawing.GetCurrentSheet()
        swSheet.SetProperties2(12, 12, 1, 1, False, swSheetWidth, swSheetHeight, True)
        swSheet.SetTemplateName(Individual.filepath & "\X2021\Weland ritningsmallar\A3 Part.slddrt")
        swSheet.ReloadTemplate(True)
        swSheet.SetScale(1, 10, False, False)

        Dim layMgr As LayerMgr
        layMgr = iDrawing.GetLayerManager()
        Dim status As Boolean
        status = layMgr.SetCurrentLayer("Svenska")

        Dim myView As View
        myView = iDrawing.CreateDrawViewFromModelView3(Individual.filepath & "\Temp\frame_assembly" & 1 & ".SLDASM", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
        myView.UseSheetScale() = True
        myView.SetDisplayTangentEdges2(2)

        Dim swExtensions As SldWorks.ModelDocExtension
        swExtensions = iDrawing.Extension
        Dim RootComp = myView.RootDrawingComponent
        Dim CompName = RootComp.Name

        Dim OutLine = myView.GetOutline

        For i = 0 To Individual_Frame_3D.cuttingList.ElementAt(0).Value.Count
            Dim frameComponentName As String
            If i = Individual_Frame_3D.cuttingList.ElementAt(0).Value.Count Then
                frameComponentName = "frame_l_end_piece" & i + 1
            Else
                frameComponentName = frameComponents(i)("partName")
            End If

            Dim plane1Name As String = "OffPlane1@" & CompName & "@" & myView.GetName2 & "/" & frameComponentName & "-1@" & CompName.Split("-")(0)
            Dim plane2Name As String = "OffPlane2@" & CompName & "@" & myView.GetName2 & "/" & frameComponentName & "-1@" & CompName.Split("-")(0)

            Dim xOffset As Integer = 0
            For j = 0 To i
                If j = Individual_Frame_3D.cuttingList.ElementAt(0).Value.Count Then
                    xOffset += (200 - xOffset) / 2
                ElseIf j = i Then
                    xOffset += (Individual_Frame_3D.sideFrameLengths("Frame " & Individual_Frame_3D.cuttingList.ElementAt(0).Value(j)) / 10) / 2
                Else
                    xOffset += Individual_Frame_3D.sideFrameLengths("Frame " & Individual_Frame_3D.cuttingList.ElementAt(0).Value(j)) / 10
                End If
            Next
            xOffset = xOffset / 1000
            Dim X_Mid = OutLine(2) - 0.005 - xOffset

            iDrawing.ClearSelection2(True)
                Dim measurement As IDisplayDimension
                swExtensions.SelectByID2(plane1Name, "PLANE", 0, 0, 0, True, 0, Nothing, 0)
                swExtensions.SelectByID2(plane2Name, "PLANE", 0, 0, 0, True, 0, Nothing, 0)
                measurement = iDrawing.AddHorizontalDimension2(X_Mid, OutLine(3) + 0.005, 0)

                iDrawing.ClearSelection2(True)
                measurement.SetUnits2(False, 0, 1, 0, True, 12)
                measurement.CenterText = True
                measurement.SetPrecision3(0, 0, 0, 0)
            Next


    End Sub

End Class