Saving an Xref from the mother drawing

Hi
A2k2

I've written the routine below to reload all loaded xrefs in a dwg.
Is there a way to check whether the drawings that are the Xrefs are saved &
save them if not?

Thanks in advance

Dave F.

Sub fxXrefReload()
Dim BlkObj As AcadBlock
Dim objBlock As AcadDatabase
For Each BlkObj In ThisDrawing.Blocks ' cycles through all the blocks
in the dwg
If BlkObj.IsXRef Then ' if it's an Xref?
Debug.Print BlkObj.Name
On Error Resume Next
Set objBlock = ThisDrawing.Blocks(BlkObj.Name).XRefDatabase '
tests to see if it's loaded
If Err.Number = 0 Then
' if it is...
BlkObj.Reload
' ...reload it
End If
End If
Next ' block
End Sub

 

If you have a drawing open then go through the documents collection, check the 'saved' property, and if it is not saved then save it. But if someone else has it open, you can't do anything anyway, other than ask them very politely to save it for you (But on the bright side, hey, no tricky API coding required!)... also, more seriously, I know acad 2004 has the warning thing about xref's but i don't know if that raises an event or something that can be queried through VBA. Maybe someone else can help you with that.