From 17d4dfd01acb5d04a80f88417c392181538eada4 Mon Sep 17 00:00:00 2001 From: DarioS Date: Mon, 26 Apr 2021 19:06:29 +0200 Subject: [PATCH] EgtUILib 2.3d5 : - aggiunte interfacce per funzioni EgtGetCalcAngles e EgtGetCalcPositions. --- EgtInterface.vb | 34 ++++++++++++++++++++++++++++++++++ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 36 insertions(+), 2 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index 9098330..b7eec6c 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -11851,6 +11851,40 @@ End Function End If End Function + + Private Function EgtGetCalcAngles_32( ByRef VtDirT As Vector3d, ByRef VtDirA As Vector3d, + ByRef nStat As Integer, ByRef dAngA1 As Double, ByRef dAngB1 As Double, ByRef dAngA2 As Double, ByRef dAngB2 As Double) + End Function + + Private Function EgtGetCalcAngles_64( ByRef VtDirT As Vector3d, ByRef VtDirA As Vector3d, + ByRef nStat As Integer, ByRef dAngA1 As Double, ByRef dAngB1 As Double, ByRef dAngA2 As Double, ByRef dAngB2 As Double) + End Function + Private Function EgtGetCalcAngles( ByRef VtDirT As Vector3d, ByRef VtDirA As Vector3d, + ByRef nStat As Integer, ByRef dAngA1 As Double, ByRef dAngB1 As Double, ByRef dAngA2 As Double, ByRef dAngB2 As Double) + If IntPtr.Size = 4 Then + Return EgtGetCalcAngles_32( VtDirT, VtDirA, nStat, dAngA1, dAngB1, dAngA2, dAngB2) + Else + Return EgtGetCalcAngles_64( VtDirT, VtDirA, nStat, dAngA1, dAngB1, dAngA2, dAngB2) + End If + End Function + + + Private Function EgtGetCalcPositions_32( ByRef PtP As Point3d, dAngA As Double, dAngB As Double, + ByRef nStat As Integer, ByRef dX As Double, ByRef dY As Double, ByRef dZ As Double) + End Function + + Private Function EgtGetCalcPositions_64( ByRef PtP As Point3d, dAngA As Double, dAngB As Double, + ByRef nStat As Integer, ByRef dX As Double, ByRef dY As Double, ByRef dZ As Double) + End Function + Private Function EgtGetCalcPositions( ByRef PtP As Point3d, dAngA As Double, dAngB As Double, + ByRef nStat As Integer, ByRef dX As Double, ByRef dY As Double, ByRef dZ As Double) + If IntPtr.Size = 4 Then + Return EgtGetCalcPositions_32( PtP, dAngA, dAngB, nStat, dX, dY, dZ) + Else + Return EgtGetCalcPositions_64( PtP, dAngA, dAngB, nStat, dX, dY, dZ) + End If + End Function + Private Function EgtGetCalcTipFromPositions_32(dX As Double, dY As Double, dZ As Double, dAngA As Double, dAngB As Double, bBottom As Boolean, ByRef ptTip As Point3d) As Boolean diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index db3a591..4bc1920 100644 --- a/My Project/AssemblyInfo.vb +++ b/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: - - + +