Object: AdditionalCoordinateLabel
- Updated2024-09-12
- 2 minute(s) read
(2DCoordinateExtensions | 3DCoordinateExtensions) > Object: AdditionalCoordinateLabel
Object: AdditionalCoordinateLabel
The AdditionalCoordinateLabel object provides the properties of the coordinate labels in 2D and 3D axis systems in the Coordinate display mode in DIAdem REPORT.
The following example generates a 2D axis system with a curve and a coordinate. Then the example specifies the properties of the coordinate labels:
| VBScript | Python |
Dim oMy2DAxisSystem, oMyPos, oMyCurveLine, oMyCurveCoord, oMyShape, oMyCoordComment, oMyCoordLabel, MaxValX, MaxValY 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,"My2DCurveLine") oMyCurveLine.Shape.XChannel.Reference = "[1]/[1]" oMyCurveLine.Shape.YChannel.Reference = "[1]/[2]" Set oMyCurveCoord = oMy2DAxisSystem.Curves2D.Add(e2DShapeCoordinate,"My2DCurveCoord") MaxValY = Data.GetChannel("[1]/[2]").Properties("maximum").Value MaxValX = Data.GetChannel("[1]/[1]").Values(PNo("[1]/[2]", MaxValY)) Set oMyShape = oMyCurveCoord.Shape oMyShape.BoundingType = eCoordinateChannelBounded oMyShape.BoundingPosition = e2DCoordinateBoundingAbsoluteMax oMyShape.BoundingXChannel.Reference = "[1]/[1]" oMyShape.BoundingyChannel.Reference = "[1]/[2]" oMyShape.XCoordinate.Reference = MaxValX oMyShape.YCoordinate.Reference = MaxValY Set oMyCoordLabel = oMyShape.Extensions.CoordinateLabel oMyCoordLabel.Type = e2DLabelValue oMyCoordLabel.UseXPositionOffset = True oMyCoordLabel.UseYPositionOffset = True oMyCoordLabel.XPositionOffset = 5 oMyCoordLabel.YPositionOffset = 5 Call Report.Refresh()
Properties
Angle | BackgroundColor | Font | RelativePosition | Text | Type | UseLabelOnlyOnFirstExpandedCurve | UseMarkerColor | UseXPositionOffset | UseYPositionOffset | XPositionOffset | YPositionOffset
Returned From
2DCoordinateExtensions.CoordinateLabel | 3DCoordinateExtensions.CoordinateLabel