Egalware/EgtUILib
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtUILib 2.3d5 :

Browse Source 
- aggiunte interfacce per funzioni EgtGetCalcAngles e EgtGetCalcPositions.
This commit is contained in:
DarioS
2021-04-26 19:06:29 +02:00
parent 80f3101b0f
commit 17d4dfd01a
2 changed files with 36 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+34
View File
@@ -11851,6 +11851,40 @@ End Function
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcAngles"), SuppressUnmanagedCodeSecurity()>
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
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcAngles"), SuppressUnmanagedCodeSecurity()>
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
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcPositions"), SuppressUnmanagedCodeSecurity()>
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
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcPositions"), SuppressUnmanagedCodeSecurity()>
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
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcTipFromPositions"), SuppressUnmanagedCodeSecurity()>
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
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -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.3.4.4")>
<Assembly: AssemblyFileVersion("2.3.4.4")>
<Assembly: AssemblyVersion("2.3.4.5")>
<Assembly: AssemblyFileVersion("2.3.4.5")>