SIEMENS: recuperato feed x tutti gli assi...

singolarmente

MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb

@@ -929,6 +929,10 @@ Namespace CNC
             ''' Velocità asse
             ''' </summary>
             Public Speed As Single
+            ''' <summary>
+            ''' Feed asse
+            ''' </summary>
+            Public Feed As Single
 
         End Structure
         ''' <summary>
@@ -970,12 +974,19 @@ Namespace CNC
             ' RIFERIMENTO: 
             ' txt Giuseppe
 
-            ReDim itemRead(3)
+            ReDim itemRead(4)
             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("/Channel/MachineAxis/toolBaseDistToGo[u1,1, 16]")
             'itemRead(3) = New Item("DB241.DBD0:[16]")   'Posizione Target !!!FARE!!! è altra variabile?!? AA_IM
+            itemRead(4) = New Item("/Channel/MachineAxis/actFeedRate[u1, 1, 16]") 'legge la feed... da salvare in valore assolulto...
+
+            '/Channel/MachineAxis/actFeedRate[u1, 3] 
+            '/ChannelState/actFeedRateIpo[u1,1,16]
+            '/ChannelState/cmdFeedRateIpo[u1] ??
+            '/ChannelState/actFeedRateIpo[u1] ??
+            '/ChannelState/actFeedRateTechIpo[u1] ??
 
             Do
                 Try
@@ -995,6 +1006,7 @@ Namespace CNC
                 'datiAssi(i).PosAct = itemRead(0).Value(i)
                 datiAssi(i).PosAct = UIntegerToSingle(itemRead(0).Value(i))
                 datiAssi(i).PosTgt = Convert.ToSingle(itemRead(3).Value(i))
+                datiAssi(i).Feed = Math.Abs(Convert.ToSingle(itemRead(4).Value(i)))
             Next i
             For i As Integer = 0 To 19
                 datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i))