在不打开图形的情况下卸载外部参照

如何解决在不打开图形的情况下卸载外部参照

我试图在不打开图形的情况下卸载 DWG 图形中的外部参照。代码运行无故障，但不会卸载外部参照。我注意到这些代码适用于 acad 文档，但由于我不想打开绘图，因此我需要使用 axdb 文档。有人有想法吗？

提前致谢

D

代码

Sub NoXref()

Dim db As AcadDatabase
Dim doc As AXDBLib.AxDbDocument
Dim i As Integer

Set doc = ThisDrawing.Application.GetInterfaceObject("objectdbX.AxDbDocument.21")
doc.Open "C:\Users\32485\Google Drive\Projecten\TEK_oed 60\OED60 versie10.dwg"
Set db = doc.Database

For i = 0 To db.Blocks.Count - 1
    If db.Blocks.item(i).IsXRef = True Then
        db.Blocks.item(i).Unload
    End If
Next i

doc.SaveAs doc.Name
End Sub