TestEIn 1.6r1 :

- aggiornamento e ricompilazione.
This commit is contained in:
Dario Sassi
2016-05-12 15:30:47 +00:00
parent fb65e11003
commit d99fa816ac
2 changed files with 48 additions and 2 deletions
+46
View File
@@ -2456,6 +2456,15 @@ Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId() As Intege
Return EgtCreateSurfFlatRegion_64(nParentId, nCrvId.Length(), nCrvId)
End If
End Function
Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId As Integer) As Integer
Dim nCrvIds(0) As Integer
nCrvIds(0) = nCrvId
If IntPtr.Size = 4 Then
Return EgtCreateSurfFlatRegion_32(nParentId, 1, nCrvIds)
Else
Return EgtCreateSurfFlatRegion_64(nParentId, 1, nCrvIds)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmBBox")>
Private Function EgtCreateSurfTmBBox_32(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d,
@@ -5319,6 +5328,34 @@ Public Function EgtSurfFrNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As
Return EgtSurfFrNormVersor(nId, nId, VtNorm)
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrChunkCount")>
Private Function EgtSurfFrChunkCount_32(nId As Integer) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrChunkCount")>
Private Function EgtSurfFrChunkCount_64(nId As Integer) As Integer
End Function
Public Function EgtSurfFrChunkCount(nId As Integer) As Integer
If IntPtr.Size = 4 Then
Return EgtSurfFrChunkCount_32(nId)
Else
Return EgtSurfFrChunkCount_64(nId)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrChunkSimpleClassify")>
Private Function EgtSurfFrChunkSimpleClassify_32(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrChunkSimpleClassify")>
Private Function EgtSurfFrChunkSimpleClassify_64(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer
End Function
Public Function EgtSurfFrChunkSimpleClassify(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer
If IntPtr.Size = 4 Then
Return EgtSurfFrChunkSimpleClassify_32(nId1, nChunk1, nId2, nChunk2)
Else
Return EgtSurfFrChunkSimpleClassify_64(nId1, nChunk1, nId2, nChunk2)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfTmFacetFromTria")>
Private Function EgtSurfTmFacetFromTria_32(nId As Integer, nT As Integer) As Integer
End Function
@@ -9633,6 +9670,15 @@ Public Enum INS_POS As Integer
BC = 8
BR = 9
End Enum
'Costanti : semplice classificazione dei chunk di due regioni
Public Enum REGC As Integer
NULL = 0
IN1 = 1
IN2 = 2
SAME = 3
OUT = 4
INTERS = 5
End Enum
'Costanti : interruzione di riga
Public Const LINE_BREAK As String = "<br/>"
'Costanti : tipo creazione pezzo piatto
+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.6.16.4")>
<Assembly: AssemblyFileVersion("1.6.16.4")>
<Assembly: AssemblyVersion("1.6.18.1")>
<Assembly: AssemblyFileVersion("1.6.18.1")>