Small fixes

This commit is contained in:
Mans 2021-03-10 14:58:52 +01:00
parent e837bdf5db
commit 76e94c28a1
7 changed files with 3 additions and 2 deletions

Binary file not shown.

BIN
HLCt/Parts/~$START.SLDPRT Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -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

View File

@ -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"))