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

TestEIn 1.9i4 :

Browse Source 
- aggiornamento.
This commit is contained in:
Dario Sassi
2018-10-01 07:38:59 +00:00
parent 9837a8454c
commit 14fb827877
2 changed files with 23 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+21 -8
View File
@@ -6234,26 +6234,25 @@ End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfTmFacetOppositeSide"), SuppressUnmanagedCodeSecurity()>
Private Function EgtSurfTmFacetOppositeSide_32(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, nRefId As Integer,
ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean
ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfTmFacetOppositeSide"), SuppressUnmanagedCodeSecurity()>
Private Function EgtSurfTmFacetOppositeSide_64(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, nRefId As Integer,
ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean
ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean
End Function
Public Function EgtSurfTmFacetOppositeSide(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, nRefId As Integer,
ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean
ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean
If IntPtr.Size = 4 Then
Return EgtSurfTmFacetOppositeSide_32(nId, nFacet, vtDir, nRefId, PtP1, PtP2)
Return EgtSurfTmFacetOppositeSide_32(nId, nFacet, vtDir, nRefId, ptP1, ptP2, vtIn1, vtOut2)
Else
Return EgtSurfTmFacetOppositeSide_64(nId, nFacet, vtDir, nRefId, PtP1, PtP2)
Return EgtSurfTmFacetOppositeSide_64(nId, nFacet, vtDir, nRefId, ptP1, ptP2, vtIn1, vtOut2)
End If
End Function
Public Function EgtSurfTmFacetOppositeSide(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d,
ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean
Return EgtSurfTmFacetOppositeSide(nId, nFacet, vtDir, nId, PtP1, PtP2)
ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean
Return EgtSurfTmFacetOppositeSide(nId, nFacet, vtDir, nId, ptP1, ptP2, vtIn1, vtOut2)
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfTmFacetAdjacencies"), SuppressUnmanagedCodeSecurity()>
Private Function EgtSurfTmFacetAdjacencies_32(nId As Integer, nF As Integer, ByRef pvAdj As IntPtr, ByRef nCount As Integer) As Boolean
End Function
@@ -9936,6 +9935,20 @@ End Function
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetAxisInvert"), SuppressUnmanagedCodeSecurity()>
Private Function EgtGetAxisInvert_32(sAxis As String, ByRef bInvert As Boolean) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetAxisInvert"), SuppressUnmanagedCodeSecurity()>
Private Function EgtGetAxisInvert_64(sAxis As String, ByRef bInvert As Boolean) As Boolean
End Function
Public Function EgtGetAxisInvert(sAxis As String, ByRef bInvert As Boolean) As Boolean
If IntPtr.Size = 4 Then
Return EgtGetAxisInvert_32(sAxis, bInvert)
Else
Return EgtGetAxisInvert_64(sAxis, bInvert)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetAllHeadsNames"), SuppressUnmanagedCodeSecurity()>
Private Function EgtGetAllHeadsNames_32(ByRef psNames As IntPtr) As Boolean
End Function
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.9.8.4")>
<Assembly: AssemblyFileVersion("1.9.8.4")>
<Assembly: AssemblyVersion("1.9.9.4")>
<Assembly: AssemblyFileVersion("1.9.9.4")>