From dc0123fe7201895a8c362345d1d458911a8b82e0 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 9 May 2017 11:00:51 +0000 Subject: [PATCH] TestEIn 1.8e2 : - aggiornamento. --- EgtInterface.vb | 28 ++++++++++++++++++++++++++++ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 30 insertions(+), 2 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index 876d55c..9d83cb0 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -7358,6 +7358,34 @@ End Function End If End Function + + Private Function EgtMovePartInRawPart_32(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean + End Function + + 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 + + + Private Function EgtRotatePartInRawPart_32(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean + End Function + + 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 Private Function EgtSetTable_32(sTable As String) As Boolean diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 787d636..9c7b4b2 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: ' - - + +