Send a 2D array to an Origin Matrix Object.
VB: Function SetData(data As ByVal Object, [ nRowOffset As ByVal Object ], [ nColOffset As ByVal Object ] ) As Boolean
C++: bool SetData(_variant_t data, _variant_t nRowOffset, _variant_t nColOffset )
C#: bool SetData(var data, var nRowOffset, var nColOffset )
to send 2D array of double to active matrix object
Const NumRows = 10
Const numCols = 15
Dim org As Origin.Application
Dim app As Origin.Application
Dim msht As Origin.MatrixSheet
Dim mo As Origin.MatrixObject
Set app = New Origin.ApplicationSI
Set msht = app.FindMatrixSheet("")
If msht Is Nothing Then
MsgBox "No active matrix book found"
Exit Sub
End If
Set mo = msht.MatrixObjects(0)
Dim nn As Boolean
Dim ii, jj As Integer
Dim dd(1 To NumRows, 1 To numCols) As Double
'-------- prepare sample data array ------------
For ii = 1 To NumRows
For jj = 1 To numCols
dd(ii, jj) = ii * 10 + jj * 0.03
Next jj
Next ii
'---------Prepare the Matrix Object---------------
mo.DataFormat = DF_DOUBLE
msht.Cols = numCols
msht.Rows = NumRows
'--------- now we call SetData --------------
nn = mo.SetData(dd, 0, 0)
8.0SR2