MathCad API + C# Заполнение матрицы
Добавлено: Чт дек 19, 2013 11:42 pm
Уважаемые, форумчане. Подскажите, пожалуйста, кто знает, как передать из программы в переменную маткад-файла матрицу. Уже 5 день мучаюсь, не могу найти нужную информацию. В бейсике делают так:
Dim mcdObject As New Object
Dim mcdPointsMatrix As Mathcad.MatrixValue
Dim mcdMatrixNew As Mathcad.MatrixValue
//создают COM объект. как на C# эту строку написать?!
mcdMatrixNew = CType(Interaction.CreateObject("Mathcad.MatrixValue"), Mathcad.MatrixValue)
Try
mcdPointsMatrix = CType(mcdWorkSheet.GetValue("Points"), Mathcad.MatrixValue)
bMatrixExists = True
Catch ex As Exception
bMatrixExists = False
end Try
For i As Integer = 600 - 1 To 0 Step -1
For j As Integer = 18 To 0 Step -1
If bMatrixExists = False Then
mcdMatrixNew.SetElement(i, j, 1)
Else
mcdPointsMatrix.SetElement(i, j, 1)
End If
Next
Next
If bMatrixExists = False Then
//передают матрицу переменной Points
mcdWorkSheet.SetValue("Points", mcdMatrixNew)
Else
mcdWorkSheet.SetValue("Points", mcdPointsMatrix)
End If
Dim mcdObject As New Object
Dim mcdPointsMatrix As Mathcad.MatrixValue
Dim mcdMatrixNew As Mathcad.MatrixValue
//создают COM объект. как на C# эту строку написать?!
mcdMatrixNew = CType(Interaction.CreateObject("Mathcad.MatrixValue"), Mathcad.MatrixValue)
Try
mcdPointsMatrix = CType(mcdWorkSheet.GetValue("Points"), Mathcad.MatrixValue)
bMatrixExists = True
Catch ex As Exception
bMatrixExists = False
end Try
For i As Integer = 600 - 1 To 0 Step -1
For j As Integer = 18 To 0 Step -1
If bMatrixExists = False Then
mcdMatrixNew.SetElement(i, j, 1)
Else
mcdPointsMatrix.SetElement(i, j, 1)
End If
Next
Next
If bMatrixExists = False Then
//передают матрицу переменной Points
mcdWorkSheet.SetValue("Points", mcdMatrixNew)
Else
mcdWorkSheet.SetValue("Points", mcdPointsMatrix)
End If