TrackBufferRead

用例

トラッキングバッファに保存されているデータのインデックス番号の1次配列を取得

Dim vIndex as Variant
vIndex = TrackBufferIndexes(1)

1次配列からインデックス番号を一つずつ取り出して、該当インデックスの全データを参照・出力する。

Dim idx as long
For idx = LBound(vIndex) To UBound(vIndex)
  Dim vVal as Variant  
  vVal = TrackBufferRead( 1, vIndex(idx) ,-2)

  PrintDbg "enc=" & vVal(0), _
             "x=" & vVal(1), _
             "y=" & vVal(2), _
             "z=" & vVal(3), _
            "rx=" & vVal(4), _
            "ry=" & vVal(5), _
            "rz=" & vVal(6), _
           "usr=" & vVal(7), _
            "vx=" & vVal(8), _
            "vy=" & vVal(9), _
            "θ=" & vVal(10), _
          "attr=" & vVal(11)
Next

1次配列からインデックス番号を一つずつ取り出して、該当インデックスのユーザデータのみを参照・出力する。

Dim idx as long
For idx = LBound(vIndex) To UBound(vIndex)
  Dim vVal as Variant  
  vVal = TrackBufferRead( 1, vIndex(idx), 7 )
  PrintDbg "usr=" & vVal
Next

1次配列からインデックス番号を一つずつ取り出して、該当インデックスの属性データのみを参照・出力する。

Dim idx as long
For idx = LBound(vIndex) To UBound(vIndex)
  Dim vVal as Variant  
  vVal = TrackBufferRead( 1, vIndex(idx), 11 )
  PrintDbg "attr=" & vVal
Next

インデックス番号が5のワークが下流限界に到達するまでの残り時間を取得

I[0] = TrackBufferRead(1, 5, 12)

指定したワークの下流限界までの距離を取得

Dim restLength As Float
restLength = TrackBufferRead (1, -1, 13)