- Correzione a inserimento valori Direzione Fibre in Parametri Pezzo

2022-03-18 17:41:28 +01:00
1 changed files with 5 additions and 3 deletions
@@ -946,10 +946,12 @@ Public Class BTLPartVM
      End Get
      Set(value As String)
         Dim sValArray() As String = value.Split(",")
+         Dim dX, dY, dZ As Double
         If sValArray.Count() >= 3 AndAlso
-            StringToDouble(sValArray(0), m_BTLPartM.refGrainDir.x) AndAlso
-            StringToDouble(sValArray(1), m_BTLPartM.refGrainDir.y) AndAlso
-            StringToDouble(sValArray(2), m_BTLPartM.refGrainDir.z) Then
+            StringToDouble(sValArray(0), dX) AndAlso
+            StringToDouble(sValArray(1), dY) AndAlso
+            StringToDouble(sValArray(2), dZ) Then
+            m_BTLPartM.refGrainDir = New Vector3d(dX, dY, dZ)
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GRAINDIR, sValArray(0) & "," &
                                                    sValArray(1) & "," &
                                                    sValArray(2) & ";" &