Method: Remove for 3DCurves

Download PDF

Updated2024-09-12
1 minute(s) read

Deletes a curve from a 3D axis system in DIAdem REPORT.

Object.Remove(NameOrIndex)

Object	3DCurves Object with this method
NameOrIndex	Variant Specifies the name or the index of the 3D curve.

The following example deletes the curve with the highest index from each 3D axis system of the current worksheet:

VBScript

Python

Copy script

Dim oMyReportObj, oMyReportObjects, iCurveCount 
Set oMyReportObjects = Report.ActiveSheet.Objects
For Each oMyReportObj in oMyReportObjects
  If oMyReportObj.ObjectType = eReportObject3DAxisSystem Then
    iCurveCount = oMyReportObj.Curves3D.Count 
    If iCurveCount > 1 Then
      Call oMyReportObj.Curves3D.Remove(iCurveCount)
    End If
  End If
Next

oMyReportObjects = dd.Report.ActiveSheet.Objects 
for oMyReportObj in oMyReportObjects: 
    if oMyReportObj.ObjectType == dd.eReportObject3DAxisSystem : 
        iCurveCount = oMyReportObj.Curves3D.Count 
        if iCurveCount > 1 : 
            oMyReportObj.Curves3D.Remove(iCurveCount)

DIAdem Help

Table of Contents

Method: Remove for 3DCurves

See Also

Log in to get a better experience