Object: 3DTableSelectedElement

Download PDF

Updated2024-09-12
1 minute(s) read

The 3DTableSelectedElement object provides a selected element of a 3D table in DIAdem REPORT.

The following example checks whether elements of a 3D table are selected in the current worksheet and displays the name of the table, the number of selected elements, and their type:

VBScript

Python

Copy script

Dim oMyReportObj, oMyReportObjects, oMySelection, sOutput, i
Set oMyReportObjects = Report.ActiveSheet.Objects
For Each oMyReportObj in oMyReportObjects
  If oMyReportObj.ObjectType = eReportObject3DTable Then
    Set oMySelection = oMyReportObj.SelectedElements
    sOutput = "Object name: " & oMyReportObj.Name & vbCrLf &_
              "Number of selected elements: " & oMySelection.Count & vbCrLf
    For i = 1 to oMySelection.Count
      sOutput = sOutput & "Element type: " & oMySelection.Item(i).Type & vbCrLf
    Next
    Call MsgBoxDisp(sOutput)
  End If
Next

oMyReportObjects = dd.Report.ActiveSheet.Objects 
for oMyReportObj in oMyReportObjects: 
    if oMyReportObj.ObjectType == dd.eReportObject3DTable : 
        oMySelection = oMyReportObj.Select()edElements 
        sOutput = "Object name: " + oMyReportObj.Name + "\r\n" +"Number of selected elements: " + oMySelection.Count + "\r\n" 
        for i in range( 1, oMySelection.Count + 1): 
            sOutput = sOutput + "Element type: " + oMySelection.Item(i).Type + "\r\n" 
        dd.MsgBoxDisp(sOutput)

Properties

Type

Returned From

3DTableSelectedElements.Add3DTable | 3DTableSelectedElements.Item

DIAdem Help

Table of Contents

Object: 3DTableSelectedElement

Properties

Returned From

See also