Status of all Underlays
While all the things you mentioned (*.dwg, *.dwf, *.jpg/*.bmp, *.pdf) that "linked" to a drawing shows in XReference Manager window and may be called Xreferences in general, they are different things in AutoCAD's Object Model:
XReferenced drawing is inserted into the current drawing as a block definition and then a reference to it is shown;
*.dwf, *.dgn, *.pdf, is inserted into drawing as AcadXXXUnderlay;
*.jpg/*.bmp... is inserted into drawing as AcadRasterImage;
Each of the object has either "Path" property (XRefed drawing), or "File" (AcadXXXUnderlay), or "ImageFile" for image inserted. You can use code to search the drawing to find these types of entities, read the "Path/File/ImageFile" property's value, then check to see if the physical file actually exists or not (if not, the lined reference is "missing", obviously).
Dim fso As Scripting.FileSystemObject
Dim fsoFile As Scripting.file
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strDefaultFile) = True Then
strFileName = fso.GetParentFolderName(strDefaultFile)
End If
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@serge wrote:
... ...
Strange... are linked Bitmaps objects not Space-independent?
...
Image inserted into drawing, just like any AcadEntity, is similar to block in AutoCAD: there is block definition (AcadBlock), which stays in block table, not visible; and there could be zero, or more block references (AcadBlockReference) being inserted ModelSpace or PaperSpaces. So, the image you are talking here is like acadBlockReference that can be inserted into ModelSpace, or PaperSpaces (Layouts). So, if you want to find all Images existing in a drawing, but not sure if they only in ModelSpace, or in one or more Layouts, then you need to search all layouts (including ModelSpace)
Obviously, when you do
For Each m_objBitmap in ActiveDocument.ModelSpace
...
Next
it ONLY searches/loops through ModelSpace.
To go through all Layouts (including "Model" layout - ModelSpace), you can simply loop through AcadLayouts collection, something like:
Dim lay As AcadLayout
Dim ent As AcadEntity
Dim img As AcadRasterImage
Dim count As Integer
For Each lay in ThisDrawing.Layouts
count=0
For Each ent In lay.Block
If TypeOf ent Is AcadRasterImager Then
Set img=ent
MsgBox "Found image: " & img.ImageFile
count = count + 1
End If
Next
MsgBox count & " image(s) found in layout """ & lay.Name & """"
Next
HTH
