Object: PolarLineAndPointsExtensions
- Updated2024-09-12
- 1 minute(s) read
(Collections | PolarSystem) > PolarCurves > PolarCurve > PolarLineAndPoints > Object: PolarLineAndPointsExtensions
Object: PolarLineAndPointsExtensions
The PolarLineAndPointsExtensions object provides the extended properties of a polar curve in the display type Line and Points in DIAdem REPORT.
The following example generates a polar axis system with a curve and specifies the parameters of the curve labels:
| VBScript | Python |
Dim oMyPolarAxisSystem, oMyCurve, oMyPos, oMyLabel Call Report.NewLayout() Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Set oMyPolarAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectPolarSystem, "MyPolarAxisSystem") Set oMyPos = oMyPolarAxisSystem.Position.ByCoordinate oMyPos.X1 = 20 oMyPos.X2 = 80 oMyPos.Y1 = 20 oMyPos.Y2 = 80 Set oMyCurve = oMyPolarAxisSystem.CurvesPolar.Add(ePolarShapeLineAndPoints, "MyCurve") oMyCurve.Shape.XChannel.Reference = "[5]/[1]" oMyCurve.Shape.YChannel.Reference = "[5]/[2]" Set oMyLabel = oMyCurve.Shape.Extensions.Label oMyLabel.YValueVisible = True oMyLabel.YValueFormat = "d.dd" oMyLabel.RelativePosition = eRelativePositionPointCenter oMyLabel.Repetition.Mode = eLabelRepetitionNthPoint oMyLabel.Repetition.NValue = 75 Call Report.Refresh()