Object: PolarSectorNumbers

DIAdem 2018 Help

Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)

DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help

The PolarSectorNumbers object provides the font attributes for the circle numbers in a polar axis system in DIAdem REPORT.

The following example generates a polar axis system with a curve and specifies the numbers display of the circle labeling:

Dim oMyPolarAxisSystem, oMyCurve, oMyPolarSector, oMyPolarSectorNumbers
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","")
Call Report.NewLayout()
Set oMyPolarAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectPolarSystem, "MyPolarAxisSystem")
oMyPolarAxisSystem.Position.ByCoordinate.X1 = 20
oMyPolarAxisSystem.Position.ByCoordinate.Y1 = 20
oMyPolarAxisSystem.Position.ByCoordinate.X2 = 80
oMyPolarAxisSystem.Position.ByCoordinate.Y2 = 80
Set oMyCurve = oMyPolarAxisSystem.CurvesPolar.Add(ePolarShapeLineAndPoints, "MyCurve")
oMyCurve.Shape.XChannel.Reference = "[5]/[1]"
oMyCurve.Shape.YChannel.Reference = "[5]/[2]"
Set oMyPolarSector = oMyPolarAxisSystem.Sectors
oMyPolarSector.AutoScalingType = eAxisScalingSimpleManual
Set oMyPolarSectorNumbers = oMyPolarSector.Numbers
oMyPolarSectorNumbers.Font.Bold = True
oMyPolarSectorNumbers.AngleUnit = eAngleUnitDegree 
oMyPolarSectorNumbers.Angle = 45
Call oMyPolarSectorNumbers.Font.Color.SetPredefinedColor(eColorIndexDarkBlue)
Call Report.Refresh()

Returned From



Not Helpful