Object: ExpansionLineStyle

DIAdem 2018 Help


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

DOWNLOAD (Windows Only)


DIAdem 2012 Help
DIAdem 2014 Help
DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help

The ExpansionLineStyle object provides the line and marker properties of an expanding curve in DIAdem REPORT.

The following example enables the name-oriented mode with curve expansion and generates a 2D axis system with a curve definition. DIAdem plots two curves because the channel name of the loaded data set is located in two channel groups:

Dim oMyReportSettings, oMyCurveExpansion, oMyAttributeList, oMyExpansionLineStyle, I
Dim oMy2DAxisSystem, oMyCurve, oMyPos, oMyShape
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "TR_M17_QT_32-1.tdm","TDM","")
Call Report.NewLayout()
Set oMyReportSettings = Report.Settings
oMyReportSettings.UseChannelReferenceByName = True
Set oMyCurveExpansion = oMyReportSettings.CurveExpansion
oMyCurveExpansion.Enable = True
Set oMyAttributeList = oMyCurveExpansion.AttributeList
oMyAttributeList.Enable = True
Set oMyExpansionLineStyle = oMyAttributeList.LineStyles
oMyAttributeList.UseLineInterval = True
oMyAttributeList.UseLineType = True
oMyAttributeList.UseLineWidth = True
oMyAttributeList.UseMarkerProperties = True
oMyAttributeList.UseMarkerType = True
For I = 1 To oMyExpansionLineStyle.Count
  oMyExpansionLineStyle(I).Line.Width = eLineWidth0070
  oMyExpansionLineStyle(I).Line.LineType = eLineTypeDashDot
  oMyExpansionLineStyle(I).Line.Interval = 5
  oMyExpansionLineStyle(I).Marker.Size = 3
  oMyExpansionLineStyle(I).Marker.Type = eMarkerCircle
  oMyExpansionLineStyle(I).Marker.RepetitionMode = eMarkerRepetitionMaximalNPoints
  oMyExpansionLineStyle(I).Marker.MarkerPointCount = 20
Next

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()

Properties

Line | Marker

WAS THIS ARTICLE HELPFUL?

Not Helpful