How to Get AttributeReference object using Editor.GetSelection

- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I'm trying to use Editor.GetSelection to allow my end users to select "text" in their drawing that will be used to build a list in my front end. I'd like for the user to simply select via window or crossing (or by holding ctrl to select attributes) any number of objects in their drawing from a single prompt. I have set AllowSubSelections to true on my PromptSelectionOptions. However I can't seem to obtain the ObjectID of a selected Attribute - I seem to only be able to get at the BlockReference object of the selected attribute. Here is my current code of my last attempt. Can somebody can help me get to the attributereference object?
If TypeOf acEntity Is Autodesk.AutoCAD.DatabaseServices.BlockReference Then
Dim acSelectedSubObjectArray As Autodesk.AutoCAD.EditorInput.SelectedSubObject()
acSelectedSubObjectArray = acSelectedObject.GetSubentities()
Dim acSelectedSubObject As Autodesk.AutoCAD.EditorInput.SelectedSubObject
For Each acSelectedSubObject In acSelectedSubObjectArray
Dim acObjectIDsArray As Autodesk.AutoCAD.DatabaseServices.ObjectId()
acObjectIDsArray = acSelectedSubObject.FullSubentityPath.GetObjectIds()
Dim acObjectID As Autodesk.AutoCAD.DatabaseServices.ObjectId
For Each acObjectID In acObjectIDsArray
If TypeOf acTrans.GetObject(acObjectID, OpenMode.ForRead) Is Autodesk.AutoCAD.DatabaseServices.AttributeReference Then
Dim acAttributeReference As Autodesk.AutoCAD.DatabaseServices.AttributeReference
acAttributeReference = acTrans.GetObject(acObjectID, OpenMode.ForRead)
AddTextReplaceListItem(acAttributeReference.TextString, "")
End If
Next
Next
End If