Object: PolarCurve

DIAdem 2018 Help


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

DOWNLOAD (Windows Only)


DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help

The PolarCurve object provides a polar axis system curve in DIAdem REPORT.

The following example displays the types and the names of all curves from all polar axis systems:

Dim oMyReportObj, oMyReportObjects, oMySubObjects, oMySubObj, sOutput
sOutput = ""
Set oMyReportObjects = Report.ActiveSheet.Objects
For Each oMyReportObj in oMyReportObjects
  If oMyReportObj.ObjectType = eReportObjectPolarSystem Then
    Set oMySubObjects = oMyReportObj.CurvesPolar
    For Each oMySubObj in oMySubObjects
      sOutput = sOutput & "Curve shape: " & oMySubObj.ShapeType & vbTab & _
                "Curve name: " & oMySubObj.Name & vbCrLf
    Next
  End If
Next
Call MsgBoxDisp(sOutput)

Methods

IsExpanded

WAS THIS ARTICLE HELPFUL?

Not Helpful