Method: Collapse 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

Deletes the expanded curves of a REPORT layout to make changes to the expanded curves. DIAdem expands the curves of a layout with curve expansion when you call the Refresh method or the Expand method. To create a layout with curve expansion, you must assign the value True to the properties UseChannelReferenceByName and Enable for CurveExpansionSettings.

Object.Collapse
ObjectCurveExpansionSettings
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 displays this axis system. DIAdem displays two curves because the specified channel name occurs in two channel groups of the loaded data set. Then the example deletes the expanded curves, generates them again, and adds curve markers:

 

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.Refresh
Call MsgBox ("Before collapse, number of expanded curves: " & oMy2DAxisSystem.Curves2D.Count)
Call Report.Settings.CurveExpansion.Collapse()
Call MsgBox ("After collapse, number of expanded curves: " & oMy2DAxisSystem.Curves2D.Count)
For Each oMyExpandedCurve in oMy2DAxisSystem.Curves2D
  oMyExpandedCurve.Shape.Extensions.Marker.Type = eMarkerCircle
Next
Call Report.Refresh()

WAS THIS ARTICLE HELPFUL?

Not Helpful