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"
.........
End Sub
Thanks Bob. I don't have time to test it, so do you have a few hours to re-code it to auto-embed into all our templates and to autoload and execute each time acad starts? And please include network supports.
Thanks in advance
Oh, and please stop wasting my RAM by declaring variable you don't use. :realmad:
Thanks again.
ps. Sorry for hijacking Co.Mnstr's thread, I couldn't resist