Property: ErrorBars for 2DLineAndPointsExtensions

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Returns an error bar for the curve type Line and points in a 2D axis system in DIAdem REPORT.

Set o2DAdditionalErrorBars = Object.ErrorBars
Object2DLineAndPointsExtensions
Object with this property
o2DAdditionalErrorBars2DAdditionalErrorBars
Returned object

The following example generates a 2D axis system with a curve and assigns an error bar to either side of this curve:

Dim oMy2DAxisSystem, oMyPos, oMyCurve, oMyErrorBars, oMyErrorBarsLine, oMyMarker
Call Report.NewLayout()
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","")
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 oMyCurve = oMy2DAxisSystem.Curves2D.Add(e2DShapeLineAndPoints, "MyCurve")
oMyCurve.Shape.XChannel.Reference = "[6]/[1]" 
oMyCurve.Shape.YChannel.Reference = "[6]/[2]" 
Set oMyErrorBars = oMyCurve.Shape.Extensions.ErrorBars
oMyErrorBars.YErrorBar.Type = eErrorbarPositiveAndNegative
oMyErrorBars.YErrorBar.ErrorType = eErrorbarErrorTypeAbsoluteError 
oMyErrorBars.YErrorBar.AbsoluteErrorValue = 2
oMyErrorBars.EndCap.Type = eErrorbarDisplaySpike
Set oMyErrorBarsLine = oMyErrorBars.Line
oMyErrorBarsLine.LineType = eLineTypeSolid
oMyErrorBarsLine.UseCurveColor = False
Call oMyErrorBarsLine.Color.SetPredefinedColor(ePredefinedColorTurquoise)
Set oMyMarker = oMyCurve.Shape.Extensions.Marker
oMyMarker.Type = eMarkerCircle
oMyMarker.Size = 3
oMyMarker.Repetition.Mode = eMarkerRepetitionMaximalNPoints 
oMyMarker.Repetition.NValue = 20
Call Report.Refresh()

WAS THIS ARTICLE HELPFUL?

Not Helpful