From 64831f2b4ff6d3f5f8dcf4b31974447f73831d76 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Wed, 17 Feb 2016 15:14:14 +0000 Subject: [PATCH] TestEIn 1.6n6 : - aggiornamento. --- EgtInterface.vb | 200 ++++++++++++++++++++++++++++++++++++- My Project/AssemblyInfo.vb | 4 +- 2 files changed, 199 insertions(+), 5 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index c432af7..9ccf659 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -258,6 +258,11 @@ Structure Point3d Dim vtV As New Vector3d(PtP1.x - PtP2.x, PtP1.y - PtP2.y, PtP1.z - PtP2.z) Return vtV End Operator + ' Differenza di un punto e un vettore + Shared Operator -(PtP1 As Point3d, VtV2 As Vector3d) As Point3d + Dim ptP As New Point3d(PtP1.x - VtV2.x, PtP1.y - VtV2.y, PtP1.z - VtV2.z) + Return ptP + End Operator ' Media pesata di due punti (con 0 รจ il primo, con 1 il secondo, con 0.5 il medio, ...) Shared Function Media(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional ByVal dCoeff As Double = 0.5) As Point3d Dim ptMedia As New Point3d((1 - dCoeff) * ptP1.x + dCoeff * ptP2.x, @@ -5432,12 +5437,12 @@ Public Function EgtVerifyMachining(ByVal nId As Integer, ByRef nResult As Intege End Function -Private Function EgtVerifyCutAsSplitting_32(ByVal nId As Integer) As Boolean +Private Function EgtVerifyCutAsSplitting_32(ByVal nId As Integer) As Integer End Function -Private Function EgtVerifyCutAsSplitting_64(ByVal nId As Integer) As Boolean +Private Function EgtVerifyCutAsSplitting_64(ByVal nId As Integer) As Integer End Function -Public Function EgtVerifyCutAsSplitting(ByVal nId As Integer) As Boolean +Public Function EgtVerifyCutAsSplitting(ByVal nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtVerifyCutAsSplitting_32(nId) Else @@ -5568,6 +5573,76 @@ Public Function EgtRemoveMachGroup(ByVal nMGroupId As Integer) As Boolean End If End Function + +Private Function EgtAddPhase_32() As Integer +End Function + +Private Function EgtAddPhase_64() As Integer +End Function +Public Function EgtAddPhase() As Integer + If IntPtr.Size = 4 Then + Return EgtAddPhase_32() + Else + Return EgtAddPhase_64() + End If +End Function + + +Private Function EgtSetCurrPhase_32(ByVal nPhase As Integer) As Boolean +End Function + +Private Function EgtSetCurrPhase_64(ByVal nPhase As Integer) As Boolean +End Function +Public Function EgtSetCurrPhase(ByVal nPhase As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtSetCurrPhase_32(nPhase) + Else + Return EgtSetCurrPhase_64(nPhase) + End If +End Function + + +Private Function EgtGetCurrPhase_32() As Integer +End Function + +Private Function EgtGetCurrPhase_64() As Integer +End Function +Public Function EgtGetCurrPhase() As Integer + If IntPtr.Size = 4 Then + Return EgtGetCurrPhase_32() + Else + Return EgtGetCurrPhase_64() + End If +End Function + + +Private Function EgtRemoveLastPhase_32() As Boolean +End Function + +Private Function EgtRemoveLastPhase_64() As Boolean +End Function +Public Function EgtRemoveLastPhase() As Boolean + If IntPtr.Size = 4 Then + Return EgtRemoveLastPhase_32() + Else + Return EgtRemoveLastPhase_64() + End If +End Function + + +Private Function EgtGetPhaseCount_32() As Integer +End Function + +Private Function EgtGetPhaseCount_64() As Integer +End Function +Public Function EgtGetPhaseCount() As Integer + If IntPtr.Size = 4 Then + Return EgtGetPhaseCount_32() + Else + Return EgtGetPhaseCount_64() + End If +End Function + Private Function EgtGetRawPartCount_32() As Integer End Function @@ -5672,6 +5747,48 @@ Public Function EgtModifyRawPartHeight(ByVal nRawId As Integer, ByVal dHeight As End If End Function + +Private Function EgtKeepRawPart_32(ByVal nRawId As Integer) As Boolean +End Function + +Private Function EgtKeepRawPart_64(ByVal nRawId As Integer) As Boolean +End Function +Public Function EgtKeepRawPart(ByVal nRawId As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtKeepRawPart_32(nRawId) + Else + Return EgtKeepRawPart_64(nRawId) + End If +End Function + + +Private Function EgtVerifyRawPartPhase_32(nRawId As Integer, nPhase As Integer) As Boolean +End Function + +Private Function EgtVerifyRawPartPhase_64(nRawId As Integer, nPhase As Integer) As Boolean +End Function +Public Function EgtVerifyRawPartPhase(nRawId As Integer, nPhase As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtVerifyRawPartPhase_32(nRawId, nPhase) + Else + Return EgtVerifyRawPartPhase_64(nRawId, nPhase) + End If +End Function + + +Private Function EgtRemoveRawPartFromCurrPhase_32(ByVal nRawId As Integer) As Boolean +End Function + +Private Function EgtRemoveRawPartFromCurrPhase_64(ByVal nRawId As Integer) As Boolean +End Function +Public Function EgtRemoveRawPartFromCurrPhase(ByVal nRawId As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtRemoveRawPartFromCurrPhase_32(nRawId) + Else + Return EgtRemoveRawPartFromCurrPhase_64(nRawId) + End If +End Function + Private Function EgtRemoveRawPart_32(ByVal nRawId As Integer) As Boolean End Function @@ -5714,6 +5831,20 @@ Public Function EgtMoveRawPart(ByVal nRawId As Integer, ByRef vtMove As Vector3d End If End Function + +Private Function EgtSplitFlatRawPartWithMachinings_32(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer +End Function + +Private Function EgtSplitFlatRawPartWithMachinings_64(ByVal nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer +End Function +Public Function EgtSplitFlatRawPartWithMachinings(ByVal nRawId As Integer, nMchId() As Integer) As Integer + If IntPtr.Size = 4 Then + Return EgtSplitFlatRawPartWithMachinings_32(nRawId, nMchId.Length(), nMchId) + Else + Return EgtSplitFlatRawPartWithMachinings_64(nRawId, nMchId.Length(), nMchId) + End If +End Function + Private Function EgtGetPartInRawPartCount_32(ByVal nRawId As Integer) As Integer End Function @@ -6558,6 +6689,20 @@ Public Function EgtGetOperationType(ByVal nId As Integer) As Integer End If End Function + +Private Function EgtGetOperationPhase_32(ByVal nId As Integer) As Integer +End Function + +Private Function EgtGetOperationPhase_64(ByVal nId As Integer) As Integer +End Function +Public Function EgtGetOperationPhase(ByVal nId As Integer) As Integer + If IntPtr.Size = 4 Then + Return EgtGetOperationPhase_32(nId) + Else + Return EgtGetOperationPhase_64(nId) + End If +End Function + Private Function EgtRemoveOperation_32(ByVal nId As Integer) As Boolean End Function @@ -6572,6 +6717,20 @@ Public Function EgtRemoveOperation(ByVal nId As Integer) As Boolean End If End Function + +Private Function EgtRemoveAllPhaseOperations_32(ByVal nPhase As Integer) As Boolean +End Function + +Private Function EgtRemoveAllPhaseOperations_64(ByVal nPhase As Integer) As Boolean +End Function +Public Function EgtRemoveAllPhaseOperations(ByVal nPhase As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtRemoveAllPhaseOperations_32(nPhase) + Else + Return EgtRemoveAllPhaseOperations_64(nPhase) + End If +End Function + Private Function EgtRemoveAllOperations_32() As Boolean End Function @@ -6670,6 +6829,34 @@ Public Function EgtSetAllOperationsStatus(ByVal bShow As Boolean) As Boolean End If End Function + +Private Function EgtChangeOperationPhase_32(nId As Integer, nNewPhase As Integer) As Boolean +End Function + +Private Function EgtChangeOperationPhase_64(nId As Integer, nNewPhase As Integer) As Boolean +End Function +Public Function EgtChangeOperationPhase(nId As Integer, nNewPhase As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtChangeOperationPhase_32(nId, nNewPhase) + Else + Return EgtChangeOperationPhase_64(nId, nNewPhase) + End If +End Function + + +Private Function EgtGetPhaseDisposition_32(nPhase As Integer) As Integer +End Function + +Private Function EgtGetPhaseDisposition_64(nPhase As Integer) As Integer +End Function +Public Function EgtGetPhaseDisposition(nPhase As Integer) As Integer + If IntPtr.Size = 4 Then + Return EgtGetPhaseDisposition_32(nPhase) + Else + Return EgtGetPhaseDisposition_64(nPhase) + End If +End Function + ' Machinings Private Function EgtSetCurrMachining_32(ByVal nId As Integer) As Boolean @@ -8568,6 +8755,13 @@ Public Enum FMI_TYPE As Integer RM = 2 LO = 4 End Enum +'Costanti : risultato verifica tagli lama allungati +Public Enum CAR_RES As Integer + INTERF = 0 + LI_OK = 1 + LO_OK = 2 + LI_LO_OK = 1 + 2 +End Enum 'Costanti : posizione di inserimento grezzo su corner Public Enum MCH_CR As Integer TL = 1 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index c310455..f626efa 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: ' - - + +