2.5.24 Type


Description

Column destination type sunch as X, Y, Z

Syntax

VB: Property Get/Let Type As COLTYPES
C++: COLTYPES Type
C#: COLTYPES Type

Remark

Examples

VBA

Connect to the running Origin. Set the properties of Column(0), and then send data to this column. You can see the result in Origin. Then, get the properties from Origin, and output them to Excel sheet.

Public Sub Setting()
    Dim app As Origin.ApplicationSI
    Dim Wks As Origin.Worksheet
    Dim Data(1 To 100) As Double
    Dim ii As Integer
    For ii = 1 To 100
        Data(ii) = ii * 0.375 + 274
    Next
 
    Set app = New Origin.ApplicationSI
    Set Wks = app.FindWorksheet("")
 
    'Set the ShortName of the column
    Wks.Columns(0).Name = "CH1"
    'Set the Type of the column
    Wks.Columns(0).Type = COLTYPE_Y
    'Set the LongName of the column
    Wks.Columns(0).LongName = "Temperature"
    'Set the Units of the column
    Wks.Columns(0).Units = "C Degree"
    'Set the Comments of the column
    Wks.Columns(0).Comments = "example"
 
    'Send data to the column
    Wks.Columns(0).SetData (Data)
    
    'Get the properties of the column, and output them to Excel sheet
    Range("A1") = Wks.Columns(0).Name
    Range("A2") = Wks.Columns(0).Type
    Range("A3") = Wks.Columns(0).LongName
    Range("A4") = Wks.Columns(0).Units
    Range("A5") = Wks.Columns(0).Comments
 
End Sub

C#

Using Origin;
static void Setting()
{
    double[] Data = new double[100];
    for (int ii = 0; ii < 100; ii++)
    {
        Data[ii] = ii * 0.12 + 3.75;
    }

    Origin.ApplicationSI app = new Origin.ApplicationSI();
    Worksheet wks = app.FindWorksheet("");

    //Set the ShortName of the column
    wks.Columns[0].Name = "CH1";
    //Set the Type of the column
    wks.Columns[0].Type = COLTYPES.COLTYPE_Y;
    //Set the LongName of the column
    wks.Columns[0].LongName = "Temperature";
    //Set the Units of the column
    wks.Columns[0].Units = "C Degree";
    //Set the Comments of the column
    wks.Columns[0].Comments = "example";

    //Send data to the column
    wks.Columns[0].SetData(Data, 0);

    //Get the properties of the column, and output them to console
    Console.WriteLine(wks.Columns[0].Name + "\n"
                    + wks.Columns[0].Type + "\n" 
                    + wks.Columns[0].LongName + "\n" 
                    + wks.Columns[0].Units + "\n" 
                    + wks.Columns[0].Comments + "\n");

    Console.ReadLine();

}

Version Information

8.0SR2

See Also

SetData | Name | LongName | Units | Comments | Worksheet.Labels | Worksheet.LabelVisible