Imports XCCLibrary

Public Class Model_3D_Fill
    Private Shared designName As String
    Public Shared Sub BuildGrid()
        Dim exportTable As DataTable
        exportTable = User_Input.Create_ExportTable()

        XCCBaseClass.newDesign()
        ExternalClass.PopulateTamplateXMLGroup()

        Dim inst_ As Integer
        Dim parentID As Integer = 0
        Dim gratingParameters As DataRow = exportTable.Rows(0)

        For i = 0 To Grating_Fill.gratingDimensions.Rows.Count - 1
            inst_ = ExternalClass.instantiate_parts(parentID, gratingParameters("TYPE"), "") ' Ange pressure_welded eller type A, Serrated?
            ExternalClass.modify_parameter_value("DP_LOADBAR_THICKNESS", inst_, gratingParameters("LOADBAR_THICKNESS"))
            ExternalClass.modify_parameter_value("DP_LOADBAR_HEIGHT", inst_, gratingParameters("LOADBAR_HEIGHT"))
            ExternalClass.modify_parameter_value("DP_LOADBAR_SPACING", inst_, gratingParameters("LOADBAR_SPACING"))
            ExternalClass.modify_parameter_value("DP_CROSSBAR_SPACING", inst_, gratingParameters("CROSSBAR_SPACING"))

            If gratingParameters("TYPE") = "pressure_welded" Then
                ExternalClass.modify_parameter_value("DP_CROSSBAR_DIAMETER", inst_, gratingParameters("CROSSBAR_DIAMETER"))
            Else
                ExternalClass.modify_parameter_value("DP_CROSSBAR_THICKNESS", inst_, gratingParameters("CROSSBAR_THICKNESS"))
                ExternalClass.modify_parameter_value("DP_CROSSBAR_HEIGHT", inst_, gratingParameters("CROSSBAR_HEIGHT"))
            End If


            ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, Grating_Fill.gratingDimensions.Rows(i)("WIDTH"))
            ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, Grating_Fill.gratingDimensions.Rows(i)("LENGTH"))
            Dim offsetX As Integer = 0
            For j = 1 To Grating_Fill.gratingDimensions.Rows(i)("COLUMN")
                offsetX += Grating_Fill.gratingDimensions.Rows(i - j)("LENGTH")

            Next

            Dim offsetY As Integer = 0
            For j = 1 To Grating_Fill.gratingDimensions.Rows(i)("ROW")
                offsetY += Grating_Fill.gratingDimensions.Rows(i - Grating_Fill.numOfHorizontal * j)("WIDTH")

            Next

            ExternalClass.modify_parameter_value("DP_OFFSET_X", inst_, (Grating_Fill.gratingDimensions.Rows(i)("LENGTH") / 2) + offsetX)
            ExternalClass.modify_parameter_value("DP_OFFSET_Y", inst_, (Grating_Fill.gratingDimensions.Rows(i)("WIDTH") / 2) + offsetY)
        Next

        parentID = Grating_Fill.numOfHorizontal * (Grating_Fill.numOfVertical - 1) + 1
        For Each recessDR As DataRow In Data.recessData.Rows
            Inst_Recesses(parentID, gratingParameters, recessDR)
        Next

        importClass.copyGroupsByDataSet(ExternalClass.groupds_new)
        Dim grNr = groupClass.NewGroupID
        Dim designTable = designModel.selectDesign("*")
        designName = designTable.rows(0)("designName")
        groupClass.InstantiateGroup(designName, grNr, "START")

        Recess_Indent()
    End Sub

    Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow)
        Dim inst_ As Integer

        If recessDR("RECESS TYPE") = "SQUARE" Then
            Dim squareL As Integer = recessDR("LENGTH") + gratingParameters("LOADBAR_THICKNESS")
            Dim squareW As Integer = recessDR("WIDTH") + gratingParameters("LOADBAR_THICKNESS")

            inst_ = ExternalClass.instantiate_parts(parentID, "recess_rectangle", "")

            ExternalClass.modify_parameter_value("DP_LENGTH", inst_, squareL + gratingParameters("LOADBAR_THICKNESS"))
            ExternalClass.modify_parameter_value("DP_WIDTH", inst_, squareW)
            ExternalClass.modify_parameter_value("DP_EDGEBAR_HEIGHT", inst_, gratingParameters("LOADBAR_HEIGHT"))
            ExternalClass.modify_parameter_value("DP_EDGEBAR_THICKNESS", inst_, gratingParameters("LOADBAR_THICKNESS"))

            If recessDR("CORNER") = 1 Then
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, Data.gratingW - squareW)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, 0)

                'Position
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_POS", inst_, squareL)
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_BOTTOM", inst_, gratingParameters("LOADBAR_THICKNESS"))
                ExternalClass.modify_parameter_value("DP_H_EDGEBAR_POS", inst_, 0)

            ElseIf recessDR("CORNER") = 2 Then
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, Data.gratingW - squareW)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, Data.gratingL - squareL - gratingParameters("LOADBAR_THICKNESS"))

                'Position
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_POS", inst_, 0)
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_BOTTOM", inst_, gratingParameters("LOADBAR_THICKNESS"))
                ExternalClass.modify_parameter_value("DP_H_EDGEBAR_POS", inst_, 0)

            ElseIf recessDR("CORNER") = 3 Then
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, 0)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, Data.gratingL - squareL - gratingParameters("LOADBAR_THICKNESS"))

                'Position
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_POS", inst_, 0)
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_BOTTOM", inst_, 0)
                ExternalClass.modify_parameter_value("DP_H_EDGEBAR_POS", inst_, squareW - gratingParameters("LOADBAR_THICKNESS"))
            Else
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, 0)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, 0)

                'Position
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_POS", inst_, squareL)
                ExternalClass.modify_parameter_value("DP_V_EDGEBAR_BOTTOM", inst_, 0)
                ExternalClass.modify_parameter_value("DP_H_EDGEBAR_POS", inst_, squareW - gratingParameters("LOADBAR_THICKNESS"))
            End If

        ElseIf recessDR("RECESS TYPE") = "ANGLE" Then
            inst_ = ExternalClass.instantiate_parts(parentID, "recess_angle", "")

            ExternalClass.modify_parameter_value("DP_EDGEBAR_HEIGHT", inst_, gratingParameters("LOADBAR_HEIGHT"))
            ExternalClass.modify_parameter_value("DP_EDGEBAR_THICKNESS", inst_, gratingParameters("LOADBAR_THICKNESS"))

            If recessDR("CORNER") = 1 Then
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, Data.gratingW)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, 0)
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 90)

            ElseIf recessDR("CORNER") = 2 Then
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, Data.gratingW)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, Data.gratingL)
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 180)

            ElseIf recessDR("CORNER") = 3 Then
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, 0)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, Data.gratingL)
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 270)

            Else
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, 0)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, 0)
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 0)

            End If

        ElseIf recessDR("RECESS TYPE") = "SIDE SQUARE" Then
            inst_ = ExternalClass.instantiate_parts(parentID, "recess_side_square", "")

            ExternalClass.modify_parameter_value("DP_EDGEBAR_HEIGHT", inst_, gratingParameters("LOADBAR_HEIGHT"))
            ExternalClass.modify_parameter_value("DP_EDGEBAR_THICKNESS", inst_, gratingParameters("LOADBAR_THICKNESS"))

            If recessDR("SIDE") = 1 Then
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, Data.gratingW)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, recessDR("OFFSET"))
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 90)

            ElseIf recessDR("SIDE") = 2 Then
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, Data.gratingW - recessDR("OFFSET"))
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, Data.gratingL)
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 180)

            ElseIf recessDR("SIDE") = 3 Then
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, 0)
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, Data.gratingL - recessDR("OFFSET"))
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 270)

            Else
                ExternalClass.modify_parameter_value("DP_LENGTH", inst_, recessDR("LENGTH"))
                ExternalClass.modify_parameter_value("DP_WIDTH", inst_, recessDR("WIDTH"))
                ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, recessDR("OFFSET"))
                ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, 0)
                ExternalClass.modify_parameter_value("DP_ROTATION", inst_, 0)

            End If
        End If
    End Sub

    Private Shared Sub Recess_Indent()
        'Combine all bodies
        Dim swApp As SldWorks.SldWorks
        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)

        Dim boolstatus As Boolean
        Dim AssemblyExtension As SldWorks.ModelDocExtension

        Dim Assembly = swApp.ActiveDoc
        Dim SelMgr = Assembly.SelectionManager()
        AssemblyExtension = Assembly.Extension
        Dim sldata = SelMgr.CreateSelectData

        Dim partDT As New DataTable
        partDT = partModel.selectPart("*")

        Dim gratingParts = partDT.Select("parentName = 'START'")

        Dim components = Assembly.GetComponents(True)

        For i = 0 To gratingParts.Count - 1
            Assembly.ClearSelection2(True)

            Dim indexGrating As Integer
            Dim gratingPartName As String = gratingParts(i)("partName")
            For k = 0 To components.Length - 1
                If components(k).Name2 = gratingPartName & "-1" Then
                    indexGrating = k
                    Exit For
                End If
            Next
            boolstatus = AssemblyExtension.SelectByID2(gratingPartName & "-1@" & designName, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
            Assembly.EditPart

            Dim gratingBodies = components(indexGrating).GetBodies2(0)
            Assembly.ClearSelection2(True)

            For k = 0 To gratingBodies.Length - 1
                'sldata.Mark = 2
                Dim bodyName As String = gratingBodies(k).Name & "@" & gratingPartName & "-1@" & designName
                boolstatus = AssemblyExtension.SelectByID2(bodyName, "SOLIDBODY", 0, 0, 0, True, 2, Nothing, 0)

            Next
            Dim combinedFeature As SldWorks.Feature
            Dim assemblyFeaMgr As SldWorks.IFeatureManager

            assemblyFeaMgr = Assembly.FeatureManager
            combinedFeature = assemblyFeaMgr.InsertCombineFeature(15903, Nothing, Nothing)
            'combinedFeature = Assembly.FeatureManager.InsertCombineFeature(15903, Nothing, Nothing)
            'combinedFeature = assemblyFeaMgr.InsertCombineFeature(15903, Nothing, gratingBodies)
            Assembly.EditAssembly
        Next


        'Indent




    End Sub

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

        Dim boolstatus As Boolean
        Dim AssemblyExtension As SldWorks.ModelDocExtension

        Dim Assembly = swApp.ActiveDoc
        Dim SelMgr = Assembly.SelectionManager()
        AssemblyExtension = Assembly.Extension
        Dim sldata = SelMgr.CreateSelectData

        Dim partDT As New DataTable
        partDT = partModel.selectPart("*")

        Dim recessParentName As String = partDT.Rows(Grating_Fill.numOfHorizontal * (Grating_Fill.numOfVertical - 1))("partName")
        Dim recessParts = partDT.Select("parentName = '" & recessParentName & "'")
        For i = 0 To recessParts.Count - 1
            Dim tempList As List(Of Integer) = Data.recessData.Rows(i)("GRATINGS")
            For j = 0 To tempList.Count - 1
                Assembly.ClearSelection2(True)

                Dim gratingPartName As String = partDT.Rows(Data.recessData.Rows(i)("GRATINGS")(j))("partName")
                boolstatus = AssemblyExtension.SelectByID2(gratingPartName & "-1@" & designName, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
                Dim gratingPart = SelMgr.GetSelectedObject6(1, -1)

                Assembly.EditPart

                Dim components = Assembly.GetComponents(True)
                Dim indexGrating As Integer
                For k = 0 To components.Length - 1
                    If components(k).Name2 = gratingPartName & "-1" Then
                        indexGrating = k
                        Exit For
                    End If
                Next

                Dim gratingBodies = components(indexGrating).GetBodies2(0)

                Dim recessPartName As String = recessParts(i)("partName")
                boolstatus = AssemblyExtension.SelectByID2(recessPartName & "-1@" & designName, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
                Dim recessPart = SelMgr.GetSelectedObject6(1, -1)

                Dim indexRecess As Integer
                For k = 0 To components.Length - 1
                    If components(k).Name2 = recessPartName & "-1" Then
                        indexRecess = k
                        Exit For
                    End If
                Next

                Dim recessBodies = components(indexRecess).GetBodies2(0)
                For k = 0 To gratingBodies.Length - 1
                    sldata.Mark = 1

                    Dim bodyName As String = gratingBodies(k).Name & "@" & gratingPartName & "-1@" & designName
                    boolstatus = AssemblyExtension.SelectByID2(bodyName, "SOLIDBODY", 0, 0, 0, True, 1, Nothing, 0)

                    sldata.Mark = 4

                    Dim indexBody As Integer
                    For l = 0 To recessBodies.Length - 1
                        If recessBodies(l).Name = "Boss-Extrude1" Then
                            indexBody = l
                            Exit For
                        End If
                    Next

                    Dim recessFace = recessBodies(indexBody).GetFirstFace
                    recessFace.Select4(True, sldata)

                    Assembly.FeatureManager.InsertIndent(0.01, 0, False, True, True, False)

                    Assembly.ClearSelection2(True)

                Next

                Assembly.EditAssembly
            Next
            Dim interfDectMgr As SldWorks.InterferenceDetectionMgr
            'Dim interferences As Object
            'Dim interferenceBody As SldWorks.IBody2
            Assembly.ToolsCheckInterference

            interfDectMgr = Assembly.InterferenceDetectionManager

            interfDectMgr.TreatCoincidenceAsInterference = False
            interfDectMgr.TreatSubAssembliesAsComponents = False
            interfDectMgr.IncludeMultibodyPartInterferences = True
            interfDectMgr.MakeInterferingPartsTransparent = True
            interfDectMgr.CreateFastenersFolder = False
            interfDectMgr.IgnoreHiddenBodies = False
            interfDectMgr.ShowIgnoredInterferences = False
            interfDectMgr.UseTransform = False

            Dim interferences = interfDectMgr.GetInterferences()
            'Dim tempinter As SldWorks.Interference
            Dim tempinter = interferences(1)
            Dim interferenceBody = tempinter.GetInterferenceBody()
            Dim tempdata As SldWorks.SelectData
            Dim tempbool As Boolean
            tempbool = interferenceBody.Select2(True, tempdata)

            Dim intBodyName As String = interferenceBody.Name

            'interferenceBody.DisableDisplay = True
            Dim a = 1
        Next



    End Sub

End Class