Object: PolarShapeObject
- Updated2024-09-12
- 1 minute(s) read
(Collections | PolarSystem) > PolarCurves > PolarCurve > Object: PolarShapeObject
Object: PolarShapeObject
The PolarShapeObject object provides the properties of a curve in a polar axis system in DIAdem REPORT.
The PolarShapeObject object corresponds to one of the following objects:
| PolarDifferential (IRepPolarShapeObjDifferentialInt) | Differential |
| PolarLine (IRepPolarShapeObjLineInt) | Line |
| PolarLineAndPoints (IRepPolarShapeObjLineAndPointsInt) | Line and points |
| PolarSpike (IRepPolarShapeObjSpikesInt) | Spikes |
The following example generates a polar axis system with a Line type curve:
| VBScript | Python |
Dim oMyPolarAxisSystem, oMyCurve Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Call Report.NewLayout() Set oMyPolarAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectPolarSystem,"MyPolarSystem") 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(ePolarShapeLine, "MyNewCurve") oMyCurve.Shape.XChannel.Reference= "[5]/[1]" oMyCurve.Shape.YChannel.Reference = "[5]/[2]" Call oMyCurve.Shape.Line.Color.SetPredefinedColor(eColorIndexBlue) Call Report.Refresh()