AutoCAD Map 3D Developer

[#1]

Can anyone tell me why i m getting a automation error

My condition gets satisfied and after that i get automation error msgbox

What am i doing wrong?

For Each acadOBJ In ThisDrawing.ModelSpace
boolVal = ODrcs_PB.Init(acadOBJ, True, False)
Do While ODrcs_PB.IsDone = False
If ODrcs_PB.Record.Item(iTypeFieldIndex).Value = PillarType Then
MsgBox "Sucess"
End If
ODrcs_PB.Next
Loop
Next

[#2]

I've got the same problem to do this

robapp.Project.PrintEngine.SaveReportToFile fichier_sortie, I_OFF_RTF_JPEG

but the command has worked good before.

I don't know what has been changed.

[#3]

Which version of Map 3D are you using? 32bit or 64bit? Would you please provide a complete code snippet for test? 

Since you are asking VBA questions, I would suggest you to migrate your VBA program to VB.net, please take a look at this blog: 

http://through-the-interface.typepad.com/through_the_interface/2010/02/updated-devtv-autocad-vba-to-...