Extract image tiff filename incl path from dwg files

Anyone know a utility or the code to write a report of all dwg files stored in a Windows 2000 folder that contain attached tiff files? Report should list the .dwg filename and path and any attached tiffs filename and path.

Want to avoid opening each file and running "image" command if possible.

 

oops, forgot - Acad 2000 files only

 

For Each ent In ThisDrawing.ModelSpace
If TypeOf ent Is AcadRasterImage Then
Set rasterObj = ent
'Set path to string then test...
RasterPath = rasterObj.ImageFile
End If
Next ent

Combine this idea with some batch processing code (afralisp.com).
Should get you started...
gl
Paul

 

Thx Paul - will give this a try shortly then update this posting with resulting solution

 

How did you do? I wrote a quick app if you need it...

 

Excuse me for barging in but I couldn't resist. I would like to do a similar process but when I get to a drawing where the path and filename to the TIF are there but the TIF can't be found, I get a message box popping up. How can I stop the message box from showing. It can stop my batch process.

Thanks,
Rick

 

Use ObjectDBX in place of a batch script. ObjectDBX allows you to access a
drawing's database without opening it in Autocad, since it isn't opened it
will never know whether the tiff is found or not.

For info on the basics of ObjectDBX:
http://www.cadvault.com/forums/article.php?a=55 you may need to register at
the site first, but registration is free.