Getting a List of Attached Images

[Marshal_Rosenberg60828]

Hi all,

How does one programatically get a list of image Filenames attached to a DWG file? (The list which appears with the Image Manager)

[richard.binning]

Try this:



Public Sub LocalDeps_Images()
Dim myFileDeps As AcadFileDependencies
Dim myFileDep As AcadFileDependency
Set myFileDeps = ThisDrawing.FileDependencies
For Each myFileDep In myFileDeps
If myFileDep.Feature Like "Acad:Image" Then
ThisDrawing.Utility.Prompt "Image: " & myFileDep.FileName & " Found Path is :" & myFileDep.FullFileName & vbCrLf
End If
Next myFileDep
End Sub

[Marshal_Rosenberg60828]

Outside of looking at each individual Object in Model and Paperspace, is there a way to get this list for pre - 2004 Drawings?

[richard.binning]

It would be much faster to search using ObjectDBX with VBA outside of drawing. If you need to search this file while it is open, then you are at the mercy of searching each entity. Perhaps a quick save would solve your problem?

[Marshal_Rosenberg60828]

Hi Richard,

I don't know anything about OBJECTDBX. Can you suggest a reference?

[richard.binning]

Check this link (http://forums.augi.com/showthread.php?t=5145)out for a pointer...