Object: CurveExpansionLine
- Updated2024-09-12
- 2 minute(s) read
(AttributeList | Collections) > ExpansionLineStyles > ExpansionLineStyle > Object: CurveExpansionLine
Object: CurveExpansionLine
The CurveExpansionLine object provides the line 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:
| VBScript | Python |
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 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()