Method: Expand for CurveExpansionSettings

DIAdem 2018 Help

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

DOWNLOAD (Windows Only)

DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help

Expands the curves in a REPORT layout. To create a layout with curve expansion, you must assign the value True to the properties UseChannelReferenceByName and Enable for CurveExpansionSettings. As soon as you execute Refresh, DIAdem automatically expands the layout for which the curve expansion is enabled.

Object with this method

The following example enables the name-oriented mode with curve expansion and generates a 2D axis system with a curve definition. Then the example expands curves and adds curve markers to the expanded curves. DIAdem displays two curves because the specified channel name occurs in two channel groups:

Dim oMyReportSettings, oMy2DAxisSystem, oMyCurve, oMyPos, oMyShape, oMyExpandedCurve
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "TR_M17_QT_32-1.tdm","TDM","")
Call Report.NewLayout()
Set oMyReportSettings = Report.Settings
oMyReportSettings.CurveExpansion.Enable = True
oMyReportSettings.CurveExpansion.AttributeList.Enable = True
oMyReportSettings.UseChannelReferenceByName = True

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(e2DShapeLine, "MyCurve")
Set oMyShape = oMyCurve.Shape
oMyShape.Settings.UseCurveExpansion = True
oMyShape.XChannel.Reference = "" 
oMyShape.YChannel.Reference = "Temp_A"

Call Report.Settings.CurveExpansion.Expand()
Call MsgBox ("Number of expanded curves: " & oMy2DAxisSystem.Curves2D.Count)
For Each oMyExpandedCurve in oMy2DAxisSystem.Curves2D
  oMyExpandedCurve.Shape.Extensions.Marker.Type = eMarkerCircle
Call Report.Refresh()



Not Helpful