Did you get an answer? I'm stumped here.
Dim oid As ObjectId() = ss.GetObjectIds
Dim blkid As ObjectId
For Each blkid In oid
Dim br As BlockReference
br = tr.GetObject(blkid, OpenMode.ForRead, True)
Dim btr As BlockTableRecord
btr = tr.GetObject(br.BlockTableRecord(), OpenMode.ForRead, True)
If btr.HasAttributeDefinitions Then
Dim id As ObjectId
For Each id In btr
Dim ent As Entity = tr.GetObject(id, OpenMode.ForWrite, True)
If TypeOf ent Is AttributeDefinition Then
Dim ad As AttributeDefinition
ad = ent
'ed.WriteMessage(vbCrLf + ad.Tag.ToString + vbCrLf)
'ed.WriteMessage(vbCrLf + ad.Prompt.ToString + vbCrLf)
ed.WriteMessage(vbCrLf + ad.TextString + vbCrLf)
End If
Next
End If
Next
Using textstring gives the default value, not the actual string.
How do you get the typed string?