From f96d1bbf030466816837b0f291e75cd5dab4fc4c Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 7 Nov 2016 14:56:52 +0000 Subject: [PATCH] TestEIn 1.6w2 : - aggiornata interfaccia verso codice nativo. --- EgtInterface.vb | 14 ++++++++++++++ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index dcffe86..f53cdb5 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -6892,6 +6892,20 @@ Public Function EgtMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d) As B End If End Function + +Private Function EgtRotateRawPart_32(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean +End Function + +Private Function EgtRotateRawPart_64(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean +End Function +Public Function EgtRotateRawPart(nRawId As Integer, ByRef vtAx As Vector3d, dAngDeg As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtRotateRawPart_32(nRawId, vtAx, dAngDeg) + Else + Return EgtRotateRawPart_64(nRawId, vtAx, dAngDeg) + End If +End Function + Private Function EgtSplitFlatRawPartWithMachinings_32(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer End Function diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 7c836cd..4d55cee 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: ' - - + +