diff --git a/HLCt/Parts/START.SLDPRT b/HLCt/Parts/START.SLDPRT
index 7185632..523a096 100644
Binary files a/HLCt/Parts/START.SLDPRT and b/HLCt/Parts/START.SLDPRT differ
diff --git a/HLCt/Parts/~$START.SLDPRT b/HLCt/Parts/~$START.SLDPRT
deleted file mode 100644
index b07f2ee..0000000
Binary files a/HLCt/Parts/~$START.SLDPRT and /dev/null differ
diff --git a/HLCt/frame_l_straight.SLDPRT b/HLCt/frame_l_straight.SLDPRT
index 8904576..2c13a63 100644
Binary files a/HLCt/frame_l_straight.SLDPRT and b/HLCt/frame_l_straight.SLDPRT differ
diff --git a/Wardrobe/SolidWorks/Individual_Frame_3D.vb b/Wardrobe/SolidWorks/Individual_Frame_3D.vb
index 0f06e49..430e6d4 100644
--- a/Wardrobe/SolidWorks/Individual_Frame_3D.vb
+++ b/Wardrobe/SolidWorks/Individual_Frame_3D.vb
@@ -287,7 +287,7 @@ Public Class Individual_Frame_3D
         Return cuttingList
     End Function
 
-    Public Shared Sub Generate_End_Frame_Piece()
+    Public Shared Sub Generate_End_Frame_Pieces()
         Dim swApp As SldWorks.SldWorks
         swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
         Dim boolstatus As Boolean
@@ -335,6 +335,8 @@ Public Class Individual_Frame_3D
             Dim swErrors As Integer
             Dim swWarnings As Integer
             boolstatus = Part.Save3(1, swErrors, swWarnings)
+
+            swApp.CloseDoc(Individual.filepath & "\Temp\frame_l_end_piece" & j + 1 & ".SLDPRT")
         Next
     End Sub
 End Class
diff --git a/Wardrobe/SolidWorks/Individual_Frame_Drawing.vb b/Wardrobe/SolidWorks/Individual_Frame_Drawing.vb
index 7de4274..1fa4c67 100644
--- a/Wardrobe/SolidWorks/Individual_Frame_Drawing.vb
+++ b/Wardrobe/SolidWorks/Individual_Frame_Drawing.vb
@@ -1,38 +1,89 @@
 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
-        Dim frameComponents = Model_3D.partDT.Select("partType = 'frame_l_straight'")
-
+        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 assemComp As Component2
-            Dim compNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count - 1) As String
-            Dim coordNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count - 1) As String
-            For j = 0 To compNames.Count - 1
-                Dim frameID = Individual_Frame_3D.cuttingList.ElementAt(i).Value(j) - 1
-                'assemComp = assembly.AddComponent5(Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT",
-                '0, Nothing, False, Nothing, 0, 0, 0)
-                compNames(j) = Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT"
-                coordNames()
 
-            Next
-            compNames(compNames.Length - 1) = Individual.filepath & "\Temp\frame_l_end_piece" & i + 1 & ".SLDPRT"
+            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) = ""
 
-            assemComp = assembly.AddComponents3((compNames), (transMatrix), "")
+            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)
+
+        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 plane1Name As String = "OffPlane1@" & CompName & "@" & myView.GetName2 & "/" & frameComponents(0)("partName") & "-1@" & CompName.Split("-")(0)
+        Dim plane2Name As String = "OffPlane2@" & CompName & "@" & myView.GetName2 & "/" & frameComponents(0)("partName") & "-1@" & CompName.Split("-")(0)
+
+        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(0.005, 0, 0)
+
+        iDrawing.ClearSelection2(True)
+        measurement.SetUnits2(False, 0, 1, 0, True, 12)
+        measurement.CenterText = True
+        measurement.SetPrecision3(0, 0, 0, 0)
 
     End Sub
 
-
 End Class
diff --git a/Wardrobe/SolidWorks/Model_3D.vb b/Wardrobe/SolidWorks/Model_3D.vb
index 15befc9..5cb10e7 100644
--- a/Wardrobe/SolidWorks/Model_3D.vb
+++ b/Wardrobe/SolidWorks/Model_3D.vb
@@ -46,8 +46,9 @@ Public Class Model_3D
         groupClass.InstantiateGroup(designName, grNr, "START")
 
         Recess_Indent()
-        Individual_Frame_3D.Generate_End_Frame_Piece()
+        Individual_Frame_3D.Generate_End_Frame_Pieces()
         Individual_Frame_Drawing.Create_Assemblies()
+        Individual_Frame_Drawing.Generate_Drawings()
 
     End Sub