Object: AdditionalConstantLabel
- Updated2024-09-12
- 1 minute(s) read
(2DAxisSystem | Collections) > 2DCurves > 2DCurve > 2DConstant > 2DConstantExtensions > Object: AdditionalConstantLabel
Object: AdditionalConstantLabel
The AdditionalConstantLabel object provides the properties of the constant labels in a 2D axis system in the Constant display mode in DIAdem REPORT.
The following example generates an axis system with a curve, an x-constant, and a y-constant. Then the example specifies the constant 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 Call oMyConstLabel.Font.Color.SetPredefinedColor(eColorIndexBlack ) oMyConstLabel.UseXPositionOffset = True oMyConstLabel.UseYPositionOffset = True oMyConstLabel.XPositionOffset = 5 oMyConstLabel.YPositionOffset = 5 Call Report.Refresh()
Properties
Angle | BackgroundColor | Font | Position | RelativePosition | Text | Type | UseLineColor | UseXPositionOffset | UseYPositionOffset | XPositionOffset | YPositionOffset