Object: AdditionalCoordinateLabel

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 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:

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

WAS THIS ARTICLE HELPFUL?

Not Helpful