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

TestEIn 1.8e2 :

Browse Source 
- aggiornamento.
This commit is contained in:
Dario Sassi
2017-05-09 11:00:51 +00:00
parent 72ee8e22ae
commit dc0123fe72
2 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+28
View File
@@ -7358,6 +7358,34 @@ End Function
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtMovePartInRawPart"), SuppressUnmanagedCodeSecurity()>
Private Function EgtMovePartInRawPart_32(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtMovePartInRawPart"), SuppressUnmanagedCodeSecurity()>
Private Function EgtMovePartInRawPart_64(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean
End Function
Public Function EgtMovePartInRawPart(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean
If IntPtr.Size = 4 Then
Return EgtMovePartInRawPart_32(nRawId, vtMove)
Else
Return EgtMovePartInRawPart_64(nRawId, vtMove)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartInRawPart"), SuppressUnmanagedCodeSecurity()>
Private Function EgtRotatePartInRawPart_32(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartInRawPart"), SuppressUnmanagedCodeSecurity()>
Private Function EgtRotatePartInRawPart_64(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean
End Function
Public Function EgtRotatePartInRawPart(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean
If IntPtr.Size = 4 Then
Return EgtRotatePartInRawPart_32(nRawId, vtAx, dAngDeg)
Else
Return EgtRotatePartInRawPart_64(nRawId, vtAx, dAngDeg)
End If
End Function
' Table & Fixtures
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetTable"), SuppressUnmanagedCodeSecurity()>
Private Function EgtSetTable_32(sTable As String) As Boolean
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.8.5.1")>
<Assembly: AssemblyFileVersion("1.8.5.1")>
<Assembly: AssemblyVersion("1.8.5.2")>
<Assembly: AssemblyFileVersion("1.8.5.2")>