外部アプリケーションから

From-an-External-Application

外部のアプリケーションはOriginをCOM サーバにしてデータのやり取りができます。OriginのCOMオブジェクトは、他のアプリケーションと接続するためのさまざまなプロパティとメソッドを公開しています。完全に制御するため、OriginにはLabTalkから呼び出して実行できるXファンクションおよびOrigin C関数を含み、LabTalkで利用できるExecuteメソッドがあります。 このサンプルでは、Visual Basicのシンタックスを使って、Originを開始し、いくつかのデータをインポートし、ガウスフィットして、ピークの中心を出力します。

    ' Start Origin
    Dim oa
    Set oa = GetObject("", "Origin.Application")
    'oa.Execute ("doc -m 1") ' Uncomment if you want to see Origin
    Dim strCmd, strVar As String
    Dim dVar As Double

    ' Wait for Origin to finish startup compile
    ' (30 seconds is specified here, 
    '  but function may return in less than 1 second)
    oa.Execute ("sec -poc 30")
    
    'Project is empty so create a workbook and import some data
    oa.Execute ("newbook")
    strVar = oa.LTStr("SYSTEM.PATH.PROGRAM$") + _
             "Samples\Curve Fitting\Gaussian.DAT"
    oa.Execute ("string fname") ' Declare string in Origin
    oa.LTStr("fname$") = strVar ' Set its value
    oa.Execute ("impasc")       ' Import

    ' Do a nonlinear fit (Gauss)
    strCmd = "nlbegin 2 Gauss;nlfit;nlend;"
    oa.Execute (strCmd)
    ' Get peak center
    dVar = oa.LTVar("nlt.xc")
    strVar = "Peak Center at " + CStr(dVar)
    bRet = MsgBox(strVar, vbOKOnly, "Gauss Fit")

    oa.Exit
    Set oa = Nothing
    End

Samples\COM Server and Client フォルダには、COMクライアントアプリケーションの詳細なサンプルがあります。