Method: UpdateScaling for PolarSystem

DIAdem 2018 Help

Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)

DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Refreshes the values which DIAdem REPORT uses to automatically scale a polar axis system. You can use the values specified automatically, for example, for manual scaling.

Object with this method

The following example generates a polar axis system and uses the rounded up and automatically specified scaling values for manual scaling:

Dim oMyPolarAxisSystem, oMyCurve, oMyPos, oMyScaling
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","")
Call Report.NewLayout()
Set oMyPolarAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectPolarSystem,"MyPolarSystem")
Set oMyPos = oMyPolarAxisSystem.Position.ByCoordinate
oMyPos.X1 = 20
oMyPos.X2 = 80
oMyPos.Y1 = 20
oMyPos.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)
Set oMyScaling = oMyPolarAxisSystem.RadialAxis.Scaling
Call oMyPolarAxisSystem.UpdateScaling
oMyScaling.AutoScalingType = eAxisScalingSimpleManual 
oMyScaling.End = Int(oMyScaling.End) + 1
Call Report.Refresh()


Not Helpful