topic OD Sample in AutoCAD Map 3D Developer Forum

OD Sample

Anonymous — Tue, 28 Feb 2006 19:37:06 GMT

Does this Help Sample work for anyone?

----------------------------
Dim amap As AcadMap
Dim acadObj As Object
Dim ODtb As ODTable
Dim i As Integer
Dim prj As Project
Dim ODrcs As ODRecords
Dim boolVal As Boolean

Set amap = ThisDrawing.Application. _
GetInterfaceObject("AutoCADMap.Application")
Set prj = amap.Projects(ThisDrawing)
prj.ProjectOptions.DontAddObjectsToSaveSet = True
Set ODtb = prj.ODTables.Item("SampleOD")
Set ODrcs = ODtb.GetODRecords
For Each acadObj In ThisDrawing.ModelSpace
boolVal = ODrcs.Init(acadObj, True, False)
Debug.Print ODrcs.Record.tableName
Debug.Print ODrcs.Record.ObjectID
For i = 0 To ODrcs.Record.Count - 1
Debug.Print ODrcs.Record.Item(i).Value
Next i
Next
------------------------------------

Thank you,
Rick

Re: OD Sample

Anonymous — Fri, 03 Mar 2006 14:48:46 GMT

Hello Rick,

This snippet will work, if you have the SampleOD table created, and every
object in ModelSpace has the Object Data attached.

Hope this helps
Warren M

On Tue, 28 Feb 2006 19:37:06 +0000, user0 wrote:

> Does this Help Sample work for anyone?
>
> ----------------------------
> Dim amap As AcadMap
> Dim acadObj As Object
> Dim ODtb As ODTable
> Dim i As Integer
> Dim prj As Project
> Dim ODrcs As ODRecords
> Dim boolVal As Boolean
>
> Set amap = ThisDrawing.Application. _
> GetInterfaceObject("AutoCADMap.Application")
> Set prj = amap.Projects(ThisDrawing)
> prj.ProjectOptions.DontAddObjectsToSaveSet = True
> Set ODtb = prj.ODTables.Item("SampleOD")
> Set ODrcs = ODtb.GetODRecords
> For Each acadObj In ThisDrawing.ModelSpace
> boolVal = ODrcs.Init(acadObj, True, False)
> Debug.Print ODrcs.Record.tableName
> Debug.Print ODrcs.Record.ObjectID
> For i = 0 To ODrcs.Record.Count - 1
> Debug.Print ODrcs.Record.Item(i).Value
> Next i
> Next
> ------------------------------------
>
> Thank you,
> Rick

Re: OD Sample

Anonymous — Fri, 03 Mar 2006 19:42:09 GMT

Thanks for the reply Warren. I actually had another table and I did take that into account. My problem was an incompatible field type in the table. Type SHORT. Which I got from an SDE import. I've fixed that on the GIS side and all is fine now (well almost all).

Thanks,
Rick