How to convert a Reference to something useful?

[Anonymous]

I'm trying to use the PickObjects method and judging by the lack of documentation and examples out there, it's not a good direction to go.  But regardless, it returns an array of References.  So now what?  How can I cast that Reference something useful, like a Wall or Beam?

        Dim pickedObjs As IList(Of Reference) = sel.PickObjects(ObjectType.Element, "Please select objects")
        For Each PO In pickedObjs
            Dim CurObj As Element = PO
        Next

[Anonymous · Accepted solution]

I figured it out...

Dim sd As Element = m_rvtDoc.GetElement(PO.ElementId)

A follow up question... When finding the end points of an edge of a solid, what is the syntax for the "EndPointReference" method?

I'm using this, but it's only returning a "nothing" value.

Dim HDAr As Reference = EELine.EndPointReference(0)

[Joe.Ye]

About the last question.

After you construct the Options object, you need to assign the Options.ComputerReferences = True.

Only in this way, the reference of geometry object can be retrieved.