Property: PolarSystem for PolarCurveDrawingContext

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

Specifies the polar axis system of the curve DIAdem REPORT is plotting.

Set oPolarSystem = Object.PolarSystem
ObjectPolarCurveDrawingContext
Object with this property
oPolarSystemPolarSystem
Returned object
Note  To test the example script, you must first save the script and register it as a user command in the dialog box that opens when you select Settings»Extensions»User Commands.

The following example executes the MyOnPolarCurveDrawEvent user command when a curve is plotted in a polar axis system. The user command changes the display of the curve which DIAdem is plotting and displays the associated worksheet, the axis system, and the curve. The user command receives two parameters. The first parameter corresponds to a PolarCurveDrawingContext object and provides information about the polar axis system and the worksheet in which DIAdem is plotting the curve. The second parameter corresponds to a PolarCurve object and provides information about the curve DIAdem is plotting:

Report.Events.OnDrawingPolarSystemCurve = "MyOnPolarCurveDrawEvent"

Sub MyOnPolarCurveDrawEvent(Context, CurrCurve)
  Dim oMyAxis, oMyCurve
  Set oMyAxis = Context.PolarSystem
  Set oMyCurve = CurrCurve
  Select Case oMyCurve.ShapeType
    Case ePolarShapeLine
      oMyCurve.Shape.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case ePolarShapeLineAndPoints
      oMyCurve.Shape.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case ePolarShapeSpikes
      oMyCurve.Shape.Spike.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case ePolarShapeDifferential
      oMyCurve.Shape.DifferentialLine.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
  End Select
  
  Call MsgBox("Sheet: " & Context.Sheet.Name & VBCrLf & "Axis system: " & oMyAxis.Name & "Curve name: " & oMyCurve.Name)
End Sub

WAS THIS ARTICLE HELPFUL?

Not Helpful