87 lines
3.8 KiB
VB.net
87 lines
3.8 KiB
VB.net
Imports XCCLibrary
|
|
|
|
Public Class Program
|
|
Public Shared Function Add_Parts(Input As DataSet)
|
|
Dim inst_ As Integer = 0
|
|
Dim ParentID As Integer = 0
|
|
Dim Last_section_height As Integer = 0
|
|
|
|
For Each DT As DataTable In Input.Tables
|
|
Dim Section_Width = DT.Rows(0)("Section_width")
|
|
Dim Section_Height = DT.Rows(0)("Section_height")
|
|
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "RAIL", "")
|
|
ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
|
|
If Last_section_height > Section_Height Then
|
|
ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, Last_section_height)
|
|
Else
|
|
ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, Section_Height)
|
|
End If
|
|
Last_section_height = Section_Height
|
|
ParentID = inst_
|
|
|
|
For Each DR As DataRow In DT.Rows
|
|
Dim Type = DR("Type")
|
|
If Type = "Basket" Then
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "BASKET", "")
|
|
ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
|
|
ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
|
|
ExternalClass.modify_parameter_value("DP_CONFIGURATION", inst_, DR("Item_Height"))
|
|
|
|
ElseIf Type = "Hanger" Then
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "HANGER", "")
|
|
ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
|
|
|
|
ElseIf Type = "Hooks" Then
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "HOOKS", "")
|
|
ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
|
|
ExternalClass.modify_parameter_value("DP_NUMBER", inst_, DR("Quantity"))
|
|
ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
|
|
|
|
ElseIf Type = "Drying" Then
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "DRYING_RACK", "")
|
|
ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
|
|
ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
|
|
|
|
If DR("Left") Then
|
|
ExternalClass.instantiate_parts(inst_, "ROD", "1")
|
|
End If
|
|
If DR("Mid") Then
|
|
ExternalClass.instantiate_parts(inst_, "ROD", "2")
|
|
End If
|
|
If DR("Right") Then
|
|
ExternalClass.instantiate_parts(inst_, "ROD", "3")
|
|
End If
|
|
|
|
ElseIf Type = "Shelf" Then
|
|
|
|
If DR("Type_of_shelf") = "Flat" Then
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "FLAT_SHELF", "")
|
|
ElseIf DR("Type_of_shelf") = "Wire" Then
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "WIRE_SHELF", "")
|
|
End If
|
|
ExternalClass.modify_parameter_value("DP_DEPTH", inst_, DR("Depth"))
|
|
ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
|
|
ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
|
|
|
|
End If
|
|
Next
|
|
|
|
|
|
Next
|
|
|
|
inst_ = ExternalClass.instantiate_parts(ParentID, "RAIL", "")
|
|
ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, Last_section_height)
|
|
|
|
|
|
Return groupClass.NewGroupID
|
|
|
|
End Function
|
|
|
|
|
|
Public Shared Sub UpdateKB()
|
|
adminClass.loadSettings("C:\Users\Asus_station3\Desktop", "D:\OneDrive - XperDi AB\XperDi\DLL_Test\Wardrobe", "SolidWorks")
|
|
adminClass.updateDatabase()
|
|
End Sub
|
|
End Class
|