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

问题描述

我试图在不打开图形的情况下卸载 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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）