106 lines
5.6 KiB
VB.net
106 lines
5.6 KiB
VB.net
Imports XCCLibrary
|
|
Public Class Model_3D
|
|
Public Shared Sub BuildGrating()
|
|
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)
|
|
inst_ = ExternalClass.instantiate_parts(parentID, gratingParameters("TYPE"), "") ' Ange pressure_welded eller type A, Serrated?
|
|
ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, gratingParameters("WIDTH"))
|
|
ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, gratingParameters("LENGTH"))
|
|
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
|
|
|
|
'Instantiate recess rectangle
|
|
parentID = inst_
|
|
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("*")
|
|
Dim designName = designTable.rows(0)("designName")
|
|
groupClass.InstantiateGroup(designName, grNr, "START")
|
|
|
|
|
|
|
|
|
|
|
|
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" OrElse recessDR("RECESS TYPE") = "ANGLE" Then
|
|
If recessDR("RECESS TYPE") = "SQUARE" Then
|
|
inst_ = ExternalClass.instantiate_parts(parentID, "recess_rectangle", "")
|
|
Else
|
|
inst_ = ExternalClass.instantiate_parts(parentID, "recess_angle", "")
|
|
End If
|
|
Dim squareL As Integer = recessDR("LENGTH") + gratingParameters("LOADBAR_THICKNESS")
|
|
Dim squareW As Integer = recessDR("WIDTH") + gratingParameters("LOADBAR_THICKNESS")
|
|
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_, gratingParameters("WIDTH") - 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_, gratingParameters("WIDTH") - squareW)
|
|
ExternalClass.modify_parameter_value("DP_OFFSET_L", inst_, gratingParameters("LENGTH") - 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_, gratingParameters("LENGTH") - 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") = "SIDE SQUARE" Then
|
|
'???
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|