Property: Mode 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

Specifies in which order DIAdem REPORT expands channels in a 2D axis system. If you assign the value eCurveExpansionModeSortByGroups to the Mode property, DIAdem REPORT first plots all original curves and then the expanded curves. If you assign the value eCurveExpansionModeSortByChannels to the Mode variable, DIAdem first plots the first curve and the associated expanded curves and the other curves in the same order.

Object with this property
Object.ModeEnumeration with read and write access and the following selection terms:
0eCurveExpansionModeSortByGroupsAfter curve list
1eCurveExpansionModeSortByChannelsAfter y-channel name

The following example enables the Name-oriented mode with curve expansion and generates a 2D axis system with two curves. Because the channel names occur multiple times, DIAdem plots two curves:

Dim oMyReportSettings, oMy2DAxisSystem, oMyCurve1, oMyCurve2, oMyPos, oMyShape1, oMyShape2
Call Report.NewLayout()
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "TR_M17_QT_32-1.tdm","TDM","")
Set oMyReportSettings = Report.Settings
oMyReportSettings.CurveExpansion.Enable = True
oMyReportSettings.CurveExpansion.AttributeList.Enable = True
oMyReportSettings.UseChannelReferenceByName = True
oMyReportSettings.CurveExpansion.Mode = eCurveExpansionModeSortByGroups

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 oMyCurve1 = oMy2DAxisSystem.Curves2D.Add(e2DShapeOutlineBars, "MyCurve1")
Set oMyShape1 = oMyCurve1.Shape
Call oMyShape1.Settings.FillEffects.Color.SetPredefinedColor(ePredefinedColorYellow)
oMyShape1.Settings.UseCurveExpansion = True
oMyShape1.XChannel.Reference = "" 
oMyShape1.YChannel.Reference = "Temp_A"
Set oMyCurve2 = oMy2DAxisSystem.Curves2D.Add(e2DShapeOutlineBars, "MyCurve2")
Set oMyShape2 = oMyCurve2.Shape
Call oMyShape2.Settings.FillEffects.Color.SetPredefinedColor(ePredefinedColorRed)
oMyShape2.Settings.UseCurveExpansion = True
oMyShape2.XChannel.Reference = "" 
oMyShape2.YChannel.Reference = "Temp_B"
Call Report.Refresh()


Not Helpful