ヒューリンクステクニカルサポート

SigmaPlot 製品ページ

更新日： 16/01/29

Tuple オブジェクト

Tuple は、曲線、データポイント、バーの系列としてプロットに表示される列や列の対をあらわすオブジェクトです。いずれのプロットも単一または複数の Tuples コレクションで構成されます。Tuple オブジェクトには ObjectType プロパティが用意されており、その値は 9 または GPT_TUPLE になります。

Tuple オブジェクトを使用する

Tuple オブジェクトは、Tuples GraphObjects コレクションから取得します。 Tuple オブジェクトでは、GraphObject の一般的なプロパティはほとんど引き継がれていません。Tuple のプロパティを取得したり変更する場合は、SetAttribute や GetAttribute メソッドを使用し、それぞれの属性を指定するには、Tuple 属性の定数を使います。

Examples

• 現在開いているページにある最初の Tuple の列番号と、1行目、および、最終行を表示します。

  Dim PlottedCurves, Tuple1, Tuple1Col, Tuple1First, Tuple1Last
  Set PlottedCurves = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots(0).ChildObjects
  Set Tuple1 = PlottedCurves(0)
  Tuple1Col = CStr(Tuple1.GetAttribute(SNA_DATACOL,Tuple1Col)+1)
  Tuple1First = CStr(Tuple1.GetAttribute(SNA_FIRSTROW,Tuple1First)+1)
  Tuple1Last = CStr(Tuple1.GetAttribute(SNA_LASTROW,Tuple1Last)+1)
  MsgBox "Column " + Tuple1Col + " from " + Tuple1First + " to " + Tuple1Last, ,"First Tuple Data"
  

• 以下のサンプルは、全ての Tuple とプロットされたそれぞれの列をダイアログに一覧表示するものです。

  Dim PlottedCurves
  Set PlottedCurves = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots(0).ChildObjects
  Dim NumberCurves
  NumberCurves = PlottedCurves.Count
  Dim Curves$(), Xcol, YCol, Index
  ReDim Curves$(NumberCurves)
  Index = 0
  Do While NumberCurves > 0
  PlottedCurves(Index).SetAttribute(SNA_SELECTDIM,DIM_X)
  Xcol = PlottedCurves(Index).GetAttribute(SNA_DATACOL,Xcol)
  PlottedCurves(Index).SetAttribute(SNA_SELECTDIM,DIM_Y)
  Ycol = PlottedCurves(Index).GetAttribute(SNA_DATACOL,Ycol)
  Curves$(Index) = "Curve " + (Index+1) + "- x: " + CStr(Xcol+1) + ", y: " + CStr(Ycol+1)
  NumberCurves = NumberCurves - 1
  Index = Index + 1
  Loop
  Dim SPGraphName, SPPlotName
  SPGraphName = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Name
  SPPlotName = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots(0).Name
  Begin Dialog UserDialog 390,154,"Tuples List" ' %GRID:10,7,1,1
  OKButton 290,7,90,21
  ListBox 10,22,270,126,Curves(),.ListBox1
  Text 10,7,270,14,"Columns Plotted for " + SPGraphName + ", " + SPPlotName,.Text1
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg