diff --git a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
index 96af68f..1b3cd44 100644
--- a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
+++ b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
@@ -901,6 +901,10 @@ Namespace CNC
'''
Public PosAct As Single
'''
+ ''' posizione Target asse
+ '''
+ Public PosTgt As Single
+ '''
''' Velocità asse
'''
Public Speed As Single
@@ -936,6 +940,7 @@ Namespace CNC
Public tabVitaRes As UShort()
End Structure
+
'''
''' Restituisce tutti i dati assi insieme
'''
@@ -944,10 +949,11 @@ Namespace CNC
' RIFERIMENTO:
' txt Giuseppe
- ReDim itemRead(2)
+ ReDim itemRead(3)
itemRead(0) = New Item("DB241.DBD0:[16]") 'Posizione attuale
itemRead(1) = New Item("DB254.DBW140:[20]") 'Speed effettiva
itemRead(2) = New Item("DB254.DBB180:[20]") 'Carico effettivo
+ itemRead(3) = New Item("DB241.DBD0:[16]") 'Posizione Target !!!FARE!!! è altra variabile?!? AA_IM
Do
Try
@@ -962,18 +968,19 @@ Namespace CNC
Dim datiAssi(19) As AxData
- ' faccio copia valori! ...posizione
+ ' faccio copia valori!
For i As Integer = 0 To 15
'datiAssi(i).PosAct = itemRead(0).Value(i)
datiAssi(i).PosAct = UIntegerToSingle(itemRead(0).Value(i))
Next i
For i As Integer = 0 To 19
- datiAssi(i).Speed = itemRead(1).Value(i)
- 'datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i))
+ datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i))
Next i
For i As Integer = 0 To 19
- datiAssi(i).Load = itemRead(2).Value(i)
- 'datiAssi(i).Load = UIntegerToSingle(itemRead(2).Value(i))
+ datiAssi(i).Load = UIntegerToSingle(itemRead(2).Value(i))
+ Next i
+ For i As Integer = 0 To 15
+ datiAssi(i).PosTgt = UIntegerToSingle(itemRead(3).Value(i))
Next i
Return datiAssi
diff --git a/MTC_Adapter/MTC_Adapter/App.config b/MTC_Adapter/MTC_Adapter/App.config
index 41500fe..d79fdc7 100644
--- a/MTC_Adapter/MTC_Adapter/App.config
+++ b/MTC_Adapter/MTC_Adapter/App.config
@@ -1,7 +1,7 @@
-
+