Collection: 3DSelectedElements

Download PDF

Updated2024-09-12
1 minute(s) read

Collection of all 3DSelectedElement objects in DIAdem REPORT. Use the 3DSelectedElements collection to access a selected element in a 3D axis system.

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
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

Count

Methods

Add3D | Item

Returned From

3DAxisSystem.SelectedElements

DIAdem Help

Table of Contents

Collection: 3DSelectedElements

Properties

Methods

Returned From

See also