Property: SelectedElements for PolarSystem

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)

DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Returns a collection of all selected elements of a polar axis system in DIAdem REPORT.

Set oPolarSelectedElements = Object.SelectedElements
ObjectPolarSystem
Object with this property
oPolarSelectedElementsPolarSelectedElements
Returned object

The following example checks whether elements of a polar axis system are selected in the current worksheet and displays the name of the axis system, the number of selected elements, and their type:

Copy script

Dim oMyReportObj, oMyReportObjects, oMySelection, sOutput, i
Set oMyReportObjects = Report.ActiveSheet.Objects
For Each oMyReportObj in oMyReportObjects
  If oMyReportObj.ObjectType = eReportObjectPolarSystem 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

See Also

Objects Overview

WAS THIS ARTICLE HELPFUL?

Not Helpful