Extracting Object Data into an Attributed Block

[brennan.cunningham]

Hello Folks,
I was wondering how I can use VBA to extract object data information from an object and put that information into an attributed block. I think I have to go along the ODtable.getODRecords or ODFieldValue way but i'm not to sure how to go about it. If you could lead me in the right direction that would be wonderful.
Thank you

[RobertB]

What version of AutoCAD are you using? If you have AutoCAD 2005, take a look at Fields.

[mjfarrell]

If this user were to use fields then the question would
need to be how does he extract object data to fill in those fields?

[Ed Jobe]

Only if he has 2005. I think Robert's just waiting for his response so that he doesn't provide an answer that's not needed.

[richard.binning]

Hello Folks,
I was wondering how I can use VBA to extract object data information from an object and put that information into an attributed block. I think I have to go along the ODtable.getODRecords or ODFieldValue way but i'm not to sure how to go about it. If you could lead me in the right direction that would be wonderful.
Thank you

ODtable.getODRecords? Sounds suspiciously like the OpenDrawing libraries to me. Is that right?

[mjfarrell]

The user is attempting to extract AutoDesk MAP
Object Data Records into block attributes.

[brennan.cunningham]

Yes I am using Autocad Map 3D 2005. I was given this code as an example but it doesn't seem to work.

__________________________________________________________

  Dim ODrcs As ODRecords
  Dim returnObj As AcadObject
  Dim i As Integer
  Dim strMsg As String
  Dim boolVal

  Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application")
  Set ODrcs = amap.Projects.item(ThisDrawing).ODTables.item("MY_OD_TABLE_NAME").GetODRecords
  
  
  'Prompt user to select an object
  ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
  
  boolVal = ODrcs.Init(returnObj, True, False)
  strMsg = ODrcs.Record.tableName & vbNewLine
  strMsg = strMsg & ODrcs.Record.objectID & vbNewLine
  
  For i = 0 To ODrcs.Record.count - 1
    strMsg = strMsg & ODrcs.Record.item(i).Value & vbNewLine
  Next i
 
  MsgBox strMsg

__________________________________________________________


I always get a run time error on this line:
Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application")

any suggestions?

[RobertB]

Do you have more than one version installed?

Does this make a difference?
Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application.16.1")

[Ed Jobe]

BTW, Brennan, It would have been helpful if you included this info with your first post.

[brennan.cunningham]

Mr. Farrell helped me out - he suggested using an annotation template which extracted the object data information to a block. It was what I was looking for.

Thanks again Mr. Farrell