TestEIn 1.6n6 :

- aggiornamento.
2016-02-17 15:14:14 +00:00
parent ef882cc105
commit 64831f2b4f
2 changed files with 199 additions and 5 deletions
@@ -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

 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtVerifyCutAsSplitting")>
-Private Function EgtVerifyCutAsSplitting_32(ByVal nId As Integer) As Boolean
+Private Function EgtVerifyCutAsSplitting_32(ByVal nId As Integer) As Integer
 End Function
 <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtVerifyCutAsSplitting")>
-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

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtAddPhase")>
+Private Function EgtAddPhase_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtAddPhase")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrPhase")>
+Private Function EgtSetCurrPhase_32(ByVal nPhase As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrPhase")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCurrPhase")>
+Private Function EgtGetCurrPhase_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCurrPhase")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveLastPhase")>
+Private Function EgtRemoveLastPhase_32() As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveLastPhase")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPhaseCount")>
+Private Function EgtGetPhaseCount_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPhaseCount")>
+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
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetRawPartCount")>
 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

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtKeepRawPart")>
+Private Function EgtKeepRawPart_32(ByVal nRawId As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtKeepRawPart")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtVerifyRawPartPhase")>
+Private Function EgtVerifyRawPartPhase_32(nRawId As Integer, nPhase As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtVerifyRawPartPhase")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveRawPartFromCurrPhase")>
+Private Function EgtRemoveRawPartFromCurrPhase_32(ByVal nRawId As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveRawPartFromCurrPhase")>
+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
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveRawPart")>
 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

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSplitFlatRawPartWithMachinings")>
+Private Function EgtSplitFlatRawPartWithMachinings_32(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSplitFlatRawPartWithMachinings")>
+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
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPartInRawPartCount")>
 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

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetOperationPhase")>
+Private Function EgtGetOperationPhase_32(ByVal nId As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetOperationPhase")>
+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
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveOperation")>
 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

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveAllPhaseOperations")>
+Private Function EgtRemoveAllPhaseOperations_32(ByVal nPhase As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveAllPhaseOperations")>
+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
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveAllOperations")>
 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

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtChangeOperationPhase")>
+Private Function EgtChangeOperationPhase_32(nId As Integer, nNewPhase As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtChangeOperationPhase")>
+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
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPhaseDisposition")>
+Private Function EgtGetPhaseDisposition_32(nPhase As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPhaseDisposition")>
+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
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrMachining")>
 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
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.6.14.2")> 
-<Assembly: AssemblyFileVersion("1.6.14.2")> 
+<Assembly: AssemblyVersion("1.6.14.6")> 
+<Assembly: AssemblyFileVersion("1.6.14.6")>