Object: PolarSectorNumbers
- Updated2024-09-12
- 1 minute(s) read
(ReportObjects | SelectedObjects) > PolarSystem > PolarSectors > Object: PolarSectorNumbers
Object: PolarSectorNumbers
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:
| VBScript | Python |
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()
Properties
Angle | AngleUnit | DisplayType | Font | Format | RelativePosition | ShowEndLabels | UseCurveColor