Object: PolarSectors
- Updated2024-09-12
- 1 minute(s) read
(ReportObjects | SelectedObjects) > PolarSystem > Object: PolarSectors
Object: PolarSectors
The PolarSectors object provides the sector properties of a polar axis system in DIAdem REPORT.
The following example generates a polar axis system with a curve and specifies the properties of the sectors:
| VBScript | Python |
Dim oMyPolarAxisSystem, oMyCurve, oMyPolarSector 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 oMyPolarSector.SectorCount = 20 oMyPolarSector.AngleDirection = eAngleDirectionClockwise oMyPolarSector.MiniSectorCount = 10 oMyPolarSector.MiniSectorLine.LineType = eLineTypeDashed1 oMyPolarSector.MiniSectorStartIndex = 2 oMyPolarSector.Numbers.Format = "d" Call Report.Refresh()
Properties
AngleDirection | AutoScalingType | MiniSectorCount | MiniSectorLine | MiniSectorStartIndex | Numbers | ScalingAperture | ScalingOrigin | ScalingZeroAngle | SectorCount | SectorLine