From bca3d7f8df1577f86a5e433d2b689012c3195bf3 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Wed, 2 Sep 2015 13:07:28 +0000 Subject: [PATCH] TestEIn 1.6i1 : - modifiche per import BTL. --- Controller.vb | 2 +- EgtInterface.vb | 10 +++++----- My Project/AssemblyInfo.vb | 4 ++-- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/Controller.vb b/Controller.vb index 8e39ab4..8afe38b 100644 --- a/Controller.vb +++ b/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() diff --git a/EgtInterface.vb b/EgtInterface.vb index 20c8372..be79d2e 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -1311,16 +1311,16 @@ Public Function EgtImportCsf(ByVal sFilePath As String) As Boolean End Function -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 -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 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 0ed0902..a0b96ee 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +