Object: 2DConstantExtensions
- Updated2024-09-12
- 1 minute(s) read
(2DAxisSystem | Collections) > 2DCurves > 2DCurve > 2DConstant > Object: 2DConstantExtensions
Object: 2DConstantExtensions
The 2DConstantExtensions object provides the properties of the extended curve parameters of a 2D axis system in the Constant display mode in DIAdem REPORT.
The following example generates an axis system with a curve and an x-constant and a y-constant. Then the example specifies the curve end labels:
| VBScript | Python |
Dim oMy2DAxisSystem, oMyCurveLine, oMyCurveConst, oMyPos, oMyConstLabel Call Report.NewLayout() 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 oMyCurveLine = oMy2DAxisSystem.Curves2D.Add(e2DShapeLine, "MyCurve") oMyCurveLine.Shape.XChannel.Reference = "[1]/[1]" oMyCurveLine.Shape.YChannel.Reference = "[1]/[2]" Set oMyCurveConst = oMy2DAxisSystem.Curves2D.Add(e2DShapeConstant, "MyConstant") oMyCurveConst.Shape.XConstant.Reference = 10 oMyCurveConst.Shape.YConstant.Reference = 20 Set oMyConstLabel = oMyCurveConst.Shape.Extensions.ConstantLabel oMyConstLabel.Type = e2DLabelValue oMyConstLabel.UseLineColor = False oMyConstLabel.UseXPositionOffset = True oMyConstLabel.UseYPositionOffset = True oMyConstLabel.XPositionOffset = 5 oMyConstLabel.YPositionOffset = 5 Call Report.Refresh()