Small fixes
This commit is contained in:
parent
e837bdf5db
commit
76e94c28a1
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -250,7 +250,7 @@ Public Class Individual
|
|||
|
||||
Model_3D_Fill.BuildGrid()
|
||||
Else
|
||||
'Model_3D.BuildGrating()
|
||||
Model_3D.BuildGrating()
|
||||
Drawing.Create_Model_For_Drawing()
|
||||
End If
|
||||
End Sub
|
||||
|
|
|
|||
|
|
@ -12,7 +12,8 @@ Public Class Model_3D
|
|||
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?
|
||||
|
||||
inst_ = ExternalClass.instantiate_parts(parentID, gratingParameters("TYPE"), "")
|
||||
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"))
|
||||
|
|
|
|||
Loading…
Reference in New Issue