DIAdemヘルプ

目次

MathScriptを作成

PDFをダウンロード
選択したセクション選択したセクションとサブセクションマニュアル全体
  • 更新日2023-04-06
  • 11分で読める

DIAdem ANALYSIS > MathScriptを作成

MathScript関数をLabVIEWからDIAdem ANALYSISに統合するにはMathScriptを使用します。MathScriptを実行するには、LabVIEW バージョン 8.0以降がMathScriptオプションとともにコンピュータにインストールされていなければなりません。

DIAdem 2015から、MathScriptはDIAdem ANALYSISメニューで使用できなくなりました。MathScriptファイルCalculate3DSpiralがCommonDocumentsPathフォルダで使用するDIAdem ANALYSISでサブメニュー実行および編集を含むメニュー項目MathScriptを作成するには、以下のスクリプトをDIAdem SCRIPTで実行します。

VBScriptPython

 

スクリプトをコピー

Dim ProjectPath: ProjectPath = CommonDocumentsPath & "Documents\"
const ProjectFile = "Calculate3DSpiral"    ' MSC file name without filename extension
const ProjectName = "MyProject"
'-------------------------------------------------------------------------------
function CreateMathScriptMenu(sgID, sgCaption, oParentBar)
  ' Create ActionObject for menu bar
  dim oActObj  
  if (BarManager.ActionObjs.Exists(sgID)) then
    set oActObj = BarManager.ActionObjs(sgID)
  else
    set oActObj = BarManager.ActionObjs.Add(sgID, "CustomPopup")
    oActObj.BarID = sgID
    oActObj.Caption = sgCaption
  end if
  if not (oParentBar.UsedActionObjs.Exists(sgID)) then
    call oParentBar.UsedActionObjs.Add(sgID)
  end if
  
  ' Create menu bar
  dim oBar
  if (BarManager.Bars.Exists(sgID)) then
    set oBar = BarManager.Bars(sgID)
  else
    set oBar = BarManager.Bars.Add(sgID)
    oBar.Style = eBarStyleIconCaption
    oBar.ActionObjPictureWidth = 16
    oBar.ActionObjPictureHeight = 16
  end if
  
  set CreateMathScriptMenu = oBar
end function

'-------------------------------------------------------------------------------
function CreateProjectMenuItem(sgID, sgCaption, oBar) 
  dim oActObj
  if (BarManager.ActionObjs.Exists(sgID)) then
    set oActObj = BarManager.ActionObjs(sgID)
  else
    set oActObj = BarManager.ActionObjs.Add(sgID, "CustomButton")
    oActObj.Caption = sgCaption
  end if
  if (not oBar.UsedActionObjs.Exists(oActObj)) then
    call oBar.UsedActionObjs.Add(oActObj)
  end if
  set CreateProjectMenuItem = oActObj
end function

'-------------------------------------------------------------------------------
' Main
'-------------------------------------------------------------------------------

dim oMenuItem, oMathScriptBar, oProjectBar

' Create MathScript menu bar
set oMathScriptBar = CreateMathScriptMenu("MyMathScriptMenu", "MathScript", BarManager.Bars("ANAMenuMain"))

' Create menu bar for MathScript Project1
set oProjectBar = CreateMathScriptMenu("MyMathScriptProject1Menu", ProjectName, oMathScriptBar)

' Create menu item "Run" for MathScript Project1
set oMenuItem = CreateProjectMenuItem(ProjectName & "Run", "Run", oProjectBar)
oMenuItem.OnClickCode.Code = "call GetMathScript.RunMathScript(""" & ProjectPath & """,""" & ProjectFile & """)"
' Create menu item "Edit" for MathScript Project1
set oMenuItem = CreateProjectMenuItem(ProjectName & "Edit", "Edit", oProjectBar)
oMenuItem.OnClickCode.Code = "call GetMathScript.EditMathScript(""" & ProjectPath & """,""" & ProjectFile & """)"

追加設定

MathScriptメニューを作成 | MathScriptの定義 | MathScriptを実行

前へ

前のセクションはありません

次へ

次のセクションはありません

前へ

前のセクションはありません

次へ

次のセクションはありません