Egalware/CMS-MTConn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ok completata lettura dei codifi G del PRIMO path (ora da implementare multi path...)

Browse Source
This commit is contained in:
Samuele E. Locatelli
2017-06-29 14:46:25 +02:00
parent c7377f38f2
commit d7b55ef336
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
+4 -8
View File
@@ -1069,12 +1069,8 @@ Namespace CNC
' RIFERIMENTO:
' txt Giuseppe
ReDim itemRead(1)
itemRead(0) = New Item("/Channel/SelectedFunctions/ncFktAct[u1,1]") ' leggo primo proc...
itemRead(1) = New Item("/Channel/SelectedFunctions/ncFktAct[u1,2]") ' leggo primo proc...
'itemRead(3) = New Item("DB253.DBW100:[" & numVal & "]") 'tabFamUt
'itemRead(4) = New Item("DB253.DBB1900:[" & numVal & "]") 'tabTipoVitaRes
'itemRead(5) = New Item("DB253.DBD4300:[" & numVal & "]") 'tabVitaRes
ReDim itemRead(0)
itemRead(0) = New Item("/Channel/SelectedFunctions/ncFktAct[u1,1,#64]") ' leggo TUTTI i 64 gruppi...
Do
Try
@@ -1088,8 +1084,8 @@ Namespace CNC
Loop
' faccio copia valori!
For i As Integer = 0 To itemRead.Length - 1
GCodeCurr(i) = itemRead(i).Value
For i As Integer = 0 To 63
GCodeCurr(i) = itemRead(0).Value(i)
Next i
' chiudo!