Community
Dim FromBlk As BlockReference = trans.GetObject(BrefID, .....
Dim AttObj As AttributeReference = Nothing
Dim AttCol As AttributeCollection = FromBlk.AttributeCollection
Dim AttEnum As System.Collections.IEnumerator = AttCol.GetEnumerator
Try
While AttEnum.MoveNext
AttObj = trans.GetObject(AttEnum.Current, .....
If AttObj.Tag = AttTag Then
IntoVar = AttObj.TextString
AttObj.Dispose()
Return True
End If
AttObj.Dispose()
End while
Return False
I believe if you try to massage that to suit your needs, you'll figure it out.
Can't find what you're looking for? Ask the community or share your knowledge.