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
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.
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:
Developer Technical Services
Autodesk Developer Network