EgtUILib 2.5g1 :

- aggiunto metodo ToString a Vector3d, Point3d, Frame3d e BBox3d.

EgtInterface.vb

@@ -1,7 +1,7 @@
 '----------------------------------------------------------------------------
-'  EgalTech 2014-2015
+'  EgalTech 2014-2023
 '----------------------------------------------------------------------------
-' File : EgtInterface.vb       Data : 30.06.15        Versione : 1.6f4
+' File : EgtInterface.vb       Data : 25.07.23        Versione : 2.5g1
 ' Contenuto : Modulo EgtInterface (interfaccia verso il motore EgalTech).
 '
 '
@@ -13,6 +13,7 @@
 
 Imports System.Runtime.InteropServices
 Imports System.Security
+Imports System.Globalization
 
 Public Module EgtInterface
 
@@ -217,6 +218,13 @@ Structure Vector3d
          Return Me
       End If
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = x.ToString( "F6", CultureInfo.InvariantCulture) & "," &
+                           y.ToString( "F6", CultureInfo.InvariantCulture) & "," &
+                           z.ToString( "F6", CultureInfo.InvariantCulture)
+      return sOut
+   End Function
    ' vettore nullo
    Shared Function NULL() As Vector3d
       Return New Vector3d(0, 0, 0)
@@ -456,6 +464,13 @@ End Function
          Return Me
       End If
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = x.ToString( "F3", CultureInfo.InvariantCulture) & "," &
+                           y.ToString( "F3", CultureInfo.InvariantCulture) & "," &
+                           z.ToString( "F3", CultureInfo.InvariantCulture)
+      return sOut
+   End Function
    ' Punto Origine
    Shared Function ORIG() As Point3d
       Return New Point3d(0, 0, 0)
@@ -679,6 +694,14 @@ Class Frame3d
          Return False
       End If
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = PtOrig.ToString() & "," &
+                           VtDirX.ToString() & "," &
+                           VtDirY.ToString() & "," &
+                           VtDirZ.ToString()
+      return sOut
+   End Function
    ' Riferimento Globale o Identità
    Shared Function GLOB() As Frame3d
       Return New Frame3d
@@ -880,6 +903,12 @@ Class BBox3d
       If PtMax.y < b3Other.PtMin.y - EPS_SMALL Or PtMin.y > b3Other.PtMax.y + EPS_SMALL Then Return False
       Return True
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = PtMin.ToString() & "," &
+                           PtMax.ToString()
+      return sOut
+   End Function
 End Class
 
 ' Verifica quasi uguaglianza di due bounding box

EgtUILib.vbproj

@@ -285,9 +285,7 @@
     <Compile Include="Scene.Designer.vb">
       <DependentUpon>Scene.vb</DependentUpon>
     </Compile>
-    <Compile Include="Scene.vb">
-      <SubType>UserControl</SubType>
-    </Compile>
+    <Compile Include="Scene.vb" />
     <Compile Include="SelectMulti.Designer.vb">
       <DependentUpon>SelectMulti.vb</DependentUpon>
     </Compile>

My Project/AssemblyInfo.vb

@@ -35,5 +35,5 @@ Imports System.Runtime.InteropServices
 ' È possibile specificare tutti i valori oppure impostare valori predefiniti per i numeri relativi alla revisione e alla build 
 ' utilizzando l'asterisco (*) come descritto di seguito:
 
-<Assembly: AssemblyVersion("2.5.6.1")>
-<Assembly: AssemblyFileVersion("2.5.6.1")>
+<Assembly: AssemblyVersion("2.5.7.1")>
+<Assembly: AssemblyFileVersion("2.5.7.1")>