TestEIn 1.6i1 :

- modifiche per import BTL.

Controller.vb

@@ -452,7 +452,7 @@ Public Class Controller
       ElseIf nFileType = FT.CSF Then
          bOk = bOk And EgtImportCsf(sFile)
       ElseIf nFileType = FT.BTL Then
-         bOk = bOk And EgtImportBtl(sFile)
+         bOk = bOk And EgtImportBtl(sFile, True)
       End If
       EgtResetCurrPartLayer()
       DisableCommandLog()

EgtInterface.vb

@@ -1311,16 +1311,16 @@ Public Function EgtImportCsf(ByVal sFilePath As String) As Boolean
 End Function
 
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtImportBtl")>
-Private Function EgtImportBtl_32(ByVal sFilePath As String) As Boolean
+Private Function EgtImportBtl_32(ByVal sFilePath As String, ByVal bFlatPos As Boolean) As Boolean
 End Function
 <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtImportBtl")>
-Private Function EgtImportBtl_64(ByVal sFilePath As String) As Boolean
+Private Function EgtImportBtl_64(ByVal sFilePath As String, ByVal bFlatPos As Boolean) As Boolean
 End Function
-Public Function EgtImportBtl(ByVal sFilePath As String) As Boolean
+Public Function EgtImportBtl(ByVal sFilePath As String, ByVal bFlatPos As Boolean) As Boolean
    If IntPtr.Size = 4 Then
-      Return EgtImportBtl_32(sFilePath)
+      Return EgtImportBtl_32(sFilePath, bFlatPos)
    Else
-      Return EgtImportBtl_64(sFilePath)
+      Return EgtImportBtl_64(sFilePath, bFlatPos)
    End If
 End Function
 

My Project/AssemblyInfo.vb

@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.8.5")> 
-<Assembly: AssemblyFileVersion("1.6.8.5")> 
+<Assembly: AssemblyVersion("1.6.9.1")> 
+<Assembly: AssemblyFileVersion("1.6.9.1")>