Follow the steps below to manually generate a graph from example data, and then add a constant line to the graph:
1. Go to your REPORT tab and select New Layout from the toolbar.
2. Add a 2D Axis System with Line to the report by clicking the 2D Line Graph icon > Lines, then clicking on the 2D Axis System with Line, then dragging your cursor into the report window.
3. Open the Data Portal and select the data you would like to plot. for this example we selected Noise_1 from DIAdem's example data. Drag this data into the 2D Axis Plot.
4. To add a line or curve, double-click the 2D Axis Plot.
5. Select New Entry
6. To generate a constant line, select Constant from the left hand menu, and type the desired value into the field labeled Y-constant. Click OK until you are back at the main graph.
8. You can now view the constant line on your graph.
The below VBSCript will programmatically generate a graph from example data, and then add constant lines to the graph:
'This section of the code creates the Plot
Dim oMy2DAxisSystem, oMyPos, oMy2DCurve, oMy2DConstY,oMy2DConstX
Call Report.NewLayout()
Set oMy2DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem, "My2DAxisSystem")
Set oMyPos = oMy2DAxisSystem.Position.ByCoordinate
oMyPos.X1 = 20
oMyPos.X2 = 80
oMyPos.Y1 = 20
oMyPos.Y2 = 80
Set oMy2DCurve = oMy2DaxisSystem.Curves2D.Add(e2DShapeLine, "MyNew2DCurve")
oMy2DCurve.Shape.XChannel.Reference = "EXAMPLE/Time"
oMy2DCurve.Shape.YChannel.Reference = "EXAMPLE/Speed"
Call Report.Refresh()
'This section of the code creates a new constant curve, which is parallel with the X axis
Set oMy2DConstY = oMy2DaxisSystem.Curves2D.Add(e2DShapeConstant, "MyNew2DConstantY")
oMy2DConstY.Shape.XConstant.Reference = NOVALUE
oMy2DConstY.Shape.YConstant.Reference = 32
Call oMy2DConstY.Shape.Settings.Line.Color.SetPredefinedColor(eColorIndexGreen)
Call Report.Refresh()
'This section of the code creates a new constant curve, which is parallel with the Y axis
Set oMy2DConstX = oMy2DaxisSystem.Curves2D.Add(e2DShapeConstant, "MyNew2DConstantX")
oMy2DConstX.Shape.XConstant.Reference = 30
oMy2DConstX.Shape.YConstant.Reference = NOVALUE
Call oMy2DConstX.Shape.Settings.Line.Color.SetPredefinedColor(eColorIndexRed)
Call Report.Refresh()