Object: PolarCurve

Download PDF

Updated2024-09-12
1 minute(s) read

Object: PolarCurve

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)

sOutput = "" 
oMyReportObjects = dd.Report.ActiveSheet.Objects 
for oMyReportObj in oMyReportObjects: 
    if oMyReportObj.ObjectType == dd.eReportObjectPolarSystem : 
        oMySubObjects = oMyReportObj.CurvesPolar 
        for oMySubObj in oMySubObjects: 
            sOutput = sOutput + "Curve shape: " + oMySubObj.ShapeType + "\t" + "Curve name: " + oMySubObj.Name + "\r\n" 
dd.MsgBoxDisp(sOutput)

Properties

Methods

IsExpanded

Returned From

PolarCurves.Add | PolarCurves.ChangeShape | PolarCurves.Copy | PolarCurves.Item

DIAdem Help

Table of Contents

Object: PolarCurve

Properties

Methods

Returned From

See Also