Object: 3DSelectedElement

Download PDF

Updated2024-09-12
1 minute(s) read

The 3DSelectedElement object provides a selected element in a 3D axis system in DIAdem REPORT.

The following example checks whether elements of a 3D axis system are selected in the current worksheet and displays the name of the axis system, 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 = eReportObject3DAxisSystem 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.eReportObject3DAxisSystem : 
        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

Name | Type

Returned From

3DSelectedElements.Add3D | 3DSelectedElements.Item

DIAdem Help

Table of Contents

Object: 3DSelectedElement

Properties

Returned From

See also