Property: CurvesPolar for PolarSystem

Download PDF

Updated2024-09-12
1 minute(s) read

Returns a collection of all curves in a polar axis system in DIAdem REPORT.

Set oPolarCurves = Object.CurvesPolar

Object	PolarSystem Object with this property
oPolarCurves	PolarCurves Returned object

The following example generates a polar axis system with a curve:

VBScript

Python

Copy script

Dim oMyPolarAxisSystem, oMyPos, oMyCurve
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(ePolarShapeLine, "MyCurve")
oMyCurve.Shape.XChannel.Reference = "[5]/[1]"
oMyCurve.Shape.YChannel.Reference = "[5]/[2]"
Call Report.Refresh()

dd.Report.NewLayout() 
dd.Data.Root.Clear() 
dd.DataFileLoad(dd.DataReadPath + "Report_Data.tdm","TDM","") 
oMyPolarAxisSystem = dd.Report.ActiveSheet.Objects.Add(dd.eReportObjectPolarSystem, "MyPolarAxisSystem") 
oMyPos = oMyPolarAxisSystem.Position.ByCoordinate 
oMyPos.X1 = 20 
oMyPos.X2 = 80 
oMyPos.Y1 = 20 
oMyPos.Y2 = 80 
oMyCurve = oMyPolarAxisSystem.CurvesPolar.Add(dd.ePolarShapeLine, "MyCurve") 
oMyCurve.Shape.XChannel.Reference = "[5]/[1]" 
oMyCurve.Shape.YChannel.Reference = "[5]/[2]" 
dd.Report.Refresh()

DIAdem Help

Table of Contents

Property: CurvesPolar for PolarSystem

See Also

Log in to get a better experience